Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Re: Re: Re: grepping

by Anonymous Monk
on Mar 25, 2001 at 11:31 UTC ( #66984=note: print w/replies, xml ) Need Help??

in reply to Re: Re: Re: grepping
in thread grepping

At 1:30am they seem the same to me, but I do know the difference. I will be more clear in my future attempts to get help. Nice example, but it still doesn't answer my last question. And in my original post, I specifically asked which ids are in @data2 and not in @data.

I just need a little more help in understanding how can I do lookups on any value I want instead of every value or just the first value. Please don't think I'm being scarcastic, I'm very frustrated in trying to learn about hashes and arrays. :) Smile on those who read the docs, Perl Cookbook, The Complete Reference to Perl, and even Perl DBI. Yes, I own all three and I'm trying very hard to learn this...phew. Thanks.

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: grepping
by dws (Chancellor) on Mar 25, 2001 at 11:37 UTC
    Sorry. I didn't answer your last question because I thought that the first part was based on a flawed premise, and the second part made no sense. It seemed to me that the best response was to point out the misunderstanding, rather than guess at what you might have meant.

    Please restate the question.

    (This is also a good reason to sign up here rather than posting anonymously. Some of this can be hashed out in the Chatterbox.)

      Actually I've got a login, but sometimes I refrain because monks will get annoyed at how many times I post a Anyway, please tell me where you get lost in my post so I can get better at writing these situations.

      Now, let me explain in detail what's happening.

      @data is read from a file containg many rows such as:

      @data2 is read from a file containing many rows such as:

      Using this code:
      { my %data; undef @data{@data}; foreach ( @data2 ) { print "This $_ was not found.\n" if not exists $data{$_} } }

      it matches all five values from each line in @data2 to all 3 values in @data line by line. So basically every line in @data2 gets printed when that script is run. What I want to do is match the first value from @data2 to the first value from @data and return the results based on values in @data2 that are not in @data.

      I also want to know how I can match the second value from @data2 to the first value in @data and return the results that are not in @data.

      I hope this makes better senses. I'll keep trying if it doesn't. Thanks for all your help.
        This sounds like the kind of operations that a relational database is intended for.

        I would suggest using DBI together with DBD::CSV if you want to keep on using flatfiles. And then when you get tired of bad performance you can just use a real database instead. :-)

        I agree. You're heading in a direction that relational databases and SQL cover quite well.

        If you choose to continue on in Perl, you might get some mileage out of mapping your data rows into hashes.

        while ( <DATA2> ) { chomp; my %record; @record{qw(ID COMP TYPE DOC REF)} = split; pushd @data2, \%record; }
        will give you an array of (references) to hashes that hold records from your second data file. (You'll need to fill in some code around this, but that should be obvious.) Then, to get an array of IDs you would do something like @ids = map { $_->{'ID'} } @data2; I'll leave the queries as an exercise. You should be able to piece them together based on information given so far in this thread.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2021-01-21 19:19 GMT
Find Nodes?
    Voting Booth?