luxs has asked for the wisdom of the Perl Monks concerning the following question:

I'm using Archive::Extract, as in the original example. 
use Archive::Extract;
my $ae = Archive::Extract->new( archive => 'myfile.tgz' );
my $ok = $ae->extract or die $ae->error;

[download]
And the file myfile.tgz is broken. This code produce error on the screen 
Unable to extract 'myfile.tgz':  at ./data_sort.pl line 156.

[download]
and continue to execute the further code, but it should die!!! What was wrong? How to catch this error?

Replies are listed 'Best First'.
Re: Archive::Extract - error handling
by kevbot (Vicar) on Aug 29, 2016 at 02:51 UTC
    I could not reproduce this problem using a bogus myfile.tgz (I used a small text file). This script would die as expected. 
    #!/usr/bin/env perl

use strict;
use warnings;

use Archive::Extract;
my $ae = Archive::Extract->new( archive => 'myfile.tgz' );
my $ok = $ae->extract or die $ae->error;

    [download]
    If you are on an older version of Archive::Extract, it may be worth updating to the most current version of Archive::Extract and trying again. If you still encounter the problem, perhaps something like Try::Tiny could help, 
    #!/usr/bin/env perl

use strict;
use warnings;

use Archive::Extract;
my $ae = Archive::Extract->new( archive => 'myfile.tgz' );
my $ok;

try{
    $ok = $ae->extract;
} catch {
    print "Caught!\n\n";
    die $ae->error; 
};

print "This ran after try/catch!\n";

exit;

    [download]
[reply]
[d/l]
[select]
      Unfortunately, this script (Try::Tiny) do not caught anything.
[reply]
      This is a archive wich generate this strange error http://3dpdb.com/VLF20160618.tgz
[reply]
        As documented, if pure perl can't extract the archive, the external command line tool is tried instead if available. tar xzf works fine on the file, but produces nothing.

        Confirmed by turning debugging on: 

        #!/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";

        [download]

        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

        [download]

        ($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,

        [download]
[reply]
[d/l]
[select]
Re: Archive::Extract - error handling
by Anonymous Monk on Aug 29, 2016 at 02:02 UTC

    and continue to execute the further code, but it should die!!! What was wrong? How to catch this error?

    check %SIG for a __DIE__ handler that doesn't die

[reply]

Back to Seekers of Perl Wisdom