# It will change all files with a divx extension.
##
-while(<*.divx>){
+while(<*.divx>){
$old=$_;
- # remove the Series name at beginning
- s/.*(\dx\d{2}.*)/\1/;
-
- # remove (HD xxxp/i) on HD Series
- s/\+%28HD\+\d+[pi]%29//;
-
- # remove the + if at beginning of line else replace with space
+ # remove the Series name at beginning
+ s/.*(\dx\d{2}.*)/\1/;
+
+ # remove (HD xxxp/i) on HD Series
+ s/\+%28HD\+\d+[pi]%29//;
+
+ # remove the + if at beginning of line else replace with space
s/^\+//;
s/\+{1,2}/ /g;
-
+
# Change URL encodings
s/%26/&/gi;
- s/%2C/,/gi;
- s/%3F/?/gi;
- s/%3A/ -/gi;
- s/%27/\'/gi;
- s/%28/\(/gi;
- s/%29/\)/gi;
- s/%3D/=/gi;
- s/%21/!/gi;
-
- # remove any duplicate spaces
- s/ {2,}/ /;
-
- # change to avi
- s/divx$/avi/;
-
+ s/%2C/,/gi;
+ s/%3F/?/gi;
+ s/%3A/ -/gi;
+ s/%27/\'/gi;
+ s/%28/\(/gi;
+ s/%29/\)/gi;
+ s/%3D/=/gi;
+ s/%21/!/gi;
+
+ # change to avi
+ s/divx$/avi/;
+
rename $old ,"$_";
}
+