我正在尝试使用以下内容设置 tarball 中包含的文件的文件权限:
print "Checking $tgz_file... ";
my $edited = 0;
my $tarball = Archive::Tar->new($tgz_file);
my @items = $tarball->get_files();
foreach (@items) {
if ($_->is_dir && $_->mode != 0755) {
$_->mode(0755);
$edited = 1;
} elsif ($_->is_file && $_->mode != 0644) {
$_->mode(0644);
$edited = 1;
}
}
if ($edited) {
$tarball->write($tgz_file, COMPRESS_GZIP);
print "edited!\n";
} else {
print "no changes.\n";
}
但是当write()
调用该方法时,脚本会因以下错误而死:
在“大”请求 268439552 字节期间内存不足,在 /usr/lib/perl5/5.10/i686-cygwin/IO/Compress/Adapter/Deflate.pm 第 43 行,总 sbrk() 为 313298944 字节。
触发此错误的 tarball 为 22MB(未压缩为 59MB),因此上面的数字有点令人担忧。我在处理一个错误IO::Compress
吗?在这种情况下是否有某种解决方法?我将 perl 5.10.1 用于 i686-cygwin-thread-multi-64int。