Help for this page

Select Code to Download

Select or download this

use Socket;

my $n32 = inet_aton("192.168.254.0");
print inet_ntoa(pack("N",unpack("N",$n32)-1));  # "192.168.253.255"

Select or download this

s/(\d+\.\d+\.\d+\.\d+)/inet_ntoa(pack("N",unpack("N",inet_aton($1))-1)
+)/e;