Help for this page

Select Code to Download


  1. or download this
    package Tie::CaseInsensitive;
use strict;
...
    return defined $self->{lc $key};
} 
1;
  2. or download this
    #!/usr/bin/perl 

...
foreach(keys %HASH){
   print "$_,$HASH{$_}\n";
}