home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / demo_range.pl < prev    next >
Perl Script  |  2003-11-07  |  365b  |  22 lines
  1. package UNIVERSAL;
  2. use Attribute::Handlers;
  3. use Tie::RangeHash;
  4.  
  5. sub Ranged : ATTR(HASH) {
  6.     my ($package, $symbol, $referent, $attr, $data) = @_;
  7.     tie %$referent, 'Tie::RangeHash';
  8. }
  9.  
  10. package main;
  11.  
  12. my %next : Ranged;
  13.  
  14. $next{'cat,dog'} = "animal";
  15. $next{'fish,fowl'} = "meal";
  16. $next{'heaven,hell'} = "reward";
  17.  
  18. while (<>) {
  19.     chomp;
  20.     print $next{$_}||"???", "\n";
  21. }
  22.