Echoing what's already been said here, I agree that either Archive::Zip or Compress::Zlib and Archive::Tar are your best bets. If you need to compress multiple files into one zip archive that is readable on Windows, I would recommend Archive::Zip. However, if you only need to compress one file (and if that one file happens to be the output of your program) my recommendation is IO::Zlib. This is great module that lets you create an IO handle that reads or writes a gzip compressed file. Here are some snippets to get your started:
Using Archive::Zip:
#!/bin/perl -w
use warnings;
use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS);
#almost verbatim from the Archive::Zip docs:
my $zip = Archive::Zip->new();
my $member = $zip->addFile('t.out');
die 'Error writing file' if $zip->writeToFileNamed('foo.zip') != AZ_OK
+;
using IO::Zlib:
#!/bin/perl -w
use warnings;
use strict;
require 5.004; #using TIEHANDLE interface
use IO::Zlib;
tie *FILE, 'IO::Zlib', "foo.txt.gz", "wb";
#do your stuff here
#everything written to FOO gets compressed and stored in foo.gz
print FILE "hello world\n";
If you want to use Compress::Zlib and Archive::Tar then just read the docs but I doubt it's very difficult. The above two are certainly straightforward and easy.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|