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/mailZip.pl (1613B)

#!/usr/bin/perl -w
# Requires the following to be installed:
#  File::Path
#  File::Spec
#  IO::Scalar, ...         from the IO-stringy distribution
#  MIME::Base64
#  MIME::QuotedPrint
#  Net::SMTP
#  Mail::Internet, ...     from the MailTools distribution.
#  MIME::Tools

use strict;
use Archive::Zip qw(:CONSTANTS :ERROR_CODES);
use IO::Scalar;
use MIME::Entity;    # part of MIME::Tools package

my $zipContents = '';
my $SH          = IO::Scalar->new(\$zipContents);

my $zip = Archive::Zip->new();
my $member;

# add a string as a member:
my $stringMember = '<html><head></head><body><h1>Testing</h1></body></html>';
$member = $zip->addString($stringMember, 'whatever.html');

# $member->desiredCompressionMethod(COMPRESSION_STORED);

# write it to the scalar
my $status = $zip->writeToFileHandle($SH);
$SH->close;

print STDERR "zip is " . length($zipContents) . " bytes long\n";

### Create an entity:
my $top = MIME::Entity->build(
    Type    => 'multipart/mixed',
    From    => 'ned@bike-nomad.com',
    To      => 'billnevin@tricom.net',
    Subject => "Your zip",
);

# attach the message
$top->attach(
    Encoding => '7bit',
    Data     => "here is the zip you ordered\n"
);

# attach the zip
$top->attach(
    Data        => \$zipContents,
    Type        => "application/x-zip",
    Encoding    => "base64",
    Disposition => 'attachment',
    Filename    => 'your.zip'
);

# attach this code
$top->attach(
    Encoding => '8bit',
    Type     => 'text/plain',
    Path     => $0,

# Data => 'whatever',
    Disposition => 'inline'
);

# and print it out to stdout
$top->print(\*STDOUT);

cmd: