Perl：通過正則表達式匹配來更改字符串

Question

我使用此代碼通過正則表達式匹配來更改字符串。

$a->{'someone'} = "a _{person}"; 
$a->{'person'} = "gremlin"; 

$string = "_{someone} and a thing" 
while($string =~ /(_\{(.*?)\}/g){ 
    $search = metaquote($1); 
    $replace = $a->{$2}; 
    $string =~ s/$search/$replace/; 
} 

結果是a _{person} and a thing但我很期待：a gremlin and a thing。

怎麼辦才能使用它？

Answer 1

該功能被稱爲quotemeta，而不是metaquote。此外，一個右括號中缺少您的正則表達式：

​​

我還添加了strict和warnings，以幫助自己避免常見錯誤。

Answer 2

我想這應該是更effecient變種：

use strict; 
my $a; 
$a->{'someone'} = "a _{person}"; 
$a->{'person'} = "gremlin"; 

my $string = "_{someone} and a thing"; 
while($string =~ s/(_\{(.*?)\})/ $a->{$2} /ges) {} 
print $string."\n"; 

Answer 3

這種變異反覆substitues字符串中的佔位符所有其對應的哈希值，直至一個也不剩。

此外，a是任何變量的錯誤標識符，所以我將其命名爲tokens。

use strict; 
use warnings; 

my %tokens = (
    someone => 'a _{person}', 
    person => 'gremlin', 
); 

my $string = '_{someone} and a thing'; 

1 while $string =~ s/_\{([^}]+)\}/$tokens{$1}/g; 

print $string, "\n"; 

輸出

a gremlin and a thing