VB6与其它语言字符串拼接速度测试之七 (Perl、Julia)

应读者要求，本文将继续进行VB6与其它编程语言的字符串拼接速度的测试。下面将进行Perl、Julia的字符串速度拼接测试，如有不足之处请指出，将予以修正。为保证测试结果的公平，以下测试都是Release模式，32位优先，命令行(管理员身份)方式调用。

Perl拼接测试

测试代码

#!/usr/bin/perl -w

use Time::HiRes qw( gettimeofday );

my ($seconds, $microseconds) = gettimeofday;

$starttime=$seconds*1000+(0.0+ $microseconds)/1000.0;

$strout = "";

for($a=0;$a<10000000;$a+=1){

$strout.="AAAAA";

}

#print("strout = $strout\n");

my ($e_seconds, $e_microseconds) = gettimeofday;

$endtime=$e_seconds*1000+(0.0+ $e_microseconds)/1000.0;

printf "拼接一千万字符共用时%.0f毫秒\n",$endtime-$starttime;

测试结果

耗时822毫秒

Julia拼接测试

using Dates

using Printf

# 获得计算机当前时间

starttime = Dates.now()

arrStr=[]

for i in 1:10000001

append!(arrStr,"AAAAA")

end

str1=join(arrStr,"")

# 获取过段时间后的时间

endtime = Dates.now()

# 计算时间差并以豪秒的格式输出

delta = endtime - starttime

totaltime=Dates.value(delta)

@printf("拼接1千万字符串花费时间：%d毫秒",totaltime)

测试结果

耗时4376毫秒

测试结果汇总

拼接性能排行榜