eleksir/misc
1
Fork 0
Code Activity

zip_nes_roms.pl: change compress option - assume binary data being compressed, shorten output message.

Browse Source
This commit is contained in:
Sergei
2017-02-11 11:35:05 +00:00
parent eca38af320
commit ef9b764ef1
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
zip_nes_roms.pl
View File

@@ -8,6 +8,7 @@ use warnings "all";
use IO::Compress::Zip qw(:all); use IO::Compress::Zip qw(:all);
sub zlist(@); sub zlist(@);
my $L1; my $L1;
opendir($L1, ".") || die; opendir($L1, ".") || die;
my @L1DIR = readdir($L1); my @L1DIR = readdir($L1);
@@ -41,11 +42,11 @@ sub zlist(@){
my $item; my $item;
foreach $item (@list) { foreach $item (@list) {
printf ("zipping: %s to %s.zip", $item, $item); printf ("zipping: %s", $item);
zip [$item] => "$item.zip", -Level => Z_BEST_COMPRESSION, Minimal => 1, TextFlag => 1; zip [$item] => "$item.zip", -Level => Z_BEST_COMPRESSION, Minimal => 1, TextFlag => 0;
if(length($ZipError) > 0){ if(length($ZipError) > 0){
printf ("Warning: unable to zip %s - %s\n", $item, $ZipError); printf (" Warning: unable to zip %s - %s\n", $item, $ZipError);
}else{ }else{
printf (" and deleting source file\n"); printf (" and deleting source file\n");
unlink($item); unlink($item);