Mega Code Archive

 

Categories / Perl / Language Basics

 

Map using a block

open(FH, "datebook.master") or die; @lines=<FH>; @fields = map { split(":") } @lines; foreach $field (@fields){      print $field,"\n"; }