Soundex function : Text « System Functions « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » System Functions » 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
1.Get abbreviations
2.Read password
3.use Text::Abbrev;
4.use Text::Tabs to set the tab size
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.