]> git.mjollnir.org Git - scripts.git/commitdiff
2025-07 master
authorPenny Leach <penny@mjollnir.org>
Fri, 4 Jul 2025 07:48:19 +0000 (19:48 +1200)
committerPenny Leach <penny@mjollnir.org>
Fri, 4 Jul 2025 07:48:19 +0000 (19:48 +1200)
bin/renametv.pl

index b763adcd113e868a2f4f8fad8d52581bdc4577ba..ccbc9748492c2e7a7c1553429f3aac34ae260285 100755 (executable)
@@ -13,8 +13,12 @@ my $somethingtodo = 0;
 my @usualsuspects = qw/
     xvid xor ffndvd repack preair aaf 720p x264 dimension dvdrip
     hdtv 0tv fqm 2hd notv ws pdtv lol vtv xii dvdscr sys fov dot
-    vostfr p0w4 caph fihtv flatline brrip ac3 flawl3ss asap afg
-    proper bufu notyou kfv immerse ctu webrip avdroid haggis orenji
+    vostfr p0w4 caph fihtv flatline brrip ac3 flawl3ss asap qcf
+    proper bufu notyou kfv immerse ctu webrip avdroid orenji afg
+    mgd tla evolve vector glowgaze_com hr_bitmetv 480p ksks
+    web_dl_fum mc8 hr bitmetv reencode killers
+    web_dl_aac2 h.264 cyphanix web_dl_dd5.01.h264_borderline
+    1080p abjex 2013 bdrip demand sohu
 /;
 
 GetOptions(
@@ -33,23 +37,21 @@ while (<$inputdir/*>) {
     s/-/_/g;
     s/[\[\]]//g;
     s/_?season_?(\d+)[_|\.]?episode_(\d+)\./.$1$2./;
-    s/\.[S|s]?(\d+)\.?[E|e|x|X]?(\d+)\./.$1$2./;
+    s/[\.|_][S|s]?(\d+)[\.|_]?[E|e|x|X]?(\d+)[\.|_]/.$1$2./;
     s/\.0/./g;
     foreach my $bad (@usualsuspects) {
-        s/(\[|\.|_|-)?$bad(\]|-)?//g;
+        s/(\[|\.|_|-)?$bad(\]|-)?//ig;
     }
     if (/^(.*\/(?!.*\/))([a-z0-9_.]*)((?:_|\.)[0-9]*)(?:_|\.)+([a-z0-9_.,&]*)$/) {
         my ($path, $series, $epno, $title) = ($1, $2, $3, $4);
-        $series =~ s/(_|\.)//g;
+        $series =~ s/(_|\.)/_/g;
         $epno =~ s/.(.*)/$1/g;
+        $epno =~ s/^0(.*)/$1/g;
         $title =~ s/\./_/g;
         $title =~ s/_(mp4|avi|mkv|mov|srt)/.$1/;
         if ($epno =~ /^\d$/) {
             $epno = "0$epno";
         }
-        if ($epno =~ /^0(\d{3})$/) {
-            $epno = $1;
-        }
         $_ = $path . $series . '.' . $epno . '.' . $title;
     }
     next if $current eq $_;