求教，perl如何打开许多个文件，在线等

yuqinghua1982

求教，perl如何打开许多个文件，这些文件在同一目录下，以abs_yyyymmdd.dat格式存放，大概240个文件，这些文件以\t分隔，我要读取其中的某列作累加和。我是新手，还请各位大侠不吝赐教

RE_HASH

循环一个一个的open and close files.
Linux还可以用cut，再pipe到perl script.

x9x9

先以glob读取文件列表。
再对每个文件进行处理。如果只取一列就用正则即可，若是多列就split读到数组处理。

homedw

readdir->将文件名存入数组->glob所需文件->for循环逐一打开->正则匹配想要的内容->输出结果



=、=我只是用来做日志分析的。。。

minirain

1. for my $temp ('0'..'9','a'..'z')
   
2.   { open ("FILE_TEMP_3$temp", "<" . "WikiToTomeTemp.3$temp") ; }
   
3. 
   
4. ...........
   
5. 
   
6. 
   
7. for my $tmp ('0'..'9','a'..'z')
   
8.   { close ("FILE_TEMP_3$tmp") ; }
   
9. 
   
10. 
    

复制代码

yuqinghua1982

谢谢楼上各位：
上部分代码

my @t=`ls /home/costreport/costreport_20110*`;
foreach($c=0;$c<@t;$c++){
        open(DFW,"$t[$c]")|| die("can't open this file DFW:$!\n");
        while (<DFW>) {
        chomp;
        my @rowa = split /\t/;

        if(exists($data{$rowa[1]})){
                $data{ $rowa[1] }[5]+= $rowa[2];
                $data{ $rowa[1] }[6]+= $rowa[3];
                $data{ $rowa[1] }[7]+= $rowa[5];
                                       
        }
      }   
   close DFW;
}
open NK,">/home/myu/weihu/number_new.txt"|| die("can't open this file:$!NK\n") ;
foreach $b (keys %data) {
                           print NK  $data{$b}[0], "\t", $data{$b}[1],"\t", $data{$b}[2],"\t", $data{$b}[3],"\t", $data{$b}[4],"\t",sprintf("%.2f",$data{$b}[6]),"\t", $data{$b}[5],"\t", $data{$b}[7],"\n";
                          
}
close NK;

ulmer

求教，perl如何打开许多个文件，这些文件在同一目录下，以abs_yyyymmdd.dat格式存放，大概240个文件，这些文 ...
yuqinghua1982 发表于 2011-08-09 20:02

Sample code:

1. 
   
2. use strict;
   
3. 
   
4. # current dir or replace your dir
   
5. my $dir = ".";
   
6.    
   
7. my $sum = 0;
   
8. 
   
9. opendir DH, $dir or die $!;
   
10. # read all files in opened directory
    
11. while (my $file = readdir DH) {
    
12.     # listing only the files with ending *.dat
    
13.     if ($file =~ /\.dat$/i) {
    
14.             #print $file , "\n";    # $file is only relative path
    
15.         # open the file to read and process it
    
16.         my $file_fullpath = $dir . "/" . $file;
    
17.         open FH, $file_fullpath or die $!;
    
18.         while (my $line = <FH> ) {
    
19.                 chmop $line;
    
20.             # processing each line and
    
21.             # split each field seperated by "\t" into a temp array
    
22.             my @fields = split "\t", $line;
    
23.             
    
24.             # calculate(sum) the request field and/or put the result
    
25.             # into a hash
    
26.             # i.e.:
    
27.             # first field is SERACH_ID
    
28.             # second field is data for calculating
    
29.             $sum += $fields[1] if $fields[0] eq 'SEARCH_ID';
    
30.         }
    
31.         close FH;
    
32.     }
    
33. }
    
34. closedir DH;
    
35. 
    

复制代码

wtuter

回复 1# yuqinghua1982


    得到目录，循环目录得到文件列表