Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
    printf( "Status: %s\tcomp crc: %08x\tfile crc: %08x\t%s\n",
            $status, $crc, $zfile->crc32(), $zfile->fileName());
}

Select or download this

            $member->extractToFileHandle($fh);
            if ($member->extractToFileHandle($fh) != 0){
                print "Error in $archivedir$filename\n";
                next;
            }