vim中perl与python处理文本的性能比较

终于想起账号-_-!!

又是一天不务正业, 本想把手上的小项目推进一步的,
结果却迷失在了

如何给vim 加上XXX HACK NOTE等标签高亮显示上
为了hack todo-vim 插件(大小字查找问题), 又花了大量时间在vimscript+内置perl 交互上

在[2.]这步, 查到一篇也是很有帮助的一篇用vim处理巨量数据的文章. 其中有python也有perl也有vimscript,
经过他的实践, python比perl(在vIM里)处理文本快得多.
作为python / perl 双修修士, 有点不服气, 认为不可能有3倍差距.
因此,也花了时间重做了一遍benchmark

详情

1. 生成测试用文件

perl -e 'open my $f,">","test.txt"; for($i=0;$i

文件 879992行, 6269943字节

2. 编写vim代码

内容如下

function! test#pythonmod1()
    " 无正则 方式
    let start_time = localtime()
    echo("开始处理...")
python3 Count()) {
        if ($curbuf->Get($lnum) eq '    "value"') {
            $num = 0;
        }
        elsif ($curbuf->Get($lnum) =~ '    "wave"') {
            $curbuf->Set($lnum, '        "wave' . $num . '"');
            $c += 1;
            $num += 1;
        }
        $lnum += 1
    }
    VIM::DoCommand("let c=" . $c);
EOF
"redraw!
echo("完成！n共替换 " . c ." 行n耗时：" . (localtime()-start_time) . " 秒")
endfunction

function! test#perlmod()
    " 正则版本
    let start_time = localtime()
    echo("开始处理...")
perl Count()) {
        if ($curbuf->Get($lnum) =~ /value/) {
            $num = 0;
        }
        elsif ($curbuf->Get($lnum) =~ /wave/) {
            $curbuf->Set($lnum, '        "wave' . $num . '"');
            $c += 1;
            $num += 1;
        }
        $lnum += 1
    }
    VIM::DoCommand("let c=" . $c);
EOF
"redraw!
echo("完成！n共替换 " . c ." 行n耗时：" . (localtime()-start_time) . " 秒")
endfunction

因为无法使用python2版本, vim只能运行python3
python版本