Perl遍历查找文件

Perl遍历查找文件

使用Perl查找当前目录下的所有PDF文件

---

#!/usr/bin/perl -w
use strict;
use warnings;

use File::Find;

my $local_file = "./";
sub wanted {
    my $findfile = $File::Find::name;
    if ( $findfile =~ /\.pdf$/ ) {
        print("$findfile\n");
    }
}
find(\&wanted, $local_file);

参考资料

---

[1].Perl中File::Find模块的一个经典用法