Help for this page

Select Code to Download


  1. or download this
    md tmp3
md tmp3\a
...
findrule tmp3 -file ( *.pl )
perl -MFile::Find::Rule -le " print for File::Find::Rule-> file( q(*.p
+l) )->in( q(tmp3) ); "
perl -MFile::Glob=:glob -le " while(@ARGV){ print for glob shift } " "
+tmp3/*pl" "tmp3/*/*pl" "tmp3/*/*/*pl"
  2. or download this
    $ md tmp3

...
tmp3/a/c/f.pl
tmp3/b/b/f.pl