perlで、パスワード付きZIPファイルを作成する方法を教えてください。

Perlで，というと反則かもしれないですが

> zip -P password zip.zip text.txt

のようにしてパスワードが設定できますので、

system("zip", qw(-P password zip.zip text.txt));

のようにすればできるのではないでしょうか。

ただしzipコマンドによっては-Pオプションに対応していないものも

あるようです。

（Mac OS Xの/usr/bin/zipではダメでした。）

http://www.ss.iij4u.or.jp/~somali/web/_archive_zip.html

Archive::Zipでいけるかと思ったのですが、暗号化には非対応でした。

http://www.perl.com/CPAN/modules/by-module/Expect/

http://www.perl.com/CPAN/modules/by-module/Expect/Expect-1.17.re...

zipコマンドとExpectというモジュールを組み合わせてパスワードを自動入力させる方法でいかがでしょうか?

パスワード付Zipだからといって過信は禁物です。Zipパスワードの解読ソフトがフリーで出回っていることはご存知でしょうか。

ある程度長めのパスワード（英数字混合で8桁以上）をセットすることをお勧めします。