Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: How can I make it to a one liner

by Punitha (Priest)
on Oct 08, 2007 at 07:15 UTC ( #643406=note: print w/replies, xml ) Need Help??


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