csv 文件被写入 /home/logs/app/ 目录。您需要打包 app 目录并在 /home/logs/ 中获取存档。现在我使用系统调用“system ('zip -jr '/home/logs/app/logs.zip '/home/logs/app/log/');”来做到这一点 我想摆脱系统调用并使用 Compress::Zlib。
试图这样运行
my @files = ('log_01','log_02','log_03');
my $dirname = 'app';
my $path = '/home/logs/';
foreach my $file (@files) {
open(FILE,$path.$dirname.'/'.$file) or die "$!";
my $gz = gzopen($gzfile, 'ab');
while(<FILE>){
my $byteswritten = $ gz-> gzwrite ($_);
}
$gz->gzclose();
close(FILE);
}
但是,在输出中,我得到一个带有日志文件的存档,没有扩展名。如果您打开它,则它包含来自文件的信息表。
如何获得一个存档,其中将有一个日志目录,并且所有文件都已经在其中?