Help for this page

Select Code to Download


  1. or download this
    # From almut
sub make_wanted {
...

my $arg = "hello";
find(make_wanted($arg), $source);
  2. or download this
    sub wanted {
    my ($arg) = @_;
...

my $arg = "hello";
find(sub { wanted($arg) }, $source);
  3. or download this
    my $arg = "hello";
find(sub {
    my $diskpathfile = $File::Find::name;
    print "$arg: $diskpathfile\n";
}, $source);
  4. or download this
    my $arg = "hello";

...
}

find(\&wanted, $source);