perl_File::Find

1月 22
Year 2010 小桥流水人家 Code

自定义路径查找以.xxx为结尾的文件..xp跟debian测试通过

  1. #!perl
  2. use warnings;
  3. use File::Find;
  4. find(\&a,'D:/test');
  5. sub a{
  6.        my $b = $File::Find::name;
  7.            print "$b\n" if ($b =~ /\.xxx?$/i);
  8. }
Leave a comment

一条评论

  1. Billy On 1月 26th, 2010 / #1 Reply

    3m 建议附上use strict;