use strict; use warnings; @files = <*.tx>; print "@files \n"; foreach $file (@files) { print " \n Working with file: $file \n"; my @lines=(); open(INFO, $file)or die "Could not open file: $!" ; @lines=<INFO>; close(INFO); ... }
In reply to Opening text files with CR format by knith
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |