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

ice_ma

要显示的路径是这个/root/cs/release/，下面有很多各种各样格式的文件，现在想要显示以cc.开头的文件，比如cc.1212   cc.5435   cc.2231   cc.adasd.213等等类似这种格式的文件信息，搜了论坛改了下面这个脚本，但是是把/root/cs/release/下面的所有文件都显示了，

代码如下：现在想要只显示5分钟内产生的以cc.开头的文件~谁帮忙改改

1. #!/usr/bin/perl
   
2. opendir(DIR,'/root/cs/release/');
   
3. while(my $file = readdir(DIR))
   
4. {
   
5.           next if ($file eq '.');
   
6.           next if ($file eq '..');
   
7.           print $file,"\n";
   
8. 
   
9. }
   
10. closedir(DIR);

复制代码

huang6894

额。。。。glob ?

stanley_tam

这样？{:3_193:}

1. #!/usr/bin/perl
   
2. opendir(DIR,'/root/cs/release/');
   
3. while(my $file = readdir(DIR))
   
4. {
   
5.           print $file,"\n" if index($file, 'cc.') == 0;
   
6. }
   
7. closedir(DIR);
   

复制代码

ice_ma

回复 3# stanley_tam

这样显示不出来，什么文件都没显示


   

kingfighters

回复 1# ice_ma

1. #!/usr/bin/perl
   
2. opendir(DIR,'/root/cs/release/');
   
3. while(my $file = readdir(DIR))
   
4. {
   
5.           next if ($file eq '.');
   
6.           next if ($file eq '..');
   
7.           if （$file =~ /^ss/ ){
   
8.               print $file,"\n";
   
9.           }
   
10. 
    
11. }
    
12. closedir(DIR);

复制代码

kingfighters

回复 1# ice_ma

噢，还有个五分钟的限定，那你就在if的加上and stat($file)[10]-now > 300 这类的设定吧


   

ice_ma

回复 5# kingfighters


这样可以了，谢谢。
   

ice_ma

回复 6# kingfighters

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

复制代码

这样写直接报错了，错误如下：

1. syntax error at ./jk.pl line 7, near ") and"
   
2. syntax error at ./jk.pl line 10, near "}"
   
3. Execution of ./jk.pl aborted due to compilation errors.

复制代码

感觉perl好难啊

   

huang6894

噗哧~

1. #! /usr/bin/perl -w
   
2. # File Name: t.pl
   
3. 
   
4. my $now = time();
   
5. my $dir = shift;
   
6. my @file = glob("$dir/cc*");
   
7. for my $f (@file){
   
8.         my $t = (stat "$f")[9];
   
9.         print $f.$/ unless $now - $t > 300;
   
10.         
    
11. }
    

复制代码

ice_ma

回复 9# huang6894


    这样写，没有任何输出，/root/cs/release/目录下有新产生的cc文件，但是不显示