@names = ("name1", "name2"); $nameout = "$pathout\\AFJPWEB6_$anio$mes$dia\.zip"; print "Comprimiendo ", $namein,"\n"; my $zip = Archive::Zip->new() ; $zip->addFile( $_ ) for @names; my $status = $zip->writeToFileNamed( $nameout ); die "error somewhere" if $status != AZ_OK;
In reply to Re^2: Zip file problems
by holli
in thread Zip file problems
by dragonz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |