Help for this page

Select Code to Download

Select or download this

 #!/usr/bin/perl

...
 my $netaddr = inet_aton( '172.16.249.232' );
 print "net_addr:", $netaddr, "\n";
 printf "net_addrHex:%x\n", $netaddr;

Select or download this

net_addr:&#9618;&#9618;&#9618;
Argument "&#9618;^P&#9618;&#9618;" isn't numeric in printf at /foo.pl 
+line 10.
net_addrHex:0