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

Select or download this

#!/usr/bin/perl -slw

use strict;
use warnings;

Select or download this

opendir DH, "Y://perlscripts2/software/perl2/music" or die $!; # open 
+current directory
while($_ = readdir(DH)){
    # don't evaluate special dirs '.' & '..'
    next if $_ eq "." or $_ eq "..";

Select or download this

    if ($_ =~ /\.txt/){
        chomp $_;
...
    print "$_"; # print this file/directory's name
    
    }

Select or download this

#! perl -slw
use strict;
...
print Dumper \%albums;
__END__

Select Code to Download