#!/usr/bin/perl
use warnings;
use strict;
use Archive::Extract;
$Archive::Extract::DEBUG = 1;
my $ae = Archive::Extract->new( archive => 'VLF20160618.tgz' );
if ($ae->extract) {
use Data::Dumper; Dumper($ae->files);
} else {
warn "ERROR: " . $ae->error;
}
print "Still here\n";
Output:
# Extracting with ->_untar_at
Unable to extract '/home/choroba/_/0/VLF20160618.tgz': at /home/choro
+ba/perl5/lib/perl5/Archive/Extract.pm line 954.
Archive::Extract::_untar_at(Archive::Extract=HASH(0x163e5b8)) call
+ed at /home/choroba/perl5/lib/perl5/Archive/Extract.pm line 438
Archive::Extract::extract(Archive::Extract=HASH(0x163e5b8)) called
+ at ./1.pl line 10
at ./1.pl line 10.
# Extraction method failed
# Extracting with ->_untar_bin
Running [/usr/bin/gzip -c -d -f /home/choroba/_/0/VLF20160618.tgz | /b
+in/tar -tf -]...
Running [/usr/bin/gzip -c -d -f /home/choroba/_/0/VLF20160618.tgz | /b
+in/tar -xf -]...
# Extraction succeeded
Still here
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
|