Я работаю над Perl. и мне нужно загрузить файл .gz с веб-сайта, а затем запустить или распаковать его на Perl. Мой код:Gunzip .gz файл в perl
use LWP::Simple;
use XML::Simple qw(:strict);
use Data::Dumper;
use DBI;
use Getopt::Long;
use IO::Uncompress::Gunzip qw($GunzipError);
use IO::File;
my $url = 'http://nvd.nist.gov/feeds/xml/cve/nvdcve-2.0-Modified.xml.gz';
my $file = 'nvdcve-2.0-Modified.xml.gz';
getstore($url, $file);
my $xmlFile = 'nvdcve-2.0-Modified.xml';
gunzip $file => $xmlFile
or die "gunzip failed: $GunzipError\n";
Я использую Uncompress для выпуска файла. Файл загружен и сохранен в файле $ успешно, но код gunzip не работает. Благодарим за любую помощь, спасибо.
Missing 'использование LWP :: простого' – ssr1012
@ ssr1012 Привет я использовал, я просто не скопировать эту строку, спасибо. – kcc
Неужели 'die' с _gunzip не удалось: _? Что в '$ GunzipError'? – simbabque