Re: Partial extractions on hashes

[busunsl]

For a partial match on values in a hash try this:

%hash = ('k1' => 'abc', 'k2' => 'def', 'k3' => '123abcdef456');

@array = map { $_->[1] } grep { $_->[1] =~ /abc/ } map { [$_, $hash{$_
+}] } keys %hash);
foreach (@array) {
  print $hash{$_}, "\n";
}

[tye]

You can shorten that quite a bit:

%hash = ('k1' => 'abc', 'k2' => 'def', 'k3' => '123abcdef456');

@array = map  $hash{$_} =~ /abc/ ? $_ : (),  keys %hash;
foreach (@array) {
    print "$_: $hash{$_}\n";
}

        - tye (but my friends call me "Tye")