Code schlanker machen? - #119712 (Allgemeines zu Perl)

betterworld

2009-03-23 13:25

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

2009-03-23T00:36:00 Beeboop

Code (perl): (dl )

#IP-Adresse auslesen
($addr) = (gethostbyname("$name"))[4];
$addr1 = join(".", unpack("C4", $addr));
print ("$addr1\n");

Ich finde, manchmal ist "schlanker" nicht ein lobenswertes Ziel, besser ist es, leserlichen Code zu schreiben ohne viele Zahlen und unpack-Schablonen, in denen man auf den ersten Blick kaum Fehler erkennt:

Code (perl): (dl )

use Net::hostent;
use Socket;

my $h = gethost($name)
    or die 'Could not resolve host name';
my $addr1 = inet_ntoa($h->addr);
print "$addr1\n";

Im Allgemeinen muss man nicht "$name" schreiben (wie Du es getan hast), sondern kann die Doublequotes weglassen.
Last edited: 2009-03-23 13:27:16 +0100 (CET)

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class