论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2009-09-25 12:41 |只看该作者 |倒序浏览

大家好：
   我有一个文件，里面标题（NTSEQ）和字母组成，字母有几行为一段的，也有十几行为一段的，我想做的工作就是把为一段的字母能被3整除，能被整除的就print出来，不能被3整除的就抛弃。
我是这样做的，但还是做错了
#!/usr/bin/perl-w
use strict;
open (IN,'d:\perl\genes\') || die "$!";
open (OUT,'>d:\perl\genes_fasta\.fasta') || die "$!";
my ($title,$seqs);
while (<IN>) {
      if (/^NTSEQ/) {
         $title = $_;
         }
      else {
         $seqs .= $_;
         if ($seqs%3==0) { #肯定是这一步错了，好像它什么也不做。
         print OUT;
         }
         }
}
      该怎么做？谢谢大家

文库|博客

dugu072

稍有积蓄

论坛徽章:: 0

2楼 [报告]

发表于 2009-09-25 13:23 |只看该作者

lz 的问题，问的不清不楚的……
“我想做的工作就是把为一段的字母能被3整除”，字母怎么被3整除？

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

dahe_1984

腰缠万贯

论坛徽章:: 0

3楼 [报告]

发表于 2009-09-25 13:50 |只看该作者

把你的文件发出一段来大家看看呗？

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

leigh111

丰衣足食

论坛徽章:: 0

4楼 [报告]

发表于 2009-09-25 14:12 |只看该作者

不好意思。没说清楚。文件里面是这些东西：
NTSEQ    267
         atggaaaatagttacaagatgggagttaaaaatattgtattgttatttgccacattttta
         ttaagtgttttagcagaagatcaaaaggatggagaaattttagcagtaactccaagagat
         ttaaagttgactccttttaatttatcagctttaattttagtttctttttttactatgttg
         attatttttattgttggattaactattgatactgatactccaactagatttgaagaaaag
         atgccacctattatgaaggaatattaa
NTSEQ    2253
         atggtggattatgattctagaatttgtcaaagacctcattctgaaagagctttagaacaa
         tatgaaaagtacccagatgaatatatagaaagtgcaacagtaagaccagaaaagtatcat
         gttttagagcaagaagaatatgatgattgtattatcacaaaatttcaccaaattattaat
         agcgactatttagacgtggaaagggagttgataaatggaaagttaatgaatagtgagaat
         tatgaaagcagagtatttaataaatatggattatctgctgaccaaaaaggaggggatctg
         agagaaaaagattataatgaaacaggagaagagaattctgatgatgagttagacgatggt
         cttgaagaatgtgaggacgaaacagaatctgaagaattggattctgaagacgaaatatat
         gaagataatagtcgtgaattattgatgttattaaagagcagaggaaaatcgagacgtatt
         caaaagagagaaatactaagtttaccaagctccgaatttttagtaataagggaatttccg
         gtatcttttggaattccagtaatcacattacaaaaattgaatgtacgtccaattctattt
         ctttggatattctttttaatttcaatggtttatactttttcaatatttctagatgagtat
         attgttaatgatattattccattataccctttgggaagtatttttgagtcaaagaatgaa
         caaactgaagtattagttccttcattactaagatcaaagaatccaacagtgatatcaaga
         actggtaacagtgatatgggattaataggtaaaagtaacttattaaagaagctttttcct
         ttactcaatattaaacaagactctgatatttttgaaaattcaataaatagaccactaaat
         gtaactttggatgttaagcattgccatattcaattccttaattcaactagcgatctgagt
         tatattaaagttagatcttggagattattttccaaatcacatatgtactatggtagttct
         ggaaggtacagtataccatctaggaagaaagataagttcgaatatatatgctctcacgga
         actttcttctggatattgaaaagatatattcttccttgggatacttatagtgattataat
         ataaagaatatttcttggaaggattataaagaatactgtgattcaagtcctagaccttgg
         aattttaataatgattcaaatttgtcaataaaattacaccaatctaatactggtgattat
         tttcaatgctcaataaactttttcttggcaaataacttccagtttgacgaactttctgtc
         aagtttgtgccatcttcaacatatatgaaagtttcatcatcgattccgatcaaggctaaa
         tcaatatttcacttggaagcattacatgggacttttgatttaaaagatgtatattcacca
         aatatttcactcacaatttcagacggttgggcttctattgatctcccaaatcttcaagat
         tcaggtcgtaggaatgtgtttatagaaagtagaggagctccaatatatattaatagtaga
         acaccaattgttgttactatgccagtcagaattgcagaattagcagtttttagagctgag
         catgttaaagtcaagcttgaaagcaaatcaaatgatttagatggccatgggtattataaa
         actgcatcagttgttgcaactctgaatccagatccgtcattcttggataataaactttca
         ggttcttcaattaatacaagaattaacattcaaggaagtattccaccagtatatgtaaat
         gcttattcaaactttgaatcaagttcagattttaataacatatcggatgaacttattact
         tgggcaggaagacaccaatggaaagatccacatttacttgcattttcaaagtcaagattt
         aatgggttttcaaaatggcttcaagaggatcttgcaagtccatgggtactttatattaat
         gttttaggaaatagagaatatcctaggggaacttggaaagcagtatcttcaagagctttt
         attcgagatccatatgctttggttttattatcaggaggacttttaatgccaaggatatac
         actctatttattcatattcttggattaaggtgtatggttccagtaagtcattcagatttg
         gaagatctagatgtaatcaatgttgatgataatccttctaatacaggtaatattaatgga
         ggaattagtgggaatttatgcaaatataactaa
NTSEQ    836
         atgttttcccacgagaagagttcaatgttaactacaattttaatagttgttgcaacttca
         gttggagttggatgtttttatattccagcagcatttaagaattgtggtgcaatggcagga
         ttgataatttcattaatagttggtacattttcagtattatcaatgaagactttggcaaat
         gcaagtgtgaaatcaggtgcagaatcatatggatcattattatttatggcatatagtgaa
         gagataacaacaagtttaagaattcaaaaatcagaaaatccatttttttctataccaaga
         ttatttgattttctggtatttttagattgtttattttgtataccattatttttaattgtt
         ttatcagacttaataccagcgctaatttcatattttgggtttgtgaatgactatttattc
         atgtttagttcaaaaactgcaataatatcattattttcactattattctttccaatatgt
         attccttcaggatgttttaattgggttggacttacatttttatcagtcatttccattttc
         ctatgttttgcatcagtaattagccaatcaatttcatcaggttttggtattaataatatt
         attaaagagatttcaaatatatctttcaacagtaactcaatttcaagttacttttcatta
         ttgaatatttgtatttttgcattctttgcacaattcaatataattcaagcagcatctaat
         cttaataatccaagtaaaagtagattacgtatattaacagctgtaactggtattataata
         gtatttacatattcaataatgtcattgatatcattttcatttcttggagatagaac
NTSEQ    486
         atgattgaatatttagagcataatatttcaggaaaagactttttacagcccgagtttcaa
         caagtccttgtggaatctgggaactttccaatgctcccatatttttcagactcaaacaat
         gaagtcgagttaacaggatcattcacaatattaaggtacctcgcagataagtgtaagttg
         atgggtaaaagtcctgaggaaagaaataagatagaaaattggctggaatatcttcaatct
         ttactacattcagtatgggatttcgaaaatatgtcagataattatacaggaattcaacag
         gcaaagaaaaagagccagtttctattagaaactcttcatccaatgcttaaatgtatagat
         gaaaagattgaacaaggagtctgggctctagaatcctattcagtagtggacattgtccta
         tattcagcaataagcgtgataattagatcttggggaagtgatctattgaaaccttatatt
         aggtaa
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
NTSEQ    777
         atgatattactttatgctacacaacatggagaaggaaacgttaaagttaagatgagaatg
         ggaaacaagatttgggagtttactctgctttgtaacttgaatgatggatctttttatgta
         gggaatagtgagagttttgatcataccaattgggattggataactgaattctcagtgtct
         atgaaaatgagcttaggactagaatacttacaagagaagtacttttctatggaactttat
         gcaaaatcatgtcttaagaagattcaaagttatttggtactttctaaattttggaatagc
         catattttcttaaactttgaaacaaatatgaaaatggatacttctgatttgacaaaagga
         gatatcaatttatcatttttcgatatttttgaagataattttgttcggtattcaagtaat
         aaaggatctaaatataagattgattcagttttcggttttttgagagaatttcatgtaaaa
         aaagaaaaccaagtagatgatattgaatatcaaaatattgataaagaaaaccaatcaaac
         ttaaatatatccaatacatctcaaacaacttctctaaagacaggctatctttacgtttac
         cgtttttcgaatggaatgccaattatttgtaaagatacagaatattgtgatattgtaaca
         tcagttaaaagcttcattagaaagaaaggaaatatctttggaatgaaattggcaaaaaaa
         gatgaaatagtagaaaataatcatgagaaactttcagtgttttctggggtaagttag
NTSEQ    358
         atggacttccatcaaatatctgagaagtttttaaacttattgaaaagatattataaagaa
         atttatgacgatttttcagagtcaggtttggatgagataattaaattgagggatgaaatt
         ttagattttggaaatgaaatagatttttctaatataatttcaaagaatgaagaagttgaa
         gatttgaatacaaatgacataaaatatttattatattcatatataagagcagaaacaaca
         aggtatgtaaaagatcataatgtaccaaaagaacgtgtagaaagaagaaatgatttaaat
         gaaataattgaactatatttacaattttttaataatacccttgaaattagaaatacaa
NTSEQ    339
         atggattttaatctaaacttgaatatttacttccgtaattttttacataattttgttact
         gaaagtcaagtaaacctaaatgatgcatacaaaccaacaaataatgaatacattttgatt
         attgacatctttccctatgaactgtgcatcaatgaattatttatcaataaaaaattgaga
         atcgtgaattgcaagcactccattaactctcctaaaagaatcgcgattaacgaatttaac
         tcaataattaacttatcaaaacatcttctaaagaatacaacttatattattgtaaaaact
         ttattaaataaaagtctaaatcctctaatatatttttag
NTSEQ    276
         atgaatagactaataacagagaacagattattacttaatcaacttaaagaaattggtaag
         gaattgttattaaagagtgaacaaattcaagaaaaaaacgcaatgatagacaaatatcag
         aaagaaataaggaaacttgagttagagcaaactgtgaataaaatccaagaaaatatggac
         aaagatcaaaacttggagcttgtatccaaactcgaaaatcaagtttttgcacttaatcag
         aaattaaatattattagggatacagttaacaattag
NTSEQ    537
         atgaataagacaatttttaaacttttatttttttttgcaatttatataatgattggcatt
         tcaaacgcctctgatgtgacatctagtggtagcttgaagacatcaaacaaccttgaaaaa
         gttaaactcgtaaatttggatttgtgtaactcgaaagaagcaactatcaatgttcaagac
         ataagtagctctgattccataatatatttcattactgttaagcttggaacggaaattatt
         gtgaatataaagggcaatccaacgacagggtatagccaagagatgattattaaaccggat
         gattcaattgtaaaagttatcgatgttgagccaagttacgttccagatccacacccagaa
         ggcatggttggatatggtggcaggtatatcttcaagttcttggcagttggatccggttca
         acagtttcgactattgaatatgcaagatactttgaaaggccaccaaaatgtatttttaag
         acagaaattcaattcaaagttatcgatctgccctgcgaagaaataataaaggaatag
NTSEQ    3189
         atgaatactgataaaagagatgaaattgatacaaatctctacagtcgtcagatcggtacg
         ctgggccttgaggcaatgggaaagctgataaagttacgcgtattgattgtggggcttcgt
         gggcttggcgtcgaaatagcgaaaaatattatattggctgggccgaaatcaataaccctt
         gtggatgatgagatatgtagtttttctgatatgggtgcaaacttttatattacagaaaat
         gacgtaaaaaaaggagccaaacgctcagatgcatgcttaaacaaacttgcatctttaaac
         gaatatgttcaagtcaccgtatttcatggagaaattacaagccaattgatcttcaaccac
         gacgtaattgtttgtgcggatgtaccattatcactacagataaaatacaacgaattatgt
         agagaccatactccaaatattgggtttatttccgccaactcccttggtctttgtggctcc
         gtttttgttgattttggggattcttttaatgtattcgatggaaatggtgaagaaccaaag
         agtgccataattgcaaagatttcaaggggtaaagaaacaacatctataacatgtctagcc
         gagaaacttctcccatttcaagaaggtgactatgtaatgtttagagaagtacagggaatg
         acagagttgaatggtacaggtcctcataagatcatctcaacaggaaaacaccaatttaca
         atccaattagattcgagtatgttcagagaatatgaaagagagggtttggttactcaggtt
         aaagttcctataaattacagcttccggagtttaagagatgcactcgaatatcctatttgt
         gatgaacagggaattttaattgttccagatctaaataaatttggcagatccgagcagctt
         ttcttctcaataaattctgttcttaaatactctgatattaaaggttctcgtccagaacac
         accgacctgcaagcaattaatgaatgccattcgcttgcagtggaaatgaacgagaactca
         aagaaaaagcaagactcaaacgacgaaaaaaaagaatttgttatttcagttagtagtatt
         gatagggatatactcgagaaagtatgcaaatattctagatgttgtatatctcctatggct
         gcttttctaggtggaattgctgcacaagaaattgtgaagtttgttggcaagtatacacca
         ttgcgccaattcttcttctttgatgcgttcgaacaattagatctaatttcaaatgagact
         catacaaaagaagagtttatgccattagggagtaggtacgatgatcagataatcatattc
         ggtagaagcttccaaaatagactatctgagaaaaatatttttattgtaggagcaggagct
         ttaggctgcgaatttttaaaaagcatggcgctactaggagttggatgtgggccaaatgga
         actgtaacaattacggatatggataatatcgaggtttcaaacctgaatcggcaattccta
         tttaggcaagaacatgtgggttcaccaaagagtgcaattgctgctcaagttatcagaaca
         ataaacaaagatataaatattatctctcttcaaacccgagttggcacagatactgaagat
         gtttttgatgatatattttggaataagaccagttttgtgattaatgctctagataatgtt
         ccttcaaggatgtacatcaatgatcgatgtttgtggtacgaaaaaccattactagaaagc
         ggtacattgggaaccaaagctaatagtgaaacatatctcccgcataaaacccagtcttat
         tctgataatcgtgatcctgcggaagaaagcatccctttgtgcactttaaagcacttcccg
         cacgcaatagagcacacaattgaatgggctcgtgacgcatttcagggaatttttacatca
         gacccgcaagaggctattacttttcttaatagcccatgcgaatatatccaaaatctgaaa
         caaagaggaaatcctaatgttatccttgagaaatctcaaaaaatatttgagctaattaat
         tggatttcagagaaagaccctacgcatgaagattgtattcgaatggcaataaatttgttt
         catgactacttctattgtcaaattaaacaacttttgactaacttcccccctgaccatatt
         aatagtgatgggcttcctttttggtcaggaccgaaaaggtgtccaacgcccataaagctg
         aatatacaagataaattgcattttgactttatcctttcagcttcaaacctatattcaaat
         atggttagattaccagaaatatccgactcttcaattatattcaaggtctcaaatgaaaca
         atccttccagaattcaatgctaagactacaataatcaagattgacgacgatggcaatact
         tcaagtaatgaaaatagcagctcaagttcaataatattggatacaagtattgctgaagag
         tacacaaataaattactttcatttacagaaaatagaattaaaaggtgcttaaactttata
         cagcctattgaatttgagaaagatgatgactcaaactttcatatagattttatgaattct
         tgtgccaacttaagagctaggaactactctataaaagaatgtgacagacataaatgtaaa
         atgatcgcggggcgtataatacctgccatagcaacaaccacagcaatgataactgggctc
         gtttcgttcgaagcgctgaaggtatcttcgtctggcgaatacaaaatagagctcttcaaa
         aattcattcatcaatctttctctcccgttgtttgtaattacggaaccccttccagcccca
         aagacaatttcaaaggaatttgatccaatagttgaaggtccattaagggcaaggcctgaa
         ggatttacagcctgggataagcttgttatcgaacaaaaagatggtactgttcaaaacatt
         atcgactatctgacaaataaaatgaatcttgagacacaaatcatctcgtttggcaacata
         tgtctttacaacgcgtatatcccaaatcaccaagaaagaaagtgcattcctattgcttta
         ttaatagaacaaattaccaagaagaagttgcacgttacaaagaatagtattgcgttagaa
         gttagttgttgtgatatcgatgatggggttgacacaattattccgtcaatcaagtttatt
         ttcaaatag
这只是文件里的一小部分，我只是要每段字母加起来能被3整除，就print,不能被整除的就抛弃。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

dugu072

稍有积蓄

论坛徽章:: 0

5楼 [报告]

发表于 2009-09-25 14:36 |只看该作者

while (<IN>) {
      if (/^NTSEQ/) {
         if (length($seqs)%3==0) { #移到上面来，还是不懂你的字母被3除，是指字符个数吧？加上 length , 这里是上一次的记录
         print OUT;
         }
         }
         $title = $_;
      else {
         $seqs .= $_;
         }
}