Routine um URL zu überprüfen

[Christian Kruse]

Hallo Promicha,

sub checkurl {
     my $url = $_[0];
     if ($url =~ m/http://[^\s]*$/i)
     {
         return true;
     }
     else
     {
         return false;
     }
}

erstmal: 'Unquoted string "true" may clash with future
reserved word'. Nach ersetzen von 'true' durch 1 und 'false'
durch 0:

print checkurl('http://"§(W=E)WQ(E=")$?"E"?EPDÜASDÜ"!?=)"?($)=)%'),"\n";
1

Gruesse,
 CK