perl 多次匹配 多次替换

taojikun1986

举例：
$a = "a; b; c"; #替换成 "1; 2; 3";

现在的做法是：
$a =~s/a/1/g;
$a =~s/b/2/g;
$a =~s/c/3/g;

要正则表达式3次，能不能减少？
类似于
$a =~s/a|b|c/1|2|3/g;
这样的功能？

zhlong8

除了减少行数，你不觉得你目前的方案更清晰明了吗？

zhlong8

my %map = (
    'a' => 1,
    'b' => 2,
    'c' => 3,
);

my $a = 'a; b; c';

my $pattern = join "|", map "\Q$_\E", keys %map;

$a =~ s/($pattern)/$map{$1}/eg;

print $a;

104359176

1. my $str = 'abc'; $str =~ tr/a-c/1-3/; $str

复制代码

xie3ks

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my $str="abc1231dfeabc";
   
6. 
   
7. $str =~ tr /[abc]/[123]/;
   
8. 
   
9. print "$str \n";

复制代码

taojikun1986

有一个程序，如果传入参数太多，要遍历很多次替换，消耗性能，所以，希望能够一次性就替换掉。这样最好。回复 2# zhlong8


   

taojikun1986

"#|#|#"这样描述更合适，#就是我需要传入的参数用来替换的，但是参数值是变动的。请问你这个程序如何修改呢。没发现有更好的方法。回复 3# zhlong8


   

taojikun1986

我只是简单的举例而已，并不是你那个意思回复 4# 104359176


   

zhlong8

回复 7# taojikun1986


    我写的就是最通用的模式，映射关系保存在 %map 中，你更新 %map 不就行了。不过要注意 hash 不保存顺序，如果 key 是 ab abb abbb 这种非互斥的要稍微修改下，因为生成的 pattern 可能是 (ab|abb|abbb) 也可能是 (abb|ab|abbb) 等等不保证最长的优先

taojikun1986

谢谢！我改改看。回复 9# zhlong8