Re: Archive::Zip performance question


We don't bite newbies here... much
	PerlMonks

Re: Archive::Zip performance question

by Miguel (Friar)

on Feb 16, 2005 at 22:56 UTC ( [id://431781]=note: print w/replies, xml )

Need Help??

in reply to Archive::Zip performance question

I spent 86 seconds to add 5.000 .txt files (only 6 Kb each...) to a zip file:

#!/usr/bin/perl -w

use strict;
use Archive::Zip;
use IO::All;

my $io = io(".");
my $zip = Archive::Zip->new();
my $t1 = time();

while ( $_ = $io->next ) {
    $zip->addFile("$_") if $_ =~/\.txt$/;
}
$zip->writeToFileNamed('ZipFile.zip');

print "\n", time() - $t1, "\n";
[download]

I'm using Linux on a PIV 1.7Ghz with 256Mb Ram