Re: Re: RIP debate?

[Alvar Freude <alvar@a-blast.org>]

-- "Neko (Simone Demmel)" <neko@greenie.muc.de> wrote:

> Mag vielleicht wer mal schnell was
> Kleines, so einen 5-Zeiler oder so? Nichts was man riesig konfigurieren
> muss und was Hund-Katze-Maus tut (je kleiner, desto besser).

Ein bisschen länger als 5 Zeilen, aber halbwegs übersichtlich:

#!/usr/bin/perl -w

use strict;

use LWP::Simple;

while (<>)
   {
   chomp;
   print "$_ ist nicht erreichbar. Bitte testen!\n" unless head($_);
   }


oder als Einzeiler:

$ perl -MLWP::Simple -ne 'chomp; print "$_ Kaputt!\n" unless head($_);'


Ciao
  Alvar

-- 
** Alvar C.H. Freude
** http://alvar.a-blast.org/
**
** http://odem.org/


--
To unsubscribe, e-mail: debate-unsubscribe@lists.fitug.de
For additional commands, e-mail: debate-help@lists.fitug.de