Thread Netmask "Pretty Printer"
(3 answers)
Opened by roli at 2008-11-02 14:11
Wahrscheinlich geht das auch eleganter, aber so geht es auch:
Code (perl): (dl
)
1 2 3 4 5 6 use Data::Dumper; my $ip = join '.', map hex, (sprintf("%x", 3232235776) =~ /\w{2}/g); my $mask = join '.', map hex, (sprintf("%x", 4294967040) =~ /\w{2}/g); print Dumper [$ip, $mask] |