in reply to Re^14: Comparing 2 different-sized strings
in thread Comparing 2 different-sized strings

Try:

my $hay = ...;
my $nee = 'AGGATACGCCAC';
substr(  $hay, $_+4, 1 ) eq 'T' and print substr( $hay, $_, length( $n
+ee ) ) for fuzzyMatch( \$hay,  \$nee, 3 );

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Replies are listed 'Best First'.
Re^16: Comparing 2 different-sized strings
by AdrianJ217 (Novice) on Aug 18, 2013 at 19:45 UTC
    Thank you, but does this incorporate both $nee1 and $nee2 in this case where there are 2 sequences to search for?
[reply]
      Thank you, but does this incorporate both $nee1 and $nee2 in this case where there are 2 sequences to search for?

      You said:

      $nee1 = AGGA
$nee2 = CGCCAC
#What I want is the following in regular expression: 

$hay =~ /($nee1)T[ATGC]($nee2)/

      [download]

      I used:

      my $nee = 'AGGATACGCCAC';
## $nee1   ^^^^
## T?          ^^
## $nee2         ^^^^^^

      [download]

      What do you think the answer to your question is?

      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
[select]
        Yeah, got it. Thank you!
[reply]

In Section Seekers of Perl Wisdom