请教有没有直接添加字符的函数？

Eva326

有个字符串，如下：
$a ="11,12,13,14";

假如替换为字符串：
$b = "A11,A12,A13,A14";

目前的想法是读成数组，foreach添加，感觉比较麻烦，是否可用正则或函数直接添加？

sunzhiguolu

1. $a =~ s/(?<!\d)(?=\d)/A/g

复制代码

sunzhiguolu

利用分组的功能更容易理解:

1. 
   
2. $a =~ s/(\d+)/A$1/g
   

复制代码

jason680

回复 1# Eva326

$ perl -e '$a="11,12,13,14";($b=$a)=~s/([^,]+)/A$1/g;print "$b\n"'
A11,A12,A13,A14

Eva326

谢谢各位！

发现一个有意思的问题，正则匹配条件式里貌似不能直接连接变量和字符串
比如$a ="11,12,13,14"; 替换成 $a ="11A,12A,13A,14A"; A在变量后面，如果用 . 连接$1和A貌似不行

$a =~ s/(\d+)/$1.A/g

sunzhiguolu

使用字符串操作符, 使用 /e 选项

Eva326

感谢！学习了

jason680

回复 5# Eva326

$ perl -e '$a="11,12,13,14";$a=~s/([^,]+)/$1A/g;print "$a\n"'
11A,12A,13A,14A