一
22
1

perl_File::Find


自定义路径查找以.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. }

我猜~这些文章你可能也感兴趣

  • 文章标签:

1 个留言:

  1. Billy on 一 26th, 2010 - 00:46

    3m 建议附上use strict;

给我留言:

*
To prove you're a person (not a spam script), type the security word shown in the picture.
Anti-spam image