u

script_nuance/tools/warez_extracter.pl

@@ -0,0 +1,62 @@
+# 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 "Extract warez directories recursively.\n";
+    print "Usage: perl $0 TOP_DIR\n";
+    print "Example: perl $0 /temp/my0day\n";
+    exit 0;
+}
+
+@dirs = ($ARGV[0]);
+
+find ( {wanted => \&wanted},
+       @dirs );
+
+sub wanted
+{
+    if (-d $_)
+    {
+	# We are in the containing folder of $_
+	$folder = $_;
+	$folder =~ s| |_|g; # folders containing space in names cannot be extracted.
+	rename $_, $folder;
+
+	@zipfiles = glob "$folder/*.zip";
+	foreach $zipfile (@zipfiles)
+	{
+	    print "$zipfile\n";
+	    system "unzip -n $zipfile -d $folder";
+	}
+
+	@rarfiles = glob "$folder/*.rar";
+	if (scalar @rarfiles > 0)
+	{
+	    $rarfile = $rarfiles[0]; # Only the first rar (which is the sole *.rar or *.part1.rar) is to be extracted. 
+	    print "$rarfile\n";
+	    system "\"s:/Program Files/WinRAR/RAR.exe\" x -o- $rarfile $folder > $folder/unrar.info";
+	}
+
+	#############################
+	##### WARNING ###############
+	# sometime a file extracted from *.rar is another *.zip! In this case it will be deleted by wrong!
+	open INFO, "$folder/unrar.info" or next;
+	while (<INFO>)
+	{
+	    if (m|All OK|)
+	    {
+		unlink glob "$folder/*.zip";
+		unlink glob "$folder/*.r??";
+		unlink glob "$folder/*.DIZ";
+		unlink glob "$folder/*.diz";
+		unlink glob "$folder/unrar.info";
+	    }
+	}
+	close INFO;
+   }
+}