除法题

dugu072

方法都给你了，代码，只是简单 copy 上去，告诉你问题而已，因为你的代码本身，确实存在不少问题，难道，不会自己调试一下吗？不能什么都指望，别人把代码都给你写好吧？
比如，打印 $seqs 后，你有重新初始化吗？你有将一些多余的空格删除吗，等等。。。

leigh111

dugu072  你好;
    我现在确实很需要，你能把完整的代码写出来吗？ 谢谢

leigh111

还是做不好

blackold

猜一猜：

1. #!/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. open (IN,'d:\perl\genes\') || die "$!";
   
6. open (OUT,'>d:\perl\genes_fasta\.fasta') || die "$!";
   
7. my($title,$seqs);
   
8. 
   
9. while (<IN>) {
   
10.   if (/^NTSEQ/) {
    
11.       print OUT $title,length($seqs),"\n" if $seqs;
    
12.     $title = $_;
    
13.   } else {
    
14.     $seqs .= $_;
    
15.   }
    
16. }
    
17. 
    

复制代码

leigh111

大侠;
  能不能给我一个完整的代码呀？我都搞了两天了。还是做不出来。只要字符个数能被3整除就可以了。谢谢。

blackold

你什么样的结果？
满足条件的段(文本)，还是段的字字符数？

leigh111

是满足条件的段符合条件就可以了。我最终输出的都是段落.（输出的段落都是字符个数能被3整除的。）。
我试了您给我的代码，输出的是字符个数而不是段落。 谢谢您一直的帮助。

toniz

#!/usr/bin/perl-w use strict; open (IN,'putest.d') or die "$!"; my ($title,$seqs); while (<IN>) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if (/^NTSEQ/) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$title = $_; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$seqs =~ s/ //g; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if (length($seqs)%3==0) {   #肯定是这一步错了，好像它什么也不做。 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print "$seqs"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print length($seqs)."\n";; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$seqs =''; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print "$title"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$seqs .= $_; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;}

