perl 多次匹配 多次替换

MMMIX

taojikun1986 发表于 2015-10-30 15:21
有一个程序，如果传入参数太多，要遍历很多次替换，消耗性能，所以，希望能够一次性就替换掉。这样最好。回 ...

这玩意能消耗多少性能？你实际测试过么？

taojikun1986

foreach(0 .. 1000000)
{
        my $ffff = "1213,123123,23dffdf,2rer,cd,ff,sdfsdf,sdfsdf,,dsf,";
        $ffff =~ s/,/1/;
        $ffff =~ s/,/1/;
        $ffff =~ s/,/1/;
        $ffff =~ s/,/1/;
        $ffff =~ s/,/1/;
             $ffff =~ s/,/1/;
        $ffff =~ s/,/1/;
        $ffff =~ s/,/1/;

}

foreach(0 .. 1000000)
{
        my $ffff = "1213,123123,23dffdf,2rer,cd,ff,sdfsdf,sdfsdf,,dsf,";
        $ffff =~ s/,/1/g;
}

最简单的测试，上面近5秒，下面的1秒；

如果我的参数是不定的，例如：","，可能有5个，也可能有10个，也可能只有2个，要对参数个数进行统计，统计完成之后for循环，这样的性能能抗住？

回复 11# MMMIX


   

MMMIX

回复 12# taojikun1986


    你的参数处理要做百万次？

taojikun1986

一般是5KW左右
不排除特殊情况要上亿次
回复 13# MMMIX


   

MMMIX

回复 14# taojikun1986


    这样啊，改改代码，直接把替换去掉吧。

jason680

说说实际问题....
例: 文档大小,笔数,如何处理(替换/修改/删除)....
最后处理前,处理前(小部份)文档结果