Help for this page

Select Code to Download


  1. or download this
    use Socket;
my $ip = '127.0.0.1';
print unpack('N', inet_aton($ip)),"\n";
__END__
2130706433
  2. or download this
    my $ip = '127.0.0.1';
print unpack('N', pack 'C*', split /\./, $ip),"\n";
__END__
2130706433
  3. or download this
    use Socket;
chomp(my @ips = <DATA>);
...
172.16.254.13
10.24.13.89
89.67.128.254
  4. or download this
    10.24.13.88
10.24.13.89
89.67.128.254
172.16.254.13
192.168.10.15