如何复制压缩文件数据到一个txt文件

Question

现在我需要将zip文件中的数据复制到一个。txt文件中，即所有R1文件夹文件数据应该复制并保存在一个R1.txt文件中，类似R2文件夹文件数据应该保存在一个R2.txt文件中。有可能从压缩文件复制数据吗?

#!/usr/bin/perl
use File::Copy;
use strict;
use warnings;
print"Enter Folder name n";
print"File name: ";
chomp(my $Filename=<>);
mkdir "R1";
mkdir "R2";

opendir(DIR,"$Filename") or die "cannot open directory";
foreach my $name (readdir(DIR))
{
next if ($name =~ /^./);
  if($name =~ /R1/) { #compare $name not $Filename
   copy("$Filename/$name", "R1"); # copy the file from folder to R1 directory
   system("cat  $Filename/$name >> R1.txt");
}
elsif($name =~ /R2/){
   copy("$Filename/$name","R2"); ## copy the file from folder to R2 directory
 system("cat  $Filename/$name >> R2.txt");
    }
  }

Answer 1

无需解压缩文件即可提取内容，无需使用模块即可提取内容的最简单方法是在perl

中使用Unix命令。

use strict;
use warnings;
my $text = `unzip -c customer.xml.gz`;
print $text ."n";

提取内容后，将其写入一个.txt文件