Re: Unzipping a File

[chanakya]

Why dont you try unzipping the zip file and see if the file exists.

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $obj = Archive::Zip->new("./DBtest.zip");
my @members = $obj->memberNames();
#Get the list of members
print Dumper @members;

foreach my $memb (@members){
        my $ret = $obj->extractMember($memb, "/tmp/test-folder/$memb")
+;
        if($ret != 0){
                print "Problem extracting $memb\n";
        }
}

Hope this helps

[Anonymous Monk]

Thanks a Lot!!!
It was a great help!!!!!