Opened by roli at 2008-11-02 14:11
Ich denke mal, das das etwas eleganter ist:
Code (perl): (dl
)
1 2 3 4 5 6
use Data::Dumper; my $ip = join '.', unpack "C*", pack "N", 3232235776; my $mask = join '.', unpack "C*", pack "N", 4294967040; print Dumper [$ip, $mask]