ZIP で固めて、名前をつけて保存 - はちゅにっき3k実験で使おうかと思ったけどやめた。 でも、一応メモとして残しておこうかなー。 ZIPで固めて ⇒ Archive::Zip 名前をつけて保存 ⇒ Content-Disposition: filename=<ファイル名> を出力 #!/usr/bin/perl -w use Archive::Zip; use IO::File; use warnings; use strict; # 保存するテキストファイルの名前 my $filename = 'hoge.txt'; # テキストファイルの中身 my $txt = <<"__EOT__"; 固めるtext 固めるテンプル この文字列を $filename って名前のファイルに保存して固める __EOT__ # zip に固めるための準備 my $zip = Archive::Zip->new; # $text を $filename
