my $fi = scalar (@FILES); for (my $k = 0; $k < $fi ; $k++) { open (F,$FILES[$k]) or die " rey ledhu ra \n"; ... };
use
foreach my $file ( @FILES ) { open my $inFH, '<', $file or die "open: < $file: $!\n"; ... }
Cheers,
JohnGG
In reply to Re: Problem with regex
by johngg
in thread Problem with regex
by nave448
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |