Farid Hajji: Perl - Einführung, Anwendungen, Referenz
2., aktualisierte und erweiterte Auflage
Addison-Wesley Longman, ISBN 3-8273-1535-2
soundex.pl
#!/usr/local/bin/perl
# soundex.pl -- "weicher" Vergleich von Namen:
use Text::Soundex; # Standardmodul
print "Smith und Smythe sind soundex-gleich\n"
if soundex("Smith") eq soundex("Smythe");
print "Smith und Wesson sind soundex-ungleich\n"
if soundex("Smith") ne soundex("Wesson");
# Smith und Smythe sind soundex-gleich
# Smith und Wesson sind soundex-ungleich
[Prev] [Up] [Relevant Chapter] [Next]
[Alte Quelle]
| Last modified: $Date: 2006/05/18 12:56:05 $ FH. Search :: Sitemap :: Disclaimer :: Copyright :: Privacy |
 |