FM / examples

/usr/share/doc/perl-Archive-Zip/examples/

/usr/share/doc/perl-Archive-Zip/examples

Name	Size	Mode	Actions
calcSizes.pl	948	0644	edit dl rm
copy.pl	452	0644	edit dl rm
extract.pl	896	0644	edit dl rm
mailZip.pl	1613	0644	edit dl rm
mfh.pl	640	0644	edit dl rm
readScalar.pl	750	0644	edit dl rm
selfex.pl	1569	0644	edit dl rm
unzipAll.pl	561	0644	edit dl rm
updateTree.pl	822	0644	edit dl rm
updateZip.pl	892	0644	edit dl rm
writeScalar.pl	614	0644	edit dl rm
writeScalar2.pl	613	0644	edit dl rm
zip.pl	666	0644	edit dl rm
zipcheck.pl	1010	0644	edit dl rm
zipGrep.pl	1451	0644	edit dl rm
zipinfo.pl	4466	0644	edit dl rm
ziprecent.pl	7706	0644	edit dl rm
ziptest.pl	1801	0644	edit dl rm

Edit: /usr/share/doc/perl-Archive-Zip/examples/zipGrep.pl (1451B)

if (@ARGV != 2) {
    print <<EOF;
This program searches for the given Perl regular expression in a Zip archive.
Archive is assumed to contain text files.
Usage:
	perl $0 'pattern' myZip.zip
EOF
    exit 1;
}

my $pattern = shift;
$pattern = qr{$pattern};    # compile the regular expression
my $zipName = shift;

my $zip = Archive::Zip->new();
if ($zip->read($zipName) != AZ_OK) {
    die "Read error reading $zipName\n";
}

foreach my $member ($zip->members()) {
    my ($bufferRef, $status, $lastChunk);
    my $memberName = $member->fileName();
    my $lineNumber = 1;
    $lastChunk = '';
    $member->desiredCompressionMethod(COMPRESSION_STORED);
    $status = $member->rewindData();
    die "rewind error $status" if $status != AZ_OK;

while (!$member->readIsDone()) {
        ($bufferRef, $status) = $member->readChunk();
        die "readChunk error $status"
          if $status != AZ_OK && $status != AZ_STREAM_END;

my $buffer = $lastChunk . $$bufferRef;
        while ($buffer =~ m{(.*$pattern.*\n)}mg) {
            print "$memberName:$1";
        }
        ($lastChunk) = $$bufferRef =~ m{([^\n\r]+)\z};
    }

$member->endRead();
}

#!/usr/bin/perl -w # This program searches for the given Perl regular expression in a Zip archive. # Archive is assumed to contain text files. # By Ned Konz, perl@bike-nomad.com # Usage: # perl zipGrep.pl 'pattern' myZip.zip # use strict; use Archive::Zip qw(:CONSTANTS :ERROR_CODES); if (@ARGV != 2) { print <new(); if ($zip->read($zipName) != AZ_OK) { die "Read error reading $zipName\n"; } foreach my $member ($zip->members()) { my ($bufferRef, $status, $lastChunk); my $memberName = $member->fileName(); my $lineNumber = 1; $lastChunk = ''; $member->desiredCompressionMethod(COMPRESSION_STORED); $status = $member->rewindData(); die "rewind error $status" if $status != AZ_OK; while (!$member->readIsDone()) { ($bufferRef, $status) = $member->readChunk(); die "readChunk error $status" if $status != AZ_OK && $status != AZ_STREAM_END; my $buffer = $lastChunk . $$bufferRef; while ($buffer =~ m{(.*$pattern.*\n)}mg) { print "$memberName:$1"; } ($lastChunk) = $$bufferRef =~ m{([^\n\r]+)\z}; } $member->endRead(); }