Help for this page

Select Code to Download


  1. or download this
    my $dir = '/tmp/foo';
    if ( my @contents = dir_contents( $dir ) {
    ...
      opendir DIR, $dir or die "Couldn't open $dir: $!";
      return grep !/^\.\.?$/, readdir DIR;
    }