Help for this page

Select Code to Download


  1. or download this
    opendir DIR, $dir;
my @file = grep { $_ ne '.' && $_ ne '..' } readdir DIR;
closedir DIR;
  2. or download this
    foreach $file (@file){
    open(MYFILE, $dir.$file[$i]) or die qq(Cannot open $file[$i]\n);
....some other stuff