regex - 我想使用正则表达式在正则表达式中插入特定字符？

Question

我希望能够在 Perl 中使用正则表达式将字符插入单词。

这样“TABLE”这个词就会变成“T%A%B%L%E%”

我可以询问这样一个壮举的语法吗？

非常感谢

标签： regexperl

Answer 1

将字符串分解为字符，然后将它们与您想要的内容连接起来；还要附加那个

my $res = ( join '%', split //, $string ) . '%';

使用正则表达式的简单方法

$string =~ s/(.)/$1%/g;

使用/r修饰符可以保留$string并返回更改后的字符串

my $res = $string =~ s/(.)/$1%/gr;