[Bioperl-l] While running without stop

debutant.bioperl joyeux2000 at hotmail.fr
Thu May 19 20:55:26 UTC 2011


thank you very very much for your reply 
the script works well :-)

Dave Messina-3 wrote:
> 
> I'm not familiar with these newfangled @-s and @+s, so I can't help with
> that.
> 
> But the traditional way to do this is with pos():
> 
> 
> while ( my $seq = $in->next_seq() ) {
>     my $seqstring = $seq->seq;
>     while ( $seqstring =~ m/(ATCGA)/g ) {
>         my $end = pos($seqstring);
>         my $start = $end - length($&) + 1;
>         print "ATCGA commence à la position $start\nse termine juste avant
> la position $end\n";
>     }
> }
> 
> 
> Dave
> 
> _______________________________________________
> Bioperl-l mailing list
> Bioperl-l at lists.open-bio.org
> http://lists.open-bio.org/mailman/listinfo/bioperl-l
> 

-- 
View this message in context: http://old.nabble.com/While-running-without-stop-tp31658279p31659539.html
Sent from the Perl - Bioperl-L mailing list archive at Nabble.com.





More information about the Bioperl-l mailing list