※ 引述《scwg ( )》之铭言：
: ※ 引述《YMLS (流逝于指缝的细沙)》之铭言：
: : 大家好，我有一笔资料如下：
: : C+2AAT-3CGCA
: : 我希望写一行程式，使得数字后面的字母会依照数字的内容被拿走，如下所示：
: : C+T-A
: : 我尝试如下的写法：
: : $line='C+10AAAAAAAAAAT-3CGCA';
: : $line=~s/(\d+)[ACGTNacgtn]{\1}//g;
: : 可是 {\1} 无法发挥我想要得效果，
: : 想请问是否我的语法本身有问题呢？谢谢！
: 根据 http://perl5.git.perl.org/perl.git/blob?f=dquote_static.c
: S_regcurly() 在 parse 的时候 { 之后一定要接数字

你跑去用 (??{ }) 明明就比翻 source code 恐怖

我是乖乖看文件啊.. ._.

这个方法从来没看过＠＠....真的很谢谢大家热情的回复！