Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
sub wanted {
    $dir = $File::Find::name if ( /hello\.txt/ );
}
  2. or download this
    ...
find( \&{ $dir = $File::Find::name if ( /hello\.txt/ ) }, 
  '/tmp/test' );
  3. or download this
    #!/usr/bin/perl

...
sub wanted {
    return $File::Find::name if ( /hello\.txt/ );
}