Help for this page

Select Code to Download


  1. or download this
    unless (opendir(DIR, "c:/temp")){
  die ("Error in opendir: $!\n");
}
my @files = grep { $_ !~ /^\.{1,2}$/ } readdir(DIR);
closedir(DIR);
  2. or download this
    use File::DosGlob qw(glob);
my @files = glob("c:/temp/*.*");