Help for this page

Select Code to Download


  1. or download this
    grep DONE: File/Find.pm
  2. or download this
        File::Find::find( sub { ... goto My::Package::FOUND ... } ... );
My::Package::FOUND:
    ....
  3. or download this
    BEGIN {
    my( $dot, $up )= ( File::Spec->curdir(), File::Spec->updir() );
...
        chdir $up   or  die "Can't chdir .. from $path: $!\n";
    }
}
  4. or download this
    #!/usr/bin/perl -w
use strict;
...
        print $_, $/   for  @Found;
    }
}