似乎由于換行符的存在。。。此句不能被執(zhí)行。。

havocor

請問如果
$seq1 is
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNN

$seq2 is
ATGGATGAAGATGAATTTGAATTGCAGCCACAAGAGCCAAACTCATTTTT
TGATGGAATAGGAGCTGATGCTACACACATGGATGGTGATCAGATTGTTG
TGGAAATACAAGAAGCAGTTTTTGTTTCTAATATTGTGGATTCTGACATA
ACTGTGCATAACTTTGTTCCTGATGACCCAGACTCAGTTGTAATCCAAGA
TGTTGTTGAAGATGTTGTCATAGAGGAGGATGTTCAGTGCTCAGATATCT
TAGAAGAGGCAGATGTATCTGAAAATGTCATCATTCCTGAGCAAGTGCTG
GACTCAGATGTAACTGAAGAAGTTTCTTTACCACACTGCACAGTCCCAGA
TGATGTTTTAGCTTCTGACATTACTTCAACCTCAATGTCTATGCCAGAAC
ATGTTTTAACGAGTGAATCCATGCATGTGTGTGACATTGGACATGTTGAA
CATATGGTGCATGATAGTGTAGTGGAAGCAGAAATCATTACTGATCCTCT
GACGAGTGACATAGTTTCAGAAGAAGTATTGGTAGCAGACTGTGCCCCTG
AAGCAGTCATAGATGCCAGCGGGATCTCAGTGGACCAGCAAGATAATGAC
AAAGCCAGCTGTGAGGACTACCTAATGATTTCGTTGGATGATGCTGGCAA
AATAGAACATGATGGTTCCACTGGAGTGACCATCGATGCAGAATCAGAAA
TGGATCCTTGTAAAGTGGAT

然后如何執(zhí)行 $out =~s/$seq1/$seq2/  ???? 似乎由于換行符的存在。。。此句不能被執(zhí)行。。。。謝謝！！

newstudent2011

不執(zhí)行就是匹配不成功!

另外,你的字符里面是不是有特殊字符?有特殊字符會報錯,你試試轉(zhuǎn)義

$seq1 = qutomata($seq1);

$seq2 = qutomata($seq2);

$out =~s/$seq1/$seq2/


應該和換行符無關,\n \r都不算特殊字符

不過如果是windows 生成的txt數(shù)據(jù),小心里面有隱藏的\r 很討厭

你的文本里面也許不存在一摸樣的$seq1,有隱藏字符在里面面,你length 一下就知道了

newstudent2011

my $len1 = length $seq1;
$seq1 =~ s/\r//g;
my $len2 = length $seq1;

print $len1;

print $len2

看看兩個length 是否相等,干掉比爾蓋茨的\r!

sellie

回兩樓. 應該是 quotemeta 吧!