in reply to Weird "soundex" algorithm
sub weirdex { local $_ = $_[0]; tr/a-zA-Z//s; tr/a-zA-Z//cd; my $i; s/([aeiou])/$1if!$i++/eg; $_; }
--
John.
|
---|
In Section
Seekers of Perl Wisdom
in reply to Weird "soundex" algorithm
sub weirdex { local $_ = $_[0]; tr/a-zA-Z//s; tr/a-zA-Z//cd; my $i; s/([aeiou])/$1if!$i++/eg; $_; }
--
John.
|
---|