35 lines
785 B
Perl
35 lines
785 B
Perl
# bug 1. final results as *.zip files are deleted by wrong
|
|
# bug 2. folders containing space cannot be correctly parsed.
|
|
|
|
use File::Find;
|
|
use File::Copy;
|
|
use Cwd;
|
|
|
|
if ($ARGV[0] =~ m|^\s*$|)
|
|
{
|
|
print "Rename warez directories.\n";
|
|
print "Usage: perl $0 TOP_DIR\n";
|
|
print "Example: perl $0 /temp/my0day\n";
|
|
exit 0;
|
|
}
|
|
|
|
@dirs = glob "$ARGV[0]/*";
|
|
|
|
foreach $dir (@dirs)
|
|
{
|
|
$org = $dir;
|
|
$dir =~ s|\.| |g;
|
|
$dir =~ s|_| |g;
|
|
$dir =~ s|/||g;
|
|
$dir =~ s|Wiley (Interscience)?||g;
|
|
$dir =~ s|Wiley (IEEE Press)?||g;
|
|
$dir =~ s|eBook-.*$||g;
|
|
$dir =~ s|ebook-.*$||g;
|
|
$dir =~ s|(Jan\|Feb\|Mar\|Apr\|May\|Jun\|Jul\|Aug\|Sep\|Oct\|Nov\|Dec) 200\d||g;
|
|
$dir =~ s|^\s+||;
|
|
$dir =~ s|\s+$||;
|
|
print "$dir\n";
|
|
rename $org, "p{Wiley} t{$dir}";
|
|
}
|
|
|