nicht angemeldet
use Mosche;
ich bin auf der Suche nach einer Perl-Routine, die eine URL auf syntaktische Korrektheit überprüft.
Ich habe auch schon im Internet gesucht, leider jedoch keine für mich brauchbare Lösung gefunden. Es möchte nicht überprüfen, ob es diese URL tatsächlich gibt (da ich Netz- und Serverressourcen sparen will), sondern nur prüfen, ob es diese geben kann. Zudem kann es ja sein, daß jemand seine Seite angibt, die er/sie noch nicht hochgeladen hat...
Nimm doch zB die Routine, die im alten Forum verwendet wurde: http://www.sourceforge.net/projects/selfforum/. Lad dir da die Main-Source (http://sourceforge.net/project/showfiles.php?group_id=21057&release_id=33323) runter und schaue dir die Datei cgi-bin/shared/CheckRFC.pm an. Du kannst diese Datei zB in dein cgi-bin schieben und in dein Script am ANfang schreiben:
use CheckRFC.pm;
Die entsprechende Funktion heisst is_URL().
use Tschoe qw(Matti);
$a=n(1001010);print chr($a+=$_)for(0,43,-2,1,-84,65,13,1,5,
-12,-3,13,-82,48,21,13,-6,-76,72,-7,2,8,-6,13,-104);sub n{
$b=0;$_=0;for($c=length$_[0];$c;--$c){$_+=_($b)if substr$_
[0],$c-1,1;$b++;}$_}sub _{($d)=@_;for($e=1;$d--;$e*=2){}$e}