如何使用 perl篩選出目錄中的文件并打開

linuxnature

比如目錄/opt/data下有abc_01_01.data, abc_01_02.data, abc_02_01.data, abc_02_03.data 這樣的文件,文件都是以abc_ 開頭的, 第一個數(shù)字是文件的編號,不同的編號的文件內(nèi)容格式不同,第二個數(shù)字是寫入的文件序號,序號是不固定的,每一個編號對應(yīng)的最大的序號的文件才是要使用的, 也就是這里的abc_01_02.data,abc_02_03.data是有效的文件

那么請問我如何才能定位到我想要的文件上,并且使用別的程序能夠打開它. 這里比如說是 linux下的cat吧

請幫忙寫出完整的,可執(zhí)行的perl程序,由于本人目前是perl的小白,還沒有能力通過一兩個提醒就能寫出來. 所以麻煩大家了

注: 我只查到了使用find可以查找指定目錄的文件,但不能篩選出相應(yīng)的文件,也不能使用程序分別打開這些文件.
這是我找到的代碼

use strict;
use File::Find;
my @path = '/opt/data';
sub wanted {
    if ( -f $File::Find::name ) {
        if ( $File::Find::name =~ /abc/ ) {         
            print "$File::Find::name\n";
        }
    }
}
find( \&wanted, @path );

grshrd49

你可以使用正則來篩選查找到的文件,例如你篩選出所有編號01的文件你可以這樣寫 /_01_/
如果你想打開篩選出的文件 你可以使用open FF,"文件名"; 就行了

linuxnature

我是想篩選出  目錄下的所有的不同編號的文件,出現(xiàn)幾個編號要幾個,而且這個是不固定的. 再有就是編號后面的序號,只要最大的那個序號的文件

回復(fù) 2# grshrd49


   

syncpk99

perldoc -f glob

grshrd49

回復(fù) 3# linuxnature

這個假設(shè)你的文件已經(jīng)都在@files這個列表中；然后就可以輸出你需要的文件了

1. use strict;
   
2. 
   
3. my @files = ("abc_01_08.data","abc_01_4322.data","abc_02_444.data","abc_02_111.data");
   
4. my %file_hash;
   
5. for(@files){
   
6.         if(/abc_(\d*)_(\d*).data/){
   
7.                 $file_hash{$1}{$2}=$_;
   
8.         }
   
9. }
   
10. my $max;
    
11. my $need_file;
    
12. for my $k1 (keys %file_hash){
    
13.         print "$k1\n";
    
14.         $max = (keys %{$file_hash{$k1}})[0];
    
15.         $need_file = $file_hash{$k1}{$max};
    
16.         print "debug-$max\n";
    
17.         for my $k2 (keys %{$file_hash{$k1}}){
    
18.                 if($max < $k2){
    
19.                         $max = $k2;
    
20.                         $need_file = $file_hash{$k1}{$k2};
    
21.                 }
    
22.                 print "  $k2\n    $file_hash{$k1}{$k2}\n";
    
23.         }
    
24.         print "need file -- $need_file\n";
    
25. }
    

復(fù)制代碼

linuxnature

太感謝了, 我只需要把獲取的文件名賦給 $files就可以了 , 別的地方稍加修改應(yīng)該就能用了. 非常感謝大俠
回復(fù) 5# grshrd49