57 lines
1.0 KiB
Perl
57 lines
1.0 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# this script conpress all *.nes files in current dir' subdirs with zip
|
|
#
|
|
|
|
use strict;
|
|
use warnings "all";
|
|
use IO::Compress::Zip qw(:all);
|
|
|
|
sub zlist(@);
|
|
|
|
my $L1;
|
|
opendir($L1, ".") || die;
|
|
my @L1DIR = readdir($L1);
|
|
closedir($L1);
|
|
undef $L1;
|
|
|
|
foreach my $l1dir (@L1DIR) {
|
|
next if($l1dir eq ".");
|
|
next if($l1dir eq "..");
|
|
|
|
if (-d $l1dir) {
|
|
chdir ($l1dir);
|
|
my @list;
|
|
opendir DIR, "." || die;
|
|
|
|
while (readdir(DIR)){
|
|
if ((-f $_) and (($_ =~ /nes$/) or ($_ =~ /unf$/))){ push @list, $_; }
|
|
}
|
|
|
|
closedir (DIR);
|
|
zlist(@list);
|
|
@list = -1; undef @list;
|
|
chdir("..");
|
|
}
|
|
}
|
|
|
|
exit 0;
|
|
|
|
sub zlist(@){
|
|
my @list = @_;
|
|
my $item;
|
|
|
|
foreach $item (@list) {
|
|
printf ("zipping: %s", $item);
|
|
zip [$item] => "$item.zip", -Level => Z_BEST_COMPRESSION, Minimal => 1, TextFlag => 0, BinModeIn => 1, AutoClose => 1, CanonicalName => 1;
|
|
|
|
if(length($ZipError) > 0){
|
|
printf (" Warning: unable to zip %s - %s\n", $item, $ZipError);
|
|
}else{
|
|
printf (" and deleting source file\n");
|
|
unlink($item);
|
|
}
|
|
|
|
}
|
|
}
|