Soundex function : Text « System Functions « Perl

1. Perl
2. System Functions
3. Text

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";
}

   
    
    
    
    
    
  

Related examples in the same category