模式匹配的问题求教

cxrfly

我有一个字符串匹配的问题，求各位指点下。
1、字符段，假设为$protein
jgi|Physo3|554134|estExt_Genewise1Plus.C_1_t70226
MPHPRFPKIEIQELRDDFIRFELSETDASVANAIRRVMISEVPTLAIDLVSIEINTSVMTDEFLAHRLGM
IPLNFDGGLENFRQRFVYSADCDCDENCPNCSVEFSLDVTADNGVLSVTSEALKSSDPYIRPVNFSSEEE
LNNTQDSGVIIAKLGPGQRLRLSAIAKLGIGKEHAKWSPVAVATYMYDPIITLNQAVLSTYTPEQKAELY
KSCPTEVYETDENYEQVRCCAWKVDFILEEAD*

2、利用$ID=~/(.*\n)/获取了第一行jgi|Physo3|554134|estExt_Genewise1Plus.C_1_t70226,即$ID=jgi|Physo3|554134|estExt_Genewise1Plus.C_1_t70226。现在想利用$protein=~s/$ID//,却发现仅有jgi被去掉，打印显示$protein=|Physo3|554134|estExt_Genewise1Plus.C_1_t70226MPHPRFPKIEIQELRDDFIRFELSETDASVANAIRRVMISEVPTLAIDLVSIEINTSVMTDEFLAHRLGMIPLNFDGGLENFRQRFVYSADCDCDENCPNCSVEFSLDVTADNGVLSVTSEALKSSDPYIRPVNFSSEEELNNTQDSGVIIAKLGPGQRLRLSAIAKLGIGKEHAKWSPVAVATYMYDPIITLNQAVLSTYTPEQKAELYKSCPTEVYETDENYEQVRCCAWKVDFILEEAD*

请问，这个模式匹配$protein=~s/$ID//问题在哪里？本意是去掉第一行的ID的，留下蛋白序列的，百思不得其解阿。
小白问题，请多指点！谢谢拉

cxrfly

求帮忙阿，是不是管道符号的问题？但是第一次匹配就没有问题阿，想不通

欧阳西风

回复 1# cxrfly


    这个是perl的语法吗？ 我不太熟啊，如果是perl的话，可以发到perl版去问一下。


    我仅从正则表达式的角度来说一下，你既然使$ID的值成为了
jgi|Physo3|554134|estExt_Genewise1Plus.C_1_t70226
那么在执行:

1. $protein=~s/$ID//

复制代码

时，实际执行的是:

1. $protein=~s/jgi|Physo3|554134|estExt_Genewise1Plus.C_1_t70226//

复制代码

而正则表达式中的"|"大约相当于“或”，所以该正则表达式的意思是:
将jgi或者Physo3或者554134或者estExt_Genewise1Plus.C_1_t70226替换为空。而且你没有加任何的标志位，所以仅替换第一个成功匹配的字符串，也就得到了你的结果。
(如果你加上s标志位的话，你会发现这几项应该都被删掉了 第一行留下来的应该是多个"|")

yinyuemi

回复 1# cxrfly


    try:
  s/\Q$ID\E//
  

yinyuemi

另外，如果想把protein id那行删除
$protein =~ s/^[^\n]+\n//'

欧阳西风

回复 4# yinyuemi


    这个是perl的语法吗？\Q和\E分别是啥意思？

cxrfly

回复 5# yinyuemi


    您说的这2个模式都可以。确实是我在|管道符号上犯错了。谢谢

cxrfly

回复 3# 欧阳西风


    谢谢，确实我对|了解太少了，这个地方是您说的这样，是“或”替换的结果。

yinyuemi

回复 6# 欧阳西风


    嗯，perl 的正则语法，具体你查下perldoc re吧

cxrfly

类似$ID1=jgi|Physo3|554134|estExt_Genewise1Plus.C_1_t70226,
$ID2=jgi|Physo3|554134|estExt_Genewise1Plus.C_1_t70226这样的字符串如何进行匹配 阿？好像用$ID1=~/$ID2/或者 $ID1==$ID2都不行阿？求指点