Mega Code Archive

 

Categories / Perl / Language Basics

 

Splitting up $_ and creating an unnamed list

while(<DATA>){      ($name,$phone,$address,$bd,$sal)=split(":");      print "$name\t $phone\n" ; }