Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Mismatch Positions of Ambiguous String

by murugu (Curate)
on Jan 25, 2006 at 15:45 UTC ( #525472=note: print w/ replies, xml ) Need Help??


in reply to Mismatch Positions of Ambiguous String

Hi,

Here is my substring approach.

use strict; use warnings; my $str = 'TTCTTCT'; my $tar = 'ATGTTCT'; my $i =0; while (length($str)) { if (substr($str,0,1) eq '[') { my $index = index $str,']'; my $m = substr($str,0,$index+1); print "Mismatch at index $i\n" unless (substr($tar,$i,1)=~/$m/) +; substr($str,0,$index+1)=""; } else { print "Mismatch at index $i\n" unless (substr($str,0,1) eq subs +tr($tar,$i,1)); substr($str,0,1)=""; } $i++; }

Regards,
Murugesan Kandasamy
use perl for(;;);


Comment on Re: Mismatch Positions of Ambiguous String
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://525472]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (12)
As of 2014-12-26 11:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (171 votes), past polls