[mythtv] tv.com perl script

Peter Kornhuld Webmaaschter at gmx.de
Tue Mar 14 15:07:06 UTC 2006


Hi,
I also added this

sub getShowDataFromName { 
my ($filename) = @_; 
if ($opt_d) { printf("(DD) Show Name: '%s'\n", $filename);}

># if there are more than one Episode in one file (Serie.S02E13-14 or 
Serie.02x13-14) take the first one
>if ( $filename =~ /[0-9][0-9]-[0-9][0-9]/) {
>if ($opt_v) { print "(V1) File seems to have more than one show\n"; }
>$filename =~ s/(\d\d)-(\d\d)/\1/g;
>if ($opt_v) { print "(V1) New show name: $filename\n"; }
>}
	
# Convert " - " to "." as Delimiter
if ( $filename =~ / - /) {
if ($opt_v) { print "(V1) Show name has \" - \" as delimiter\n"; }
$filename =~ s/ - /\./g;
if ($opt_v) { print "(V1) New show name: $filename\n"; }
}

Greets
Peter


More information about the mythtv-dev mailing list