tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-12-23 05:07:54 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

parallel: Replacement of many replacementstring is now faster

Browse source
This commit is contained in:
Ole Tange 2011-07-20 23:42:59 +02:00
parent 4f8b5026ec
commit 43788cb720
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/parallel
View file

@ -3621,14 +3621,15 @@ sub number_of_replacements {
'|'.
join("|",map {$a=$_;$a=~s/(\W)/\\$1/g; $a} values %Global::replace).
")";
while($cmd =~ s/($replacement_regexp)/\0/o) {
# substitute with \0 to avoid {{}} being interpreted as two {}'s
if(defined $Global::replace_rev{$1}) {
$count{$Global::replace_rev{$1}}++;
my %c = ();
$cmd =~ s/($replacement_regexp)/$c{$1}++;""/ogex;
for my $k (keys %c) {
if(defined $Global::replace_rev{$k}) {
$count{$Global::replace_rev{$k}} = $c{$k};
} else {
$count{$1}++;
$count{$k} = $c{$k};
}
$sum++;
$sum += $c{$k};
}
my $number_of_context_groups = 0;