Help for this page

Select Code to Download


  1. or download this
    sub foo {
   my $dir = shift;
...
   local *CURRENT_DIR;
   # Everything else follows
}
  2. or download this
    opendir FOO, "$dir" or die "Couldn't open $dir: $!";
@contents = readdir FOO;
closedir FOO;
  3. or download this
    @contents = grep !/^\.\.?$/, readdir FOO;
  4. or download this
    sub recurse_me {
  my $dir = shift;
...

  recurse_me( $_ ) for ( sort @dirs );
}