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命令

SET @s1 = (SELECT * FROM `wo_ticket_details_replay` 
WHERE message NOT LIKE "[ SYSTEM%" AND `sv_number`='0715201569998')
CASE WHEN @s1 = NULL THEN
  x = 'false'
ELSE
  x = 'true'
END CASE;

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

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

1 个答案: