#!/usr/bin/perl
use strict;
use warnings;
my $archive_files = "C:\\Temp\\FREMOTE\\test.zip";
sub extract_archive($$);
extract_archive($archive_files, "C:\\Temp\\FREMOTE\\TEST\\");
extract_archive("C:\\Temp\\FREMOTE\\TEST\\testb.zip",
"C:\\Temp\\FREMOTE\\TEST\\testb\\");
sub extract_archive($$) {
my $archive_file = shift;
my $extract_dir = shift;
if (! -d "$extract_dir") {
mkdir $extract_dir;
}
use Archive::Any;
my $archive = Archive::Any->new($archive_file);
if($archive->extract($extract_dir)) {
print "Extracted $archive_file into $extract_dir\n";
undef $archive;
} else {
print "Failed to extracted $archive_file into $extract_dir\n";
}
}
我收到以下错误。我该如何解决?
IO 错误:复制期间写入错误:文件描述符错误 在 C:/Perl/site/lib/Archive/Any.pm 第 193 行。 IO 错误:复制期间写入错误:文件描述符错误 在 C:/Perl/site/lib/Archive/Any.pm 第 193 行。 IO 错误:复制期间写入错误:文件描述符错误 在 C:/Perl/site/lib/Archive/Any.pm 第 193 行。 IO 错误:复制期间写入错误:文件描述符错误 在 C:/Perl/site/lib/Archive/Any.pm 第 193 行。