use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); $namein = "$path\\$name"; $nameout = "$pathout\\AFJPWEB6_$anio$mes$dia\.zip"; print "Comprimiendo ", $namein,"\n"; my $zip = Archive::Zip->new() ; my $member = $zip->addFile( $namein ); my $status = $zip->writeToFileNamed( $nameout ); die "error somewhere" if $status != AZ_OK;
In reply to Re: Zip file problems
by dragonz
in thread Zip file problems
by dragonz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |