Re: How to use regular expression for this?

[AReed]

Must you use a regular expression? If not, this works:

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

my @teststrings = qw(ABCXXXXXX AXCXXXXXX AXXDXFXXX AXXXXXXHI XXXXXXGHI
+ XXXXXXXXX AXXXXXXXI);

my $pattern = "ABCDEFGHI";
my $desired_matches = 3;

for (@teststrings) {
   my $result = $pattern ^ $_;
   my $matches = $result =~ tr/\0/ /;
   print "$_\n" if $matches == $desired_matches;
}

[Anonymous Monk]

I don't have to use regular expression. Can you explain the meaning of: my $result = $pattern ^ $_; my $matches = $result =~ tr/\0/ /; Thanks!!

[graff]

To elaborate on QM's solution explanation of AReed's solution, the "^" (exclusive-OR) operator, applied to two strings, will treat them as bit vectors, and return a string whose characters each represent 8 bits, in proper order, from the XOR result.

If the two strings have the same character at the same offset, the XOR result will be zero (null byte); the "tr/\0/ /" operation will not only convert the nulls to spaces, but will also return the number of nulls found and converted.

It's okay if the two strings are not the same length, because the shorter one will be padded with nulls as needed (and any value XOR 0 gives back that same value).

[QM]

my $result = $pattern ^ $_;

This XORs $pattern and $_ together, and stores it in $result.

my $matches = $result =~ tr/\0//;

This counts the number of matches, and puts that into $matches.