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