Does this fail to match on 5.18.x (it works on 5.20 but I don't have a
5.18 to try against).
Create regextest.pl containing
Code:
--------------------
print "Perl version : $^V\n";
$url = 'http://stream.srg-ssr.ch/m/rsc_de/aacp_96';
$regex = '\/\/stream\.srg-ssr\.ch\/m\/(.*?)(?:_(de|fr|it))?\/(?:aacp|mp3)_';
if ( $url =~ /$regex/ ){ # This regex should return a match in capture
($1)
if ( defined $1 ){
my $field = $1;
print("found $field\n");
} else {
print("not found\n");
}
} else {
print("really not found\n");
}
--------------------
and then
perl regextest.pl
Paul Webster
http://dabdig.blogspot.com
author of \"now playing\" plugins covering radio france (fip etc),
planetradio (bauer - kiss, absolute, scala, jazzfm etc), kcrw, abc
australia and cbc/radio-canada
and, via the extra \"radio now playing\" plugin, allzic radio, caroline
flashback, cesky rozhlas, frequence3, jukeradio, klassikradio.de, linn
radio, mother earth, naim radio, nova.fr, radioblues flac, radio espace,
radio swiss, rte ireland, somehow jazz, supla finland
------------------------------------------------------------------------
Paul Webster's Profile: http://forums.slimdevices.com/member.php?userid=105
View this thread: http://forums.slimdevices.com/showthread.php?t=115201
_______________________________________________
plugins mailing list
plugins@lists.slimdevices.com
http://lists.slimdevices.com/mailman/listinfo/plugins
