Re: I need help with opening a directory and reading files in that directory.

#! perl -slw
use strict;
...
    print "$_"; # print this file/directory's name
}
__END__

#! perl -slw
use strict;
...
my @files = glob("*"); 
print "Files matched via glob pattern *: @files\n";
__END__

#! perl -slw
use strict;
...
    }    
}
__END__

if ($filename =~ /.txt/)

if ($filename =~ /\.txt/)

Select Code to Download