Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
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(;;);

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://525472]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (13)
As of 2017-10-23 12:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (279 votes). Check out past polls.

    Notices?