Help for this page

Select Code to Download


  1. or download this
    use File::Find::Rule qw/ find rule/;

...
                  ->grep( $pattern )
                  ->in( $dir );
  2. or download this
    my @files = find(
   file =>
...
   grep => qr/pattern/,
   in => $dir,
);
  3. or download this
    my @files = rule( file => name => '*.dpt', grep => qr/pattern/, )->in(
+ $dir );
  4. or download this
    rule(
  file => name => '*.dpt', grep => qr/pattern/,
...
   ## do something with $fullname :)
   return !!0;    # discard filename
} ) ->in( $dir );