Gunzip .gz file in perl

Question

I am working on Perl. and I need to download a .gz file from website, then gunzip or decompress it in Perl. My 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";

I use the Uncompress to release the file. The file downloaded and stored in $file successful, but the gunzip code is not working. Appreciate for any help, thanks.

@ssr1012 Hi I used, I just didn't copy that line, thank you. — ccy, Sep 28 '16 at 14:38
Does it `die` with _gunzip failed:_? What's in `$GunzipError`? — simbabque, Sep 28 '16 at 14:41
I wonder why you think that posting a question here is easier than just [reading the module's documentation](https://metacpan.org/pod/IO::Uncompress::Gunzip). — Dave Cross, Sep 28 '16 at 15:03

score 2 · Accepted Answer · answered Sep 28 '16 at 14:41

2

You must import the gunzip function into your namespace:

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

answered Sep 28 '16 at 14:41

redneb

21,794
6
42
54

Gunzip .gz file in perl

1 Answers1