[已解决]请问读取压缩包文件应该怎么做?

hyoryeo

请问各位大大..读取的文本文件是.Z的压缩包, 我尝试用read或者sysread来读,在匹配的时候均出现问题(如无法标准输出)!用while<>却没有问题,之前MMMIX说过 读取的文本文件是.Z的压缩包最好使用binmode, 请各位大大帮忙看一下是什么问题?

1. 
   
2. sub creatTmp(){ #read each line and put the attribute to record hash
   
3.         my ($infile,$mmsgz,$smtingz,$iomgz)= @_;
   
4.         my $tmpStatus;
   
5.         my $tmpStatuscode;
   
6.         my $tmpStart;
   
7.         my $tmpEnd;
   
8.         my $buffer= "";
   
9.         if(!open(INFILE,"zcat $infile|")){
   
10.                 die("Could not open file $infile:$!");
    
11.         }
    
12.          binmode(INFILE);
    
13.         while(<INFILE>){
    
14.         #while(sysread(INFILE,$buffer,1024)){
    
15.         #while(read(INFILE,$buffer,1024)){
    
16.                #process and count
    
17.                 #next if $buffer=~/^Record.*\(.*\).*\"MiepPush.+\"/../End/;
    
18.                 next if /^Record.*\(.*\).*\"MiepPush.+\"/../End/;
    
19.                 #if ($buffer=~/(^Record.*\(\d+\).*\"MiepPull.+")/){
    
20.                 if (/(^Record.*\(\d+\).*\"MiepPull.+")/){
    
21.                         $tmpStart=$1;
    
22.                 #} elsif ($buffer=~/\s+\"(.*)\"\s\=\s\"(.*)\"/){
    
23.                 } elsif (/\s+\"(.*)\"\s\=\s\"(.*)\"/){
    
24.                         $tmpStatus = $1;
    
25.                         $tmpStatuscode = $2;
    
26.                         $recordhash{$tmpStatus} = $tmpStatuscode;
    
27.                 #} elsif ($buffer=~/(^End.*Record.*\(\d+\))/){
    
28.                 } elsif (/(^End.*Record.*\(\d+\))/){
    
29.                         $tmpEnd = $1;    #在这里开始便无法输出数据
    
30.                         if ($recordhash{"url"}=~/http\:\/\/mms\.smartone.+|202\.140\.96\.(?=92|208|46|97|227|47).+|10\.16\.96\.(?=76
    
31. |79|93|94|187|188|180|137|167).+/i){
    
32.                                print $tmpStart."\n" ;
    
33.                                 foreach (keys %recordhash){
    
34.                                                 print "\"".$_."\" = \"".$recordhash{$_}."\"\n";
    
35.                                 }
    
36.                                 
    
37.                                 print $tmpEnd."\n" ;
    
38. 
    
39.                         }
    
40.                         undef %recordhash;
    
41.                 }
    
42.         }
    
43.         close(INFILE);
    
44. }
    
45. 
    

复制代码

        binmode(INFILE);
        while(<INFILE>{
        #while(sysread(INFILE,$buffer,1024)){
        #while(read(INFILE,$buffer,1024)){


$buffer是能正常输出的..能确定匹配是没有错的..想问一下为什么无法输出

[ 本帖最后由 hyoryeo 于 2009-7-9 14:44 编辑 ]

ulmer

Using CPAN Module: IO::Zlib to deal with *.Z file

You can not use binmode to process contents from a *.Z file.

i.e.:
use IO::Zlib;
my $zfile = 'your.Z';
my $fh = IO::Zlib->new($zfile, "rb");
if (defined $fh) {
    while(<$fh>) {
       chomp;
       # now process each line:
      # ....
    }
}

hyoryeo

原帖由 ulmer 于 2009-7-6 17:13 发表
Using CPAN Module: IO::Zlib to deal with *.Z file

You can not use binmode to process contents from a *.Z file.

i.e.:
use IO::Zlib;
my $zfile = 'your.Z';
my $fh = IO::Zlib->new($zfile, " ...

Thank ulmer, I will try it

MMMIX

原帖由 ulmer 于 2009-7-6 17:13 发表
Using CPAN Module: IO::Zlib to deal with *.Z file

You can not use binmode to process contents from a *.Z file.

为什么不行？

当然，针对使用 Compress::Zlib 的情况，使用 IO::Zlib 是正确的选择。

hyoryeo

請問能否加快读取压缩包的速度的方法?

hyoryeo

使用IO::Zlib;出來的数据是乱码!请问该怎么做?

MMMIX

原帖由 hyoryeo 于 2009-7-7 09:46 发表
使用IO::Zlib;出來的数据是乱码!请问该怎么做?

完整的可重现问题的代码贴上来看看。

ulmer

put your *.Z file here if possible.

1. Using open FH, '-|', 'zcat', 'yourZfile' or die $!;
    then processing while(<FH>) each line is most simplest way.

2.  IO::Zlib will output unziped or decoded original text. if your original text
    with other encoding (GB) encoded, the extra decoding for original text
   should be used.

Test:
# compress /etc/passwd as pwd.Z file
cat /etc/passwd | gzip -f > pwd.Z
# check it
zcat pwd.Z
# using perl IO::Zlib to process its data:
perl -MIO::Zlib -e '$f=IO::Zlib->new("pwd.Z","rb");print while(<$f>)'

hyoryeo

原帖由 MMMIX 于 2009-7-7 15:58 发表

完整的可重现问题的代码贴上来看看。

1. 
   
2. sub creatTmp(){ #read each line and put the attribute to record hash
   
3.         my ($infile,$mmsgz,$smtingz,$iomgz)= @_;
   
4.         my $tmpStatus;
   
5.         my $tmpStatuscode;
   
6.         my $tmpStart;
   
7.         my $tmpEnd;
   
8.         #if(!open(INFILE,"zcat $infile|")){
   
9.          #       die("Could not open file $infile:$!");
   
10.         #}
    
11.          my $readOriginal = IO::Zlib -> new("$infile","rb");
    
12.         if(defined $readOriginal){
    
13.                 while(<$readOriginal>){
    
14.                 chomp;
    
15.                 next if /^Record.*\(.*\).*\"MiepPush.+\"/../End/;
    
16.                 if (/(^Record.*\(\d+\).*\"MiepPull.+")/){
    
17.                         $tmpStart=$1;
    
18.                 } elsif (/\s+\"(.*)\"\s\=\s\"(.*)\"/){
    
19.                         $tmpStatus = $1;
    
20.                         $tmpStatuscode = $2;
    
21.                         $recordhash{$tmpStatus} = $tmpStatuscode;
    
22.                 } elsif (/(^End.*Record.*\(\d+\))/){
    
23.                         $tmpEnd = $1;
    
24.                         if ($recordhash{"url"}=~/http\:\/\/mms\.smartone.+|202\.140\.96\.(?=92|208|46|97|227|47).+|10\.16\.96\.(?=76
    
25. |79|93|94|187|188|180|137|167).+/i){
    
26.                         $mmsgz -> gzwrite($tmpStart."\n");
    
27.                                 foreach (keys %recordhash){
    
28.                                         $mmsgz -> gzwrite("\"".$_."\" = \"".$recordhash{$_}."\"\n");
    
29.                                 }
    
30.                                 $mmsgz->gzwrite($tmpEnd."\n");
    
31.                           }
    
32.                           undef %recordhash;
    
33.                     }
    
34.            }
    
35.            #undef $readOriginal;
    
36. }
    

复制代码

[ 本帖最后由 hyoryeo 于 2009-7-7 18:07 编辑 ]

hyoryeo

原帖由 ulmer 于 2009-7-7 16:16 发表
put your *.Z file here if possible.

1. Using open FH, '-|', 'zcat', 'yourZfile' or die $!;
    then processing while() each line is most simplest way.

2.  IO::Zlib will output unziped or d ...

if i use test by
Test:
# compress /etc/passwd as pwd.Z file
cat /etc/passwd | gzip -f > pwd.Z
# check it
zcat pwd.Z
# using perl IO::Zlib to process its data:
perl -MIO::Zlib -e '$f=IO::Zlib->new("pwd.Z","rb");print while(<$f>)'

的确是正常的..但是我的.Z还是乱码?我再试试.

[ 本帖最后由 hyoryeo 于 2009-7-7 16:50 编辑 ]