Re: nested foreach loop, match DNA sequences and calculate score

[Cristoforo]

To show another way to calculate the matches.

#!/usr/bin/perl
use strict;
use warnings;

my $fasta1 = 'GGGTATTCCTTCTCCACCTTGCAGCTAACATCAGTGTTTCGTCTACTCAAGCACGC
+CAAC';
my $fasta2 = 'ACGCCCTAGAGCGCCCTGTCCAGGGGATGGCAACCAACTCTGACCCTGCAAGTGCA
+GCAG';

my $matched = ($fasta1 ^ $fasta2) =~ tr/\0//;
my $non_match = length($fasta1) - $matched;

print "matched: $matched\n";
print "non_matched: $non_match\n";

This prints:

matched: 15
non_matched: 45