结果是：
0
NTSEQ       267
277
NTSEQ       2253
2329
NTSEQ       836
atgttttcccacgagaagagttcaatgttaactacaattttaatagttgttgcaacttca
gttggagttggatgtttttatattccagcagcatttaagaattgtggtgcaatggcagga
ttgataatttcattaatagttggtacattttcagtattatcaatgaagactttggcaaat
gcaagtgtgaaatcaggtgcagaatcatatggatcattattatttatggcatatagtgaa
gagataacaacaagtttaagaattcaaaaatcagaaaatccatttttttctataccaaga
ttatttgattttctggtatttttagattgtttattttgtataccattatttttaattgtt
ttatcagacttaataccagcgctaatttcatattttgggtttgtgaatgactatttattc
atgtttagttcaaaaactgcaataatatcattattttcactattattctttccaatatgt
attccttcaggatgttttaattgggttggacttacatttttatcagtcatttccattttc
ctatgttttgcatcagtaattagccaatcaatttcatcaggttttggtattaataatatt
attaaagagatttcaaatatatctttcaacagtaactcaatttcaagttacttttcatta
ttgaatatttgtatttttgcattctttgcacaattcaatataattcaagcagcatctaat
cttaataatccaagtaaaagtagattacgtatattaacagctgtaactggtattataata
gtatttacatattcaataatgtcattgatatcattttcatttcttggagatagaac
864
NTSEQ       486
atgattgaatatttagagcataatatttcaggaaaagactttttacagcccgagtttcaa
caagtccttgtggaatctgggaactttccaatgctcccatatttttcagactcaaacaat
gaagtcgagttaacaggatcattcacaatattaaggtacctcgcagataagtgtaagttg
atgggtaaaagtcctgaggaaagaaataagatagaaaattggctggaatatcttcaatct
ttactacattcagtatgggatttcgaaaatatgtcagataattatacaggaattcaacag
gcaaagaaaaagagccagtttctattagaaactcttcatccaatgcttaaatgtatagat
gaaaagattgaacaaggagtctgggctctagaatcctattcagtagtggacattgtccta
tattcagcaataagcgtgataattagatcttggggaagtgatctattgaaaccttatatt
aggtaa
504
NTSEQ       1584
atgataagtagtcttgaaaatgggcctactgaggaggatcttgaattattattaggtggg
tataataaggaagaggaaatattatttgttgatttgagggaagaatcagatgaattagat
aaagttgattaccaggaaaattccaattttttgaatccagttagctatataaaaaggatt
ggagatgaacaaaatcaagatgcacctgataaattgaaaaagcgtagagttaagtcaaag
aaaacaagaccaaggaggaaaaaaagtaaattgaaagatgattctgataaactttcaata
gactctgatgaatttgttgtaccagacgatgaggtgattccacctgactgggagtataac
tttgaaaagccaatagtttgtcaaaatgttacattttataataaagttgacaatatttta
actgagaagcttgaaaatgatgttgatcattttaaaattaatgaagaggagcttgaatgt
aatgatagtagtttggacgaagattttttaaatagttgcgaaattaatgaagacggattt
aaaggtagaaaacgtaaaaatggaatgattgggattgatattgataaagaatatattgat
gataaagacaatactgcattaattgttgaaagccatttactgaaagatgacatagatgat
gaagaccaggtaatttttgtagataggaatttgaactcttttattaagcaggttgataaa
aataagacaatagatgaagttaggacatatgattctgaaccaattattgttgaaagcgat
gaattcattataaatacagagattttcaattatgggatttttaatatatactttaaaatg
atggatattattgaagattttgaaaattataacaagtttcaatgtttttcagaaggttca
tttaaacttgaagaaaaagatatttccactcttttgatagtattcaaatcaattgatatt
gaattcagcagtttcagcaataatagtaacattaatagtagctgtagcagtggcaatatt
agtaataataatattggaagttttgacttgattcaaagttaccttgacttattttacaat
aatatcttaaattcattaaaagagactcaaaattttaatttaacatttttaaaggaatta
cactttgaaatgattggttttattgagtcaaagtttgatgagattgttcaattgaaccca
tctgaatggaattacaaggtattgtttttgtttttaagaatacttggactaactttattt
gttgagcacttgctaatacatacaataaagattgaaaaaacttcagagccaaagatatca
aatttgaatgaagaattttcagttttttttgtcaatgaaaatattttgaacaaaaataat
gtatccaagattcttagacaaatcttgaaaaaaatgttggatcatttattaaatttgacg
ttaaaagaaaacttgaatggtaatatgagtagtattcattgtattttgattttgacttta
ttcattaattttaaagtaagtggggacttgattttcactcatatttcagaaaagtatatt
aaagatttaaatataacttttgat
1638
NTSEQ       777
803
NTSEQ       358
370
NTSEQ       339
atggattttaatctaaacttgaatatttacttccgtaattttttacataattttgttact
gaaagtcaagtaaacctaaatgatgcatacaaaccaacaaataatgaatacattttgatt
attgacatctttccctatgaactgtgcatcaatgaattatttatcaataaaaaattgaga
atcgtgaattgcaagcactccattaactctcctaaaagaatcgcgattaacgaatttaac
tcaataattaacttatcaaaacatcttctaaagaatacaacttatattattgtaaaaact
ttattaaataaaagtctaaatcctctaatatatttttag
351
NTSEQ       276
286
NTSEQ       537
atgaataagacaatttttaaacttttatttttttttgcaatttatataatgattggcatt
tcaaacgcctctgatgtgacatctagtggtagcttgaagacatcaaacaaccttgaaaaa
gttaaactcgtaaatttggatttgtgtaactcgaaagaagcaactatcaatgttcaagac
ataagtagctctgattccataatatatttcattactgttaagcttggaacggaaattatt
gtgaatataaagggcaatccaacgacagggtatagccaagagatgattattaaaccggat
gattcaattgtaaaagttatcgatgttgagccaagttacgttccagatccacacccagaa
ggcatggttggatatggtggcaggtatatcttcaagttcttggcagttggatccggttca
acagtttcgactattgaatatgcaagatactttgaaaggccaccaaaatgtatttttaag
acagaaattcaattcaaagttatcgatctgccctgcgaagaaataataaaggaatag
555
NTSEQ       3189

[ 本帖最后由 toniz 于 2009-9-28 09:31 编辑 ]

toniz

原帖由 dugu072 于 2009-9-25 16:13 发表
方法都给你了，代码，只是简单 copy 上去，告诉你问题而已，因为你的代码本身，确实存在不少问题，难道，不会自己调试一下吗？不能什么都指望，别人把代码都给你写好吧？
比如，打印 $seqs 后，你有重新初始化 ...

人家都弄了两天了，就帮下算了。O(∩_∩)O

leigh111

谢谢您.
问题解决了。
整体程序我和你的差不多。就是少了一个这个代码：$seqs ='';（这个代码在这程序里起了很重要的作用，我要和不要这句代码输出时完全不同，但我没有思考明白它的作用，您能帮我解释一下吗？）