How do I read in the contents of a directory in Perl?
opendir(D, “/path/to/directory”) || die “Can’t open directory: $!\n”; while (my $f = readdir(D)) { print “\$f = $f\n”; } closedir(D); EDIT: Oh, sorry, missed the “into an array” part: my $d = shift; opendir(D, “$d”) || die “Can’t open directory $d: $!\n”; my @list = readdir(D); closedir(D); foreach my $f (@list) { print “\$f = … Read more