Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w
use strict;
use File::Find;
...
sub search {
    print "$File::Find::name\n" if -d and /\A(?:AA|BB|CC)\z/;
}
  2. or download this
    #!/usr/local/bin/perl -w
use strict;
use File::Find;
...
sub search {
    # ...
}