File Perl

  1. Home
  2. Perl
  3. File
  4. $File
use File::Find;
find sub {
    $File::Find::prune = 1 if /dir1/;
    print "Here's a text file: $File::Find::name\n" if -T
    },
    '.';