in reply to How can I make it to a one liner
Hi greatshots,
This may be useful for you
while (my $line = <DATA>){ my $i=0; chomp($line); my @array = split(',',$line); while($i<=$#array){ print "$array[$i+2]\n"; $i++; } }
Punitha
|
---|
In Section
Seekers of Perl Wisdom