Re^2: How to use regular expression for this?

Replies are listed 'Best First'.
Re^3: How to use regular expression for this? by graff (Chancellor) on Aug 13, 2005 at 00:13 UTC
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).	[reply]
Re^3: How to use regular expression for this? by QM (Parson) on Aug 12, 2005 at 23:09 UTC
`my $result = $pattern ^ $_;` [download] This XORs $pattern and $_ together, and stores it in $result. `my $matches = $result =~ tr/\0//;` [download] This counts the number of matches, and puts that into $matches. -QM -- Quantum Mechanics: The dreams stuff is made of	[reply] [d/l] [select]