Mega Code Archive

 

Categories / Perl / System Functions

 

Soundex function

#!/usr/bin/perl use warnings; use strict; use Text::Soundex; while (<>) {     chomp;   #remove trailing linefeed     s/\W/ /g;   #zap punctuation, e.g. '.', '@'     print "'$_' => '@{[soundex(split)]}'\n"; }