Help for this page

Select Code to Download


  1. or download this
    my %h = qw( 1 2 3 4 5 6 );
    my %rev_h = reverse %h;
    ...
              '4' => '3',
              '2' => '1'
            };
    
  2. or download this
    my @keys = grep{ $hash{$_} eq $find } keys %hash;