模式匹配的问题求教

cxrfly

回复 3# 欧阳西风


    谢谢，是的，perl 语言。

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

cxrfly

回复 9# yinyuemi


    类似$ID1=jgi|Physo3|554134|estExt_Genewise1Plus.C_1_t70226,
$ID2=jgi|Physo3|554134|estExt_Genewise1Plus.C_1_t70226这样的字符串如何进行匹配 阿？假如很多类似的字符串存储在ID1 和ID2，但用$ID1=~/$ID2/或者 $ID1==$ID2都不行阿，求指点

yinyuemi

回复 12# cxrfly


    一个道理啊， $ID1 =~ /\Q$ID2\E/ 或者 $ID1 eq $ID2 (字符比较用 eq，数字用 ==)

yestreenstars

回复 8# cxrfly

那不是管道，是或~
   

欧阳西风

回复 12# cxrfly

你可以看一下13楼的答案，那个应该是可以的。
   




回复 9# yinyuemi
我特意去看了一下perl正则的文档(之前基本没怎么学过perl)，感觉perl的\Q \E这两个符号挺好用啊，sed和awk好像就没有类似的功能

cxrfly

回复 15# 欧阳西风


    http://bbs.chinaunix.net/thread-4148668-1-1.html,我的帖子在这里，麻烦您指点下

cxrfly

回复 13# yinyuemi


   

    http://bbs.chinaunix.net/thread-4148668-1-1.html,我的帖子在这里，麻烦您指点下

欧阳西风

回复 16# cxrfly


    原脚本是perl，我不是很熟，所以就不自己写了。边搜索perl的语法，边看了下你的脚本，我觉着问题主要存在几个方面:

1. 你读取a文件时，分隔符"$/"已经变成了">"不再是"\n"了,建议在修改"$/"之前读取a文件(因为文件a应该是相对固定的，我觉着没必要放到while循环中去多次读取，只需要在while之前读取一次获得@ID_file列表就行啦)

2.你之所以没有输出，实际上是if判断eq时不为true,究其原因是$protein_ID结尾有一个"\n"，所以判断是一个字符串包含换行符，另外一个不包含，肯定是不相等的了。这个建议将

1. if ($_=~/(.*\n)/){

复制代码

这一句的\n放到括号外边，即:

1. if ($_=~/(.*)\n/){

复制代码

3.另外foreach当中的else语句没必要吧，即使加上else我个人觉着也不应该用exit来退出吧？


以上。(本人没怎么学过perl, 不对之处请见谅)