topic Re: How to split in Perl?? in Operating System - Linux

How to split in Perl??

Rajesh SB — Wed, 26 Mar 2008 04:52:46 GMT

Hi,

I want convert below shell script statement into perl using split// or tr//.

echo "$i"| cut -d ">" -f2 | tr -d "',"

Thanks & Regards,
Rajesh

Re: How to split in Perl??

VK2COT — Wed, 26 Mar 2008 05:41:29 GMT

Hello,

Your $i obvious has the following
characteristics:

a) The delimiter is character (>)

b) You want the second field

c) And finally, from the second field
remove all instances of characters
comma (,) and single-quote (').

Here is a little Perl script to
demonstrate what you want:

#!/usr/bin/perl
my $LINE = "baba > second row contains comma (,) and quote (') >third something >fourth and so on>fifth";

my @ARR = split(/>/, $LINE);

print "BEFORE @ARR[1]\n";

@ARR[1] =~ s/'//g;
@ARR[1] =~ s/,//g;

print "AFTER @ARR[1]\n";
exit;

When you run it:

BEFORE second row contains comma (,) and quote (')
AFTER second row contains comma () and quote ()

Perl is very powerful and I am sure there
will be other elegant solutions in this
Forum.

Cheers,

VK2COT

Re: How to split in Perl??

H.Merijn Brand (procura — Wed, 26 Mar 2008 06:21:42 GMT

Note that perl is not allways the best tool for simple things like this

$ echo "a>b>c>3" | perl -aF\> -ple'($_=$F[1])=~y/\47"//'
b

or in a script

(my $f2 = split m/>/, $i, -1) =~ tr/'"//d;

Enjoy, Have FUN! H.Merijn

Re: How to split in Perl??

Rajesh SB — Mon, 14 Apr 2008 01:28:51 GMT

Hello Guys,

I used following commands to extract the interested values, instead of using array.

for($i=0;$i<=$#fstab_array;$i++)
{
($fstype0, $fstype) = split(/>/, "$fstab_array[$i]");
$fstype =~ tr/',//d;
$i += 1;
}

Thanks & Regards,
Rajesh