※ 引述《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 的时候 { 之后一定要接数字

我记得可以用eval的option，有请高人出手…

翻 perl 的 source 出来解释会不会太恐怖....||

谢谢您热心的解答！！Orz

推翻perl source...orz||||

推