Bad-Wortfilter

[Patrick Andrieu]

Hallo Malcolm!

If zutrifft { function exikutier($User); } else { exikutier($UserSicherheitshalber); }   ;)

use strict;  
use LWP::Simple;  
  
agentur_bashing('l***m', 'http://www.l***m.de');  
  
sub agentur_bashing (agentur, uri) {  
  my ($agentur, $uri) = @_;  
  my $result = get("http://validator.w3.org/check?uri=$uri");  
  if ($result =~ m/passed/) {  
    print "$agentur kann man vielleicht empfehlen";  
  else {  
    print "$agentur ist eine eingebildete Ideen^H^H^Hiotenschmiede";  
  }  
}

;) (Zwar kein Perl, aber aus aktuellem Anlaß...)

Irgendwann will ich ja auch mal Programmieren können ;)

Ja, und wann fängst Du endlich an zu lernen? Immerhin hast Du, im Vergleich zu anderen Fragern hier, Dir Bücher besorgt!

Viele Grüße aus Frankfurt/Main,
Patrick