Question

在Perl搜索中,用大型变量取代,需要很长时间。

例如。

$original =  aaaabc ;
$replace =  bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb  x 1000
$original =~ s/b/$replace/;

一旦<代码> 替换的大小便足够大,该编码可占用很长时间。我假定一些缓冲被破坏,并不断延伸。

是否有改进业绩的建议?

Answer 1

规模如何大? 替换是在我的视窗盒上的第二座,即使有一段长度~~30 000 000~~30 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000美元:

> perl -Mstrict -wE "my $start = time;my $str =  aaaabc ; my $replace =  b  x 30_000_000_000_000_000_000; $str =~ s/b/$replace/; printf qq<%d s
>, time - $start;"
0 s

Answer 2

不清楚为什么你看到业绩恶化。我为取代500+特性做了扼杀,然后以书面方式执行你的方案。

$ time(perl large.pl )

real    0m0.010s
user    0m0.002s
sys     0m0.004s
$

然而,我确实有建议。如果你更换舱位的长度与你相同,那么为什么在你最初的舱位中找不到特殊性,将照样照相,把部件放在更换的前线和背面,并打印?

Answer 3

Benchmark gives 0 wallclock secs with your input 

#!/usr/bin/perl
use strict;
use warnings;
use Benchmark;

my $original =  aaaabcd ;
my $replace =  bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb  x 1000;
my $start_time = new Benchmark;
$original =~ s/b/$replace/;
my $end_time = new Benchmark;
my $diff = timediff($end_time,$start_time);
print "Regex took:",timestr($diff);

产出

Regex took 0 wallclock secs (0.00 usr + 0.00 sys = 0.00 CPU)

友情链接