需要使用 perl 匹配 android字符串资源 strings.xml 中的特殊字符 %1$s,发现如下代码总是不成功:
my @patterns=("%1$s", "%2$s"); while(<xml>) { my $pat = $patterns[0]; if(/$pat/) {
$_=~s/$pat/haha/g;print "before: $_\n";
print "after: $_\n";
}}
根据网上建议,使用 quotemeta 不行,使用 \Q , \E 也不行,只能匹配到 %1, 不能匹配到$s。
偶然间把 @patterns 元素从双引号改为单引号,居然就OK了。