Gunzip .gz Datei in Perl

Question

Ich arbeite an Perl. und ich muss eine .gz-Datei von der Website herunterladen, dann gunzip oder dekomprimiere es in Perl. Mein Code:

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"; 

Ich benutze die Entpacken Sie die Datei freizugeben. Die Datei heruntergeladen und in $ Datei erfolgreich gespeichert, aber der Gunzip-Code funktioniert nicht. Schätze für jede Hilfe, danke.

Answer 1

Sie müssen die gunzip Funktion in Ihren Namensraum importieren:

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