home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / apb / abbrev.eg next >
Encoding:
Text File  |  1992-10-18  |  225 b   |  11 lines
  1. require 'abbrev.pl';
  2. %abdul = ();
  3. &abbrev(*abdul,'he','help','hi','bye','wally','world');
  4. .\"# for (sort keys abdul) { print "$_ $abdul{$_}\n"; }
  5.  
  6. while (<>) {
  7.     chop;
  8.     $long = $abdul{$_};
  9.     print "$long\n" if length($long);
  10. }
  11.