Select Code to Download

johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -MSocket -E '
do {
...
   } for qw{ 10.1.1.5 10.1.1.6 };'
Old IP: 10.1.1.5 ... New IP: 10.1.1.6
Old IP: 10.1.1.6 ... New IP: 10.1.1.5

johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -MSocket -E '
my $IP     = q{10.1.1.255};
...
printf qq{%8s %8s %8s %8s\n}, unpack q{(B8)*}, $packed;'
      10        1        1      255
00001010 00000001 00000001 11111111

use strict;
use warnings;
...
    my $newIP   = inet_ntoa( pack( q{N}, $numeric ) );
    printf qq{Old IP: %15s ... New IP: %15s\n}, $IP, $newIP;
}

Old IP:        10.1.1.5 ... New IP:        10.1.1.6
Old IP:        10.1.1.6 ... New IP:        10.1.1.5
...
Old IP:         0.0.0.0 ... New IP: 255.255.255.255
Old IP: 255.255.255.255 ... New IP:         0.0.0.0
Old IP:    10.1.255.255 ... New IP:        10.2.0.0