use Text::Abbrev; : Text « System Functions « Perl

use Text::Abbrev;

      



use Text::Abbrev;



%hash = abbrev qw(Now is the time);



foreach $key (keys %hash) {

    print "$key => $hash{$key}\n";

}

Related examples in the same category

1.	Get abbreviations
2.	Read password
3.	use Text::Tabs to set the tab size
4.	Soundex function

All other trademarks are property of their respective owners.