Help for this page

Select Code to Download


  1. or download this
    find sub{print $_,"\n"}, "./"
  2. or download this
    %perl -MFile::Find -e 'find sub{print $_,"\n"}, "./"'
  3. or download this
    sub my_Sub{
    do-something-with-$_
    .
    .
}
find \&my_Sub, @directories;