in reply to Legacy Data Files on a Case-sensitive File-system
Sounds like you have the right idea.
Is this a little closer to what you want?
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 Section
Seekers of Perl Wisdom