Help for this page

Select Code to Download


  1. or download this
    use File::Find;
my $limit= 4; # Whatever you prefer
for ($name = 1; $name <= $limit; ++$name) {
    find(\&Wanted, $dir);
}
  2. or download this
    sub Wanted {
#        /$name\.*/;
# NO! You want $name at the beginning!
  3. or download this
            if (/^$name\./) {
#        if undef {
  4. or download this
    #              $name++;
#              return;
...
       # some processing missing here?
       }
}