Perl ：三种IP转整型的方法的速度测试

 测试环境：

CentOS release 4.7 
perl, v5.8.5

测试代码：

print scalar localtime;
print “n”;
for (my $i=0;$i<10000000;$i++)
{

# 方法一：使用pack

$a = unpack(’N*’, pack(’C4′, split(/./, ‘193.168.20.3′)));

# 方式二：使用正则加四则运算

#’193.168.20.2′ =~ /(d+).(d+).(d+).(d+)/;

#$a = $1 * 256**3 + $2 * 256**2 + $3 * 256 + $4;

# 方式三：使用Split加四则运算

#($a,$b,$c,$d) = split(/./,’193.168.20.2′);

#$e = $a * 256**3 + $b * 256**2 + $c * 256 + $d;

}
print scalar localtime;
print “n”;

 

测试结果：
方法一（33s）：
[root@localhost tmp]# perl 123.pl
Wed Jul 15 14:22:08 2009
Wed Jul 15 14:22:41 2009
内存占用：1456

方法二（44s）：
[root@localhost tmp]# perl 123.pl
Wed Jul 15 14:21:05 2009
Wed Jul 15 14:21:49 2009

内存占用：1488

方法三（31s）：
[root@localhost tmp]# perl 123.pl
Wed Jul 15 14:36:05 2009
Wed Jul 15 14:36:36 2009
内存占用：1436 

split加四则运算方法略胜出。

有点意外的是pack的开销居然和正则引擎接近俄。

转自http://blog.yikuyiku.com/?p=1004