11 lines
279 B
Plaintext
11 lines
279 B
Plaintext
|
do "/root/rename-subs/nospecial";
|
||
|
|
do "/root/rename-subs/videos";
|
||
|
|
if (/^Film /) { next; }
|
||
|
|
unless (/^Serie /) { $_= "Serie " . $_; }
|
||
|
|
s/S([1-9])E([1-9][0-9])/S0$1E$2/;
|
||
|
|
s/S([1-9])E([1-9])/S0$1E0$2/;
|
||
|
|
s/ ([0-9]) ([0-9])/ S0$1E0$2/;
|
||
|
|
s/ S([0-9]) E([0-9])/ S0$1E0$2/;
|
||
|
|
s/_+/_/g;
|
||
|
|
s/ +/ /g;
|