Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Remove unique elements from a list of lists

by PrakashK (Pilgrim)
on Feb 27, 2002 at 14:44 UTC ( #147908=note: print w/replies, xml ) Need Help??


in reply to Remove unique elements from a list of lists

I need to remove all unique entries from a list of lists such that all lists are the same.
From what you have done, it seems to me like you want to get the elements which exist in all lists.

I can't suggest a better way, but it can be shorter be removing unnecessary code.

use strict; use warnings; use Data::Dumper; my $temp = ... # your list of lists here my $numterms = @$temp; my $seen = {}; for my $term (@$temp) { map { $seen->{$_}++ } @$term; } my @results = grep {$seen->{$_} == $numterms} keys %$seen; print STDERR Data::Dumper->Dump([\@results]);
/prakash

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://147908]
help
Chatterbox?
[Corion]: I just found out that in $current_top_prior ity_project , the part I am in is not even in the top three worries. That's somewhat bad, not because I'm happy with being a top worry but because that means that I don't even know how bad the rest ...
[Corion]: ... of the situation is :-)
[marto]: it's good to know that things can always get worse :P
[hippo]: Ignorance can be bliss
[Corion]: hippo: Yeah - I'll just avoid the project lead :)
[Corion]: marto: Yeah, it helps with the perspective :-D

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (11)
As of 2017-07-26 08:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (385 votes). Check out past polls.