Gunzip .gzファイルperl

Question

私はPerlに取り組んでいます。ウェブサイトから.gzファイルをダウンロードし、次にgunzipまたは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を使ってファイルを解放します。 $ fileにダウンロードして保存したファイルは正常ですが、gunzipコードは正常に動作していません。助けてくれてありがとう、ありがとう。

Answer 1

あなたの名前空間にgunzip機能をインポートする必要があります。

use IO::Uncompress::Gunzip qw(gunzip $GunzipError);