perlでzipやlzhなどの圧縮ファイルを作成するコードの紹介です。
最初systemを利用してOSコマンドで圧縮を行おうと考えたのですが、zipファイル作成のためのコマンドはデフォルトでは用意されていないのでArchive::Zipを利用して実現しています。
#!c:/perl/bin/perl
use strict;
use Archive::Zip;
my $zip = Archive::Zip->new();
$zip->addFile('foo.txt');
$zip->addFile('bar.txt');
$zip->writeToFileNamed('hoge.zip');
