Re: [問題] 請問如何在{}裡面使用\1？
※ 引述《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 的時候 { 之後一定要接數字 -- 不能寫 {\1}
我會這樣寫
$line='C1tt+10AAAAAAAAAAT-3CGCA';
while ($line =~ /\d+/) {
$pre = $`;
($post = $') =~ s/^[acgtn]{$&}//i;
$line = $pre . $post;
}
print $line . $/;
--
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GCS/M d-(+) s:+ a- C++$ UL++B+ P++(++++) L+ E--@ W++ N? o? K? w(++)
!O M !V PS++(+++) PE++(+++) !Y PGP t+++ !5 !X R !tv b++ DI++ D+
G e+++>++++ h--* r y+
------END GEEK CODE BLOCK------
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 128.36.232.45
推
06/17 16:51, , 1F
06/17 16:51, 1F
推
06/17 18:07, , 2F
06/17 18:07, 2F
推
06/17 21:33, , 3F
06/17 21:33, 3F
推
06/18 10:59, , 4F
06/18 10:59, 4F
推
06/28 12:10, , 5F
06/28 12:10, 5F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
