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(
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 $_;