如何读取在perl中被压缩和焦油的文件

Question

我已将文本文件“FilenameKeyword.txt”文件放在E：/Test文件夹中，在我的perl脚本中，我正在尝试遍历该文件夹，并且我正在尝试找到一个带有文件名的文件，其中包含字符串“关键字”，后来我在我的脚本中打印了该文件的内容。现在我希望对放置在压缩的tar文件中的文件做同样的事情。

我试图从中提取详细信息的假设文件：E:\test.tar.gz

想知道在perl中是否有可能搜索和读取文件而不解压缩/解压缩假设文件。如果这是不可能的，我还将分配一些临时内存来解压文件，在从特定文本文件中提取内容后应将其删除。

在互联网上搜索时，我可以使用Archive::Extrac来提取和读取gzip/tar文件，因为我是Perl的新手——我真的很困惑我应该如何使用它。你能帮忙吗……

输入文件：文件名关键字.txt

脚本：

use warnings;
use strict;

my @dirs = ("E:\\Test\\");
my %seen;
while (my $pwd = shift @dirs) {
        opendir(DIR,"$pwd") or die "Cannot open $pwd\n";
        my @files = readdir(DIR);
        closedir(DIR);
        foreach my $file (@files) 
        {
                if (-d $file and ($file !~ /^\.\.?$/) and !$seen{$file}) 
                {
                        $seen{$file} = 1;
                        push @dirs, "$pwd/$file";
                }
                next if ($file !~ /Keyword/i);
                my $mtime = (stat("$pwd/$file"))[9];
                print "$pwd$file";
                print "\n";
                open (MYFILE, "$pwd$file");
                while (my $line = <MYFILE>){
                #print $line;
                my ($date) = split(/,/,$line,2);
                if ($line =~ s!<messageText>(.+?)</messageText>!!is){
                print "$1";
                }
                }

        }
}

输出（在测试程序文件中放在E:\test下）：

E:\Test\FilenameKeyword.txt
1311 messages Picked from the Queue.

寻求帮助来检索E:\test.tar.gz下的文件内容

期望输出：

E:\test.tar.gz\FilenameKeyword.txt
1311 messages Picked from the Queue. 

Answer 1

如果您的文件仅被 gzip 压缩，则可以按照此处概述的“流式”方式读取其内容（通过管道连接到/来自没有系统或反引号的子进程 - gzipped tar 文件）。本文说明了一种使用 open 和 fork 来打开和解压缩文件，然后将其提供给 Perl 的 while（），从而允许您迭代它的技术。

由于 tar 基本上是连接事物，因此有可能使其适应您的方案。

Answer 2

我被困在使用CPAN模块，CPAN模块不适合我，因为我在同一台机器上有预言机10g企业版，由于做了一些软件冲突活动状态perl无法编译和参考CPAN模块的perl库，我已经卸载了我的机器中的预言机来使这个工作....

#!/usr/local/bin/perl
use Archive::Tar;
my $tar = Archive::Tar->new;
$tar->read("test.tar.gz");
$tar->extract();