Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: comparing arrays

by rjbs (Pilgrim)
on Sep 21, 2004 at 15:31 UTC ( #392681=note: print w/ replies, xml ) Need Help??

in reply to comparing arrays

open(my $master_file, '<', "file1") or die "couldn't open master"; my %valid = map { chomp; ($_ => 1) } <$master_file>; close $master_file; open(my $data_file, '<', "file2") or die "couldn't open data file"; while (<$data_file>) { my ($key) = split /\s/; print if $valid{$key}; } close $data_file;
We create a hash of good values from the masterfile, for quick lookup. Then we iterate over the lines in the data file, printing them only if the first value is a valid key.

Comment on Re: comparing arrays
Download Code
Replies are listed 'Best First'.
Re^2: comparing arrays
by Limbic~Region (Chancellor) on Sep 21, 2004 at 16:46 UTC
    Though the AM didn't state it as a requirement, I wanted to point out that your solution does not preserve order.

    Cheers - L~R

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://392681]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2016-02-06 19:50 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (236 votes), past polls