#!usr/bin/perl use strict; use warnings; get_record(); # skips the first ">" line my $record; while ( defined ( $record = get_record() ) ) { process_record ($record); } ########### sub process_record { my $record = shift; print "$record\n"; # please explain more about to process the record # the spec from the prof would be appropriate } sub get_record #works with Perl DATA segment { my $line; my $record = undef; while ( defined ($line = ) and $line !~ /^>/) { chomp $line; next if $line =~ /^\s*$/; # skip blank lines $record .= $line; } return $record; #could return a reference, but let's get #the process_record() logic right first } __DATA__ >211000022278617 type=golden_path_region; loc=211000022278617:1..1037; ID=211000022278617; dbxref=GB:DS485855,GB:DS485855,REFSEQ:NW_001847144; MD5=8fd22b4969d1f92433b80ee3837e69bc; length=1037; release=r6.18; species=Dmel; ATGACGAAAATTTCGTTTGTAAATATCAACATTTTTGCAGAGTCTGTTTTTCCAAATTTCGGGTCATCAAATAATCATTT ATTTTGCCACAACATAAAAAATAATTGTCTGAATATGGAATGTCATACCTCACTGAGCTCGTAATAAAATTTCCAATCAA ACTGTGTTCAAAAATGGAAATTAAATTTTTTGGCCATATTTTGCAAATTTTGATGACCACCCCTCCTTACAAAAAATTCG AAAATTGATCCAAAAATTAATTTCCTAAATCCTTCAAAAAGTAATAGGGATCGTTAGCACTGGTAATTAGCTGCTCAAAA CAGTTATTCTTACATCTATGTGACTATTTTTAGCCAAGTTATGACGAAAATTTCGTTTGTAAATATCAACATTTTTGCAG AGTCTGTTTTACCAAATTTCGGTCATCAAATAATCATTTATTTTGCCACAACATAAAAAATAAGTGTCTGAATATGGAAT GTCATACCTCACCGATCTCGTAATAAAATTTCCAATAAAACTGTGTTCAAAAGAGGAAATTAAATTTGTTGGCCATATTT TGCAAATTTTGATGACCCCCCTCCTTACAAAAAATGCGAAAATTGATCCAAAAATTAATTTCCCTAAATCCTTCAAAAAG TAATAGGGATCGTTTGCACTGGTAATTAGCTGCTCAAAACAGTTATTCTTACATCTATGTGACCATTTTTAGCCAAGTTA TAACGAAAATTTCGTTTGTAAATATCAACATTTTTGCAGAGTCTGTTTTTCCAAAATTTGGTCATCAAATAATCATTTAT TTTGCCACAACATTAAAAATAATTGTCAGAATATGGAATGTTATATTTCACTGAGCTCGTAATAAAATTTCCAATCAAAC TGTGATCAAAAATGGAAATTAAATTTTTTGGCCATATTTTGCAAATTTTGATGACCCTCCTCCTTACAGAAAATGCGAAA ATTGATCCAAAAATAAGTTTTCTAAATCCTTCAAAAAGTAATAGGGATCGTTAGCACTGGTAATTAGCTGCTCAAAA >211000022278618 type=golden_path_region; loc=211000022278618:1..1452; ID=211000022278618; dbxref=GB:DS484811,GB:DS484811,REFSEQ:NW_001846100; MD5=28b88781b6ffbac76cf0ccd6f47258a1; length=1452; release=r6.18; species=Dmel; ATTTTGAGCAGCTAATTATCAGTGCTAACGATCCCTATTACTTTTTGAAGGATTTAGGGAAATTATTTTTTGGATCAATT TTCGCATTTTTTGTAAGGAAGGGGGTCATCAAAATTTGCCAAATATGGCCAAAAAATTCAATTTCTATTTTTGAACACAG TTTGATTGGATATTTTATTACGAGCTCAGTGAGGTATGACATTCCATGTTCAGACAATTATTTTTTATGTTGTGGCAAAA TAAATGATTATTTGATGACCAAAATTTGGAAAAACAGATTCTGCAAAATGTAATATTTACAAACGAAATTTTCGTCATAA CTTGGTTAAAAATGGTCACATAGATGTAAGAATAACTGTTTTGAGCAGCTAATAACCAGTGCTAACGATCCCTATTACTT TTTGAAGGATTTAGGGAAATTAATTTTTGGATCAATTTTCGCATTTTATGTAAGGAGGGGGGTCATCAAAATTTGCAAAA TTATGCCAAAAAATTTAATTTCCATTTTTGAACACAGTTTGATTGGAAATTTTATTACGAGCTCAGTGAGGTATGACCTT CCATATTCAGACAATTATTTTTTATGTTGTGGCAAAATAAATGATTATTTGATGACCGAAATTTGGAAAAACAGATTCTG CCAAAGAAGTAGATATTTACAAACGAAATTTTCGTCATAACTTGGTTAAAAATGGTCACATAGATGTAAGAATAACTGTT TTGAGCAGCTAATTATCAGTGCAAACGATCCCTATTACTTTTTGAAGGATTTAGGGAAATTAATTTTTGGATCAATTTTC GCATTTTATGTAAGGAGGGGGGTCATCAAAATTTGCAAAATATGGCCAAAAAATTTAATTTCCATTTTTGAACACAGTTT GATTGGAAATTTTATTACGAGCTCAGTGAGGTATGACATTCCATATTCAGACAATTATTTTTTATGTTGTGGCAAAATAA ATGATTATTTGATGACCAAAATTTGGAAAAACAGACTCTGCAAAAATGTAGATATTTACAAACGAAATTTTCGTTATAAC TTGGCTAAAAATGGTCACATAGATGTAAGAATAACTGTTTTGAGCAGCTAATAACCAGTGCTAACGATCCCTATTACTTT TTGAAGGATTTAGGGAAATTAATTTTTGGATCAATTTTCGCATTTTATGTAAGGAGGGGGGTCATCAAAATTTGCAAAAT ATGGCCAAAAAATTTAATTTCCATTTTTGAACACAGTTTGATTGGAAATTTTATTACGAGCTCAGTGAGGTATGACATTC CATATTCAGACAATTATTTTTTATGTTGTGGCAAAATAAATGATTATTTGATGACCAAAATTTGGAAAAACAGACTCTGC AAAAATGTAGATATTTACAAACGAAATTTTCGTTATAACTTGGCTAAAAATGGTCACATAGATGTAAGAATAACTGTTTG AGCAGCTAAAAC >211000022278619 type=golden_path_region; loc=211000022278619:1..1986; ID=211000022278619; dbxref=GB:DS484504,GB:DS484504,REFSEQ:NW_001845793; MD5=35ebd37874cb5c55b4804e9786d17bfe; length=1986; release=r6.18; species=Dmel; ACAGTTATTCTTACATCTATGTGACAATTTTTAGCCAAGTTATAACGAAAATTTCGTTTGTAAATATCATTACTTTGGCA GAATCTGTTTTTCCACATTTCGGTCTTCAAATATCATTTATTTTGCCACAACATTAAAAATAATTGTCTGAATATGGAAT GTCATACCTCACTGAGCTTGTAGTAAAATTTCCAATCAAACTGTGTTCAAAAATGGAATTAAATTTTTTGGCCATATTTT GCAAATTTTGATGACCTTCTTCCAAAAATTGCAAAAATTGATCTAAAAATTAGTTTCCCTAAATCCTTCAAAAAGTAATA GGGATCGTTAGCACTGGTAATTAGCTGCTCAAAACAGTTATTCTTAGATCTATGTGACCATTTTTAGCCAAGTTATAACG AAAATTTCGTTTGTAAATATCAATATTTTGGCAGAATCTGTTTTTCCAAATTTCGGTCAAAAAATAATGATTTATTTTGC CACAACATAAAAAATAATTGTCTGAATATGGAATGTCATACCTCACTGAGCTTGTAATAAAATTTCCAATCAAACTGTGT TCAAAAATGGAAATTAAATTTTTTGGCCATATTTTGCAAATTTTGATGACCCCCGTCGTTACAAAAAATGTGAAAATTGA TCGAAAAATTAATTTCCCTAAGTCCTTCAAAAAGTAATAGCGATCGTTAGCACTGGTAATTAGCTGCTCAAAACAGTTAT TCTTACATCCACGTGACAGTTTTTAGCCAAGTTATAACGAAAATTTCGTTTGTAAATATCAACATTTTTGCAGAGTCTGT TTTTCCAAAATTCGGTCATCAAATAATCATTTATTTTGCCACATTAAAAATAATTGTCAGAATATAGAATGTCATACTTC ACTGACTCGGAATAAAATTTCCAATCAAACTGGGTTCAAAAAATGGAAATTAAACTTTTTGGCCCTATATTACAAATTTT GATGACCTCCCTCCTTCCCAAAAATGTGAAAATTGATCTAAAAATTAATTTTCCTAAATCCTTCAAAAAGAAATAGCGAT CATTAGCACTGGTAATTAGCTGCTCAAAACAGTTATTCTTACATCTATGTGACAATTTTTAGCCAAGTTATAATGAAAAT TTCGTTTGTAAATATCATTACTTTGGAAGAATCTGTTTTTCCACATTTCGGTCTTCAAATAATCATTTATTTTGCCGCAA CATTAAAAATTATTGTCAGAATATAGAATGTCATACTTCACTGAGCTCATTATAAAATTTCCAATCAAACTGTATTCAAA AATGGAAATTAAATTTTTTGGCCATATTTTGCAAATTTTGATGACCCCCAACTTCCAAAAATTGTGAAAATTGATCCGAA AATTAATTTCCCTAAATCCTTCAAAAAGAAATAGCGATCGTTAGCACTGGTAATTAGCTGCTCAAAACAGTTATTCTTAC ATCTATGTGACAATTTTTAGCCAAGTTATAACGAAAATTTCGTTTGTAAATATCATTACTTTGGCAGAATCTGTTTTTCC ACATTTCGGTCTTCAAATATCATTTATTTTGCCACAACATTAAAAATAATTGTCTGAATATGGAATGTCATACCTCACTG AGCTTGTAGTAACATTTCCAATCAAACTGTGTTCAAAAAATGGAAATTACATTTTTTGGTCATATTTTGCAAATTTTGAT GACCCCCGTCCTTATAAAAAATGTGAAAATTGTTCGAAAAATTAATTTCCCTAAATCCTTCAAAAAGTAAAAGCGATCGT TAGCACTGGTAATTAGCTGCTCAAAACAGTTATTCTTACATCTATGTGACAATTTTTAGCCAAGTTATAACGAAAATTTC GTTTGTAAATATCATTACTTTGGCAGAATCTGTTTTTCCACATTTCGGTCTTCAAATATCATTTATTTTGCCACAACATT AAAAATAATTGTCTGAATATGGAATGTCATACCTCACTGAGCTTGTAGTAAAATTTCCAATCAAAC