use strict;
use warnings;
my $str = 'foo bar baz';
while (<DATA>) {
chomp;
print "$_\n" if ob1($str, $_);
}
sub ob1 {
my ($w1, $w2) = @_;
return 0 if (abs(length($w1) - length($w2)) > 1);
return 1 if $w1 eq $w2;
if (length($w1) == length($w2)) {
my ($i, $c);
for ($i = 0; $i < length($w1); $i++) {
$c++ if substr($w1, $i, 1) ne substr($w2, $i, 1);
return 0 if $c && $c > 1;
} return 1;
}
if (length($w1) > length($w2)) {
my $t = $w1; $w1 = $w2; $w2 = $t;
}
$w1 = join '.?', '', split(//, $w1), '';
return 1 if $w2 =~ /$w1/;
return 0;
}
__DATA__
fooo bar baz
foo bar baaz
foo bbar baz
foo bar baz
foo bar bz
fob bar biz
fooo bar bazz
This could also be written without regex, since you only really care about one character difference. Just match the characters both ways if there is one character difference in length, and if the matched characters total is equal to the length of the smaller string, then there's only one character difference.
adbc abc
a eq a -> 1
d ne b ->
c eq c <- 2
b eq b <- 3
d ne a <-
Total matches = length of abc.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.