Habe es etwas angepasst, bitte einmal testen.
Diff
--- VDREplistChecker.pl.2017-10-05 2017-10-05 19:52:02.904000000 +0200
+++ VDREplistChecker.pl 2017-10-05 19:52:57.740000000 +0200
@@ -122,15 +122,15 @@
if ( $Line =~ /^#\s*SEASONLIST/ ) { $Seasonlist = 1; next; }
if ( $Line =~ /^#\s*\/SEASONLIST/ ) { $Seasonlist = 0; next; }
- if ( $Seasonlist && $Line =~ /^#\s*(\d{1,3})\s*\t\s*(\d{1,3})\s*\t\s*(\d{1,3})\s*$/ ) {
+ if ( $Seasonlist && $Line =~ /^#\s*(\d{1,3})\s*\t\s*(\d{1,4})\s*\t\s*(\d{1,4})\s*$/ ) {
%maxep = ( season => $1 + 0, start => $2 + 0, stop => $3 + 0, max => $3-$2+1 );
}
next if $Seasonlist;
my $spacer1 = '(?:\t|~|\ {1,})';
my $spacer2 = '(?:\t|~|\ {3,})';
- if ( $Line =~ /^\s*(\d{1,3})\s*${spacer1}\s*(\d{1,3})\s*${spacer1}\s*(\d{1,3})\s*${spacer1}\s*(.*?)\s*${spacer2}\s*(.*?)\s*$/ ||
- $Line =~ /^\s*(\d{1,3})\s*${spacer1}\s*(\d{1,3})\s*${spacer1}\s*(\d{1,3})\s*${spacer1}\s*(.*?)\s*$/ ||
- $Line =~ /^\s*(\d{1,3})\s*${spacer1}\s*(\d{1,3})\s*${spacer1}\s*(\d{1,3})\s*$/ ) {
+ if ( $Line =~ /^\s*(\d{1,3})\s*${spacer1}\s*(\d{1,4})\s*${spacer1}\s*(\d{1,4})\s*${spacer1}\s*(.*?)\s*${spacer2}\s*(.*?)\s*$/ ||
+ $Line =~ /^\s*(\d{1,3})\s*${spacer1}\s*(\d{1,4})\s*${spacer1}\s*(\d{1,4})\s*${spacer1}\s*(.*?)\s*$/ ||
+ $Line =~ /^\s*(\d{1,3})\s*${spacer1}\s*(\d{1,4})\s*${spacer1}\s*(\d{1,4})\s*$/ ) {
%LineField = ( Season => $1+0, Episode => $2+0, EpisodeOverAll => $3+0, Subtitle => ( defined $4 && $4 ) ? $4 : "n.n.", Miscellaneous => ( defined $5 && $5 ) ? $5 : "");
$LineField{Subtitle} =~ s/^\s*n\.?n\.?\s*$/n\.n\./;
Display More