【Perl】正则效率测试比较

前段时间有朋友提出正则[0-9]与/d这两个哪个效率高，因此用如下Perl进行测试

 

#!/usr/bin/perl -w use Time::HiRes 'time'; $TimesToDo = 1000; $TestString = "42130987241264634" x 10000; $Count = $TimesToDo; $StartTime = time(); while ($Count-- > 0){ $TestString =~ m/^[0-9]+$/; } $EndTime = time(); printf("正则【[0-9]+】 %.3f seconds./n", $EndTime - $StartTime); $Count = $TimesToDo; $StartTime = time(); while ($Count-- > 0){ $TestString =~ m/^/d+$/; } $EndTime = time(); printf("正则【//d+】 %.3f seconds./n", $EndTime - $StartTime); $Count = $TimesToDo; $StartTime = time(); while ($Count-- > 0){ $TestString =~ m/^[0123456789]+$/; } $EndTime = time(); printf("正则【[0123456789]+】 %.3f seconds./n", $EndTime - $StartTime);

测试结果：

 

正则【[0-9]+】 0.655 seconds.

正则【/d+】 0.359 seconds.

正则【[0123456789]+】 2.413 seconds.