use strict; my $name = 'aramis.DAT'; opendir $dh, '/directory'; my @files = readdir($dh); closedir $dh; for my $file (@files){ if ($file =~ m/$names/i){ open (my $fh, '<', "/directory/$file"); . . . close $fh; } }
In reply to Re: Legacy Data Files on a Case-sensitive File-system
by molecules
in thread Legacy Data Files on a Case-sensitive File-system
by pobocks
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |