chomp(my @myarray=`cat $myfile`); #### open(my $fh, '<', $filename) or die("Unable to open ...: $!\n"); chomp(my @myarray = <$fh>); #### open(my $fh, '<', $filename) or die("Unable to open ...: $!\n"); while (<$fh>) { chomp; ... }
## open(my $fh, '<', $filename) or die("Unable to open ...: $!\n"); chomp(my @myarray = <$fh>); ##
## open(my $fh, '<', $filename) or die("Unable to open ...: $!\n"); while (<$fh>) { chomp; ... }