perl获取指定文件夹下的以cc开头的文件

ice_ma

回复 9# huang6894



我综合kingfighters 和 huang6894的内容，然后自己改成这样了，但是也不显示5分钟内产生的新cc文件

1. #!/usr/bin/perl
   
2. opendir(DIR,'/root/cs/release/');
   
3. my $now = time();
   
4. while(my $file = readdir(DIR))
   
5. {
   
6.           my $t = (stat "$file")[10];
   
7.           next if ($file eq '.');
   
8.           next if ($file eq '..');
   
9.            if ($file =~ /^cc/) {
   
10.                 print $file.$/ unless $now - $t > 300;
    
11. }       
    
12. }
    
13. closedir(DIR);

复制代码