nicht angemeldet
Hi zusammen!
Ich versuche gerade, diese riesege Perl-RegExp zur Prüfung der Korrektheit der Syntax einer URL nach PHP zu übersetzten. Leider bekomme ich immer die Meldung "Warning: Unknown modifier '*' in [...]\linkcheck.php on line 100". Zeile 100 ist dabei die Zeile mit dem preg_match Aufruf.
Folgendes habe ich bisher zurechtgebastelt:
<schnip>
// Basic definitions:
$lowalpha = '(?:[a-z])';
$hialpha = '(?:[A-Z])';
$alpha = "(?:$lowalpha$hialpha)";
$digit = '(?:\d)';
$safe = '(?:[$_.+-])';
$extra = '(?:[!*'(),])';
$national = '(?:[{}\\^~[]`])';
$punctuation = '(?:[<>#%"])';
$reserved = '(?:[;/?:@&=])';
$hex = '(?:[\dA-Fa-f])';
$escape = "(?:%$hex$hex)";
$unreserved = "(?:$alpha$digit$safe$extra)";
$uchar = "(?:$unreserved$escape)";
$xchar = "(?:$unreserved$escape$reserved)";
$digits = '(?:\d+)';
$alphadigit = "(?:$alpha\d)";
// URL schemeparts for ip based protocols:
$urlpath = "(?:$xchar*)";
$user = "(?:(?:".$uchar."[;?&=])*)"; //"(?:(?:$uchar[;?&=])*)";
$password = "(?:(?:".$uchar."[;?&=])*)";
$port = "(?:$digits)";
$hostnumber = "(?:$digits\.$digits\.$digits\.$digits)";
$toplabel = "(?:(?:$alpha(?:$alphadigit-)*$alphadigit)$alpha)";
$domainlabel = "(?:(?:$alphadigit(?:$alphadigit-)*$alphadigit)$alphadigit)";
$hostname = "(?:(?:$domainlabel\.)*$toplabel)";
$host = "(?:(?:$hostname)(?:$hostnumber))";
$hostport = "(?:(?:$host)(?::$port)?)";
$login = "(?:(?:$user(?::$password)?@)?$hostport)";
$ip_schemepart = "(?://$login(?:/$urlpath)?)";
$schemepart = "(?:$xchar*$ip_schemepart)";
$scheme = "(?:(?:".$lowalpha.$digit."[+.-])+)";
// The generic form of a URL is:
$genericurl = "(?:$scheme:$schemepart)";
// The predefined schemes:
// FTP (see also RFC959)
$fsegment = "(?:(?:".$uchar."[?:@&=])*)";
$ftptype = "(?:[AIDaid])";
$fpath = "(?:$fsegment(?:/$fsegment)*)";
$ftpurl = "(?:ftp://$login(?:/$fpath(?:;type=$ftptype)))";
// FILE
$fileurl = "(?:file://(?:(?:$host)localhost)?/$fpath)";
// HTTP
$httpuchar = "(?:(?:$alpha$digit$safe(?:[!*',]))$escape)";
$hsegment = "(?:(?:".$httpuchar."[;:@&=~])*)";
$search = "(?:(?:".$httpuchar."[;:@&=~])*)";
$hpath = "(?:$hsegment(?:/$hsegment)*)";
$httpurl = "(?:http://$hostport(?:/$hpath(?:\?$search)?)?)";
// GOPHER (see also RFC1436)
$gopher_plus = "(?:$xchar*)";
$selector = "(?:$xchar*)";
$gtype = "(?:$xchar)";
$gopherurl = "(?:gopher://$hostport(?:/$gtype(?:$selector(?:%09$search(?:%09$gopher_plus)?)?)?)?)";
// MAILTO (see also RFC822)
$encoded822addr = "(?:$xchar+)";
$mailtourl = "(?:mailto:$encoded822addr)";
// NEWS (see also RFC1036)
$article = "(?:(?:".$uchar."[;/?:&=])+@$host)";
$group = "(?:$alpha(?:".$alpha.$digit."[.+_-])*)";
$grouppart = "(?:$article$group\*)";
$newsurl = "(?:news:$grouppart)";
// NNTP (see also RFC977)
$nntpurl = "(?:nntp://$hostport/$group(?:/$digits)?)";
// TELNET
$telneturl = "(?:telnet://$login(?:/)?)";
// WAIS (see also RFC1625)
$wpath = "(?:$uchar*)";
$wtype = "(?:$uchar*)";
$database = "(?:$uchar*)";
$waisdoc = "(?:wais://$hostport/$database/$wtype/$wpath)";
$waisindex = "(?:wais://$hostport/$database\?$search)";
$waisdatabase = "(?:wais://$hostport/$database)";
$waisurl = "(?:$waisdatabase$waisindex$waisdoc)";
// PROSPERO
$fieldvalue = "(?:(?:".$uchar."[?:@&]))";
$fieldname = "(?:(?:".$uchar."[?:@&]))";
$fieldspec = "(?:;$fieldname=$fieldvalue)";
$psegment = "(?:(?:".$uchar."[?:@&=]))";
$ppath = "(?:$psegment(?:/$psegment)*)";
$prosperourl = "(?:prospero://$hostport/$ppath(?:$fieldspec)*)";
$url = "$httpurl$ftpurl$newsurl$nntpurl$telneturl$gopherurl$waisurl$mailtourl$fileurl$prosperourl";
$check = preg_match("!$url!", $HTTP_GET_VARS["test"]);
<schnap>
Hat jemand eine Idee, woran das liegen könnte? Oder gibt es diese PHP-Übersetzung vielleicht schon irgendwo?
Grüße,
Stefan