in reply to Matching values between two arrays of hashes.

I second space_monk's suggestion of using hashes keyed on the location_id. The following uses two hashes of arrays of hashes to handle multiple 'records' having the same location_id:

use strict; use warnings; use Benchmark qw(cmpthese); my %subnets; my %filers_info; my @subnets = ( { 'id' => '1', 'location_id' => '30', 'subnet' => '255.255.255.0' }, { 'id' => '2', 'location_id' => '13', 'subnet' => '255.255.254.0' }, { 'id' => '3', 'location_id' => '19', 'subnet' => '255.255.0.0' }, ); my @filers_info = ( { 'id' => '1', 'location_id' => '19', 'info' => 'blah1', }, { 'id' => '2', 'location_id' => '30', 'info' => 'blah1', }, { 'id' => '3', 'location_id' => '30', 'info' => 'blah1', }, ); push @{ $subnets{ $_->{'location_id'} } }, $_ for @subnets; push @{ $filers_info{ $_->{'location_id'} } }, $_ for @filers_info; sub original { my @total_filers; foreach my $subnet (@subnets) { my @found_filers = grep { $_->{'location_id'} == $subnet->{'location_id'} } @fi +lers_info; push @total_filers, @found_filers; } } sub hashed { my @total_filers; exists $subnets{$_} and push @total_filers, @{ $filers_info{$_} } for keys %filers_info; } cmpthese( -5, { original => sub { original() }, hashed => sub { hashed() }, } );

Dumper output of @total_filers from sub hashed { ...:

$VAR1 = [ { 'info' => 'blah1', 'location_id' => '30', 'id' => '2' }, { 'info' => 'blah1', 'location_id' => '30', 'id' => '3' }, { 'info' => 'blah1', 'location_id' => '19', 'id' => '1' } ];

Benchmark results:

Rate original hashed original 282623/s -- -64% hashed 780346/s 176% --

Hope this helps!

Replies are listed 'Best First'.
Re^2: Matching values between two arrays of hashes.
by tacoking92 (Novice) on Nov 01, 2012 at 12:15 UTC
    Bingo. That's exactly what I was looking for! Thank you very much for the help. I'm not sure why I didn't think about using the location_id as a hashed key. Makes perfect sense. Thanks everyone.

      Am glad it worked for you!