Help for this page

Select Code to Download


  1. or download this
    sub key {
        $kp= shift;
    ...
    
    printKeys(\%p2C);
    printKeys(\%C2p);
    
  2. or download this
    C:\chas_sandbox>foreachasmap.pl
    
    ...
    pt:   m p s v l a z y d g t h e q u i c k b r o w n f x j
    
    C:\chas_sandbox>
    
  3. or download this
    sub key {
        $kp= shift;
    ...
    
    printKeys(\%p2C);
    printKeys(\%C2p);
    
  4. or download this
    C:\chas_sandbox>foreachasmap.pl
    
    ...
    
    CT:   A C D E G K L M N O P Q R S T U V W X Z
    pt:   j m p s v t h l q z i c k b # o w n f x
    
  5. or download this
        %hash = map { getkey($_) => $_ } @array;
    
  6. or download this
        %hash = ();
        foreach $_ (@array) {
        $hash{getkey($_)} = $_;
        }
    
  7. or download this
    sub key {
        $kp= shift;
    ...
    
    printKeys(\%p2C);
    printKeys(\%C2p);
    
  8. or download this
    C:\chas_sandbox>foreachasmap.pl
    
    ...
    pt:   g h i j k l m n o p q r s t u v w x y z a b c d e f
    
    C:\chas_sandbox>