Help for this page

Select Code to Download

Select or download this

  opendir(DIR, "/users/foo/");
  @bar = readdir(DIR);
  closedir(DIR);

  for (1..2) {shift @bar;} #get rid of '.' and '..'

Select or download this

  while( defined( my $file = readdir(DIR) )) {
    next if $file eq '.' or $file eq '..';
    munge($file);
  }