Re^2: If there a way to find the location of the first difference between two strings?

use 5.010; my $t = $s1 ^ $s2; my ($f) = $t =~ /^(\x{00}*)/; say length $f;
[download]

Another way to do that:

use 5.010;
my $t = $s1 ^ $s2;
$t =~ /^\0*/ && say $+[0]
[download]

Comment on Re^2: If there a way to find the location of the first difference between two strings? Select or Download Code

Replies are listed 'Best First'.
Re^3: If there a way to find the location of the first difference between two strings? by flexvault (Monsignor) on Mar 26, 2012 at 10:36 UTC
JavaFan and jwkrahn, *C o o l !* That's the code I was hoping for... Need to benchmark now! UPDATE: My apologies to JavaFan, I didn't realize his post was first. Both solutions Benchmarked are better than mine (376%). Thank you "Well done is better than well said." - Benjamin Franklin	[reply]