in reply to Multiple csv file rendering by PERL using single file open handle?
This prints to my screen the content of the "pattern.pl" and "line_count.pl" files. (There are easier ways to do just that, e.g. using the "p" command line option, but the aim here is just to demonstrate the syntax. An additional remark is that it is not even necessary to close the files in the example above, because the files would be closed automatically when the lexical filehandler goes out of scope at the end of the loop iteration, but I consider it is better to do it explicitly.)$ perl -e 'for my $file (qw /pattern.pl line_count.pl /) {open my $IN, + "<", $file or die $!; print while <$IN>; close $IN;}'
|
|---|