perl - 複数のファイルが同じ名前の zip ファイルを作成する方法

Question

同じ名前の 2 つのファイルから zip ファイルを作成するのを手伝ってくれる人はいますか。これはテスト目的の 1 つです。a.txt と a.txt のような同じファイルを内容とする zip ファイルがあれば教えてください。どんな助けでも大歓迎です。

Answer 1

これは実際にはArchive::Zipを使用すると非常に簡単です。

my $zip = Archive::Zip->new;
$zip->addString("test one", "a.txt");
$zip->addString("test two", "a.txt");
$zip->writeToFileNamed("test.zip");

標準の解凍ツールで解凍しようとしても、特に興味深いことは何も起こりません。

$ unzip test.zip
Archive:  test.zip
 extracting: a.txt
replace a.txt? [y]es, [n]o, [A]ll, [N]one, [r]ename: y
 extracting: a.txt

もちろん、もう少し興味深いコンテンツを好む場合は、 のaddFile代わりに メソッドを使用できますaddString。