Dear Monks,
I faced a problem like 'Unexpected end of archive' when i open a Zipped file 'Test.zip'.
If i comment the line
#local $\ = "\n";
I get a perfect Result. If anyone can help me.
#Updated Script local $\ = "\n"; use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); print "File Archive Started"; my $zip = Archive::Zip->new(); $member = $zip->addFile( 'Test.txt'); die 'write error' unless $zip->writeToFileNamed( 'Test.zip' ) == AZ_OK +; print "File Archive Competed";
Thanks,
Rajesh.K
Edited by planetscape - formatting
In reply to Problem in Archive::Zip by Rajeshk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |