Help for this page

Select Code to Download

Select or download this

  DIR = opendir( "$area" ) or die "Can't read '$area' : $!";
  @files = readdir( DIR ) or die "Error reading from '$area' : $!";
  closedir( DIR ); # Don't care about errors here

Select or download this

  while ($file = readdir(DIR)) {
    ... do your stuff to $file ...
  }