Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: grepping

by MeowChow (Vicar)
on Mar 25, 2001 at 13:52 UTC ( #66997=note: print w/replies, xml ) Need Help??


in reply to grepping

As it turns out, your particular problem is somewhat more complicated than we had all assumed. Here's one way to solve it:
use strict; # this simply gives us some sample data, just like # you would have gotten from doing @data = <FILE> my @data = split $/, <<EOF; 1,comp1,type1 2,comp2,type2 3,comp3,type3 EOF my @data2 = split $/, <<EOF; 1,comp1,type1,doc1,ref1 2,comp2,type2,doc2,ref2 3,comp3,type3,doc3,ref3 4,comp4,type4,doc4,ref4 5,comp5,type5,doc5,ref5 EOF # end of sample-data # figure out how many columns there are in @data my $num_cols = () = $data[0] =~ /,/g; # create hash-keys based on the number of columns my %d2keys; $d2keys{join ',', (split /,/)[0..$num_cols]} = $_ for @data2; # delete duplicates delete @d2keys{@data}; # and we're left with the ones that differ... my @diff = values %d2keys; # proof that it worked :) print $_,$/ for @diff;
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2021-09-20 13:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?