TIPS:IP(v4) Address convert to big integer

QUOTE:

my $ipaddr = '117.136.5.88';
my $cnt = 3;
my $intip  = 0;
for ($ipaddr =~ /(\d+)/g) {
    $intip += $_ << 8 * $cnt--;
}
print "Ip=>Integer: $ipaddr => $intip\n";

QUOTE:

use Socket;

my $ipaddr = '117.136.5.88';
$intip = unpack('N', inet_ntoa($ipaddr));
print "Int: ", $obj_ip->intip(), "\n";

QUOTE:

use Net::IP;

my $ipaddr = '117.136.5.88';
my $obj_ip = new Net::IP($ipaddr) or die Net::IP::Error();
print "Int: ", $obj_ip->intip(), "\n";