print "$_ gibt es".(gethostbyname($_)?"":" nicht") for qw/perl-community.de web.de uxdravil.com wau/

Ausgabe:

perl-community.de gibt es
web.de gibt es
uxdravil.com gibt es nicht
wau gibt es nicht

Problem: Wenn mit der Domain kein Hostname identifiziert ist (z.B. weil der Rechner www.domain.x und nicht nur domain.x heisst), koennte gethostbyname auch falsch sein. Ich weiss, dass es solche Faelle gibt, mir faellt nur gerade keiner ein, daher kann ich es nicht testen.\n\n

<!--EDIT|betterworld|1066738392-->