Perl版本的ip2long()和long2ip()

2007-06-01

#!/usr/bin/perl  use warnings;
use strict;
use Socket;
if ($ARGV[0] =~ /d+.d+.d+.d+/) {
    my $ip_address = shift(@ARGV);
    my $ip_number = ip2long($ip_address);
    print "$ip_address converts to $ip_numbern";
} else {
    my $ip_number = shift(@ARGV);
    my $ip = long2ip($ip_number);
    print "$ip_number converts to $ipn";
}

sub ip2long {
    return unpack("l*", pack("l*", unpack("N*", inet_aton(shift))));
}

sub long2ip {
    return inet_ntoa(pack("N*", shift));
}

#!/usr/bin/perl use warnings;

use strict;

use Socket;

if ($ARGV[0] =~ /d+.d+.d+.d+/) {

my $ip_address = shift(@ARGV);

my $ip_number = ip2long($ip_address);

print "$ip_address converts to $ip_numbern";

} else {

my $ip_number = shift(@ARGV);

my $ip = long2ip($ip_number);

print "$ip_number converts to $ipn";

}

sub ip2long {

return unpack("l*", pack("l*", unpack("N*", inet_aton(shift))));

}

sub long2ip {

return inet_ntoa(pack("N*", shift));

}

来源：http://weblogs.litmusgreen.com/ed/archives/002250.html

分类：技术 | 标签： |

XUERON

心如花木，向阳而生

Perl版本的ip2long()和long2ip()

发表评论取消回复

Perl版本的ip2long()和long2ip()

发表评论 取消回复

发表评论取消回复