Perl list files and folders in a directory
opendir(DIR, ".") or die "Couldn't open current directory: $!";
my @files = readdir(DIR);
closedir(DIR);
foreach my $file (@files) {
print "$file\n";
}
opendir(DIR, ".") or die "Couldn't open current directory: $!";
my @files = readdir(DIR);
closedir(DIR);
foreach my $file (@files) {
print "$file\n";
}