Help for this page

Select Code to Download

Select or download this

opendir (DIR, $dir) || die "opendir: $dir - $!\n";
foreach my $name (readdir DIR) {
   my $fullPath = $dir . "/" . $name;
   next if (-d $fullPath);
}