Perl List::Compare printing

PB0711 · 08-09-2006, 07:21 PM

Hey all,

So I would have posted on the perl news thing but I just had a very snobby reply on another questiion I had. Anyway, I am trying to get List::Compare to work. It's working, I think but I just cannot seem to dereference it. This is what I have, it's only a test script.

Code:

#!usr/bin/perl -w
use strict;
use List::Compare;

my @Llist = qw(abel abel baker camera delta edward fargo golfer);
my @Rlist = qw(baker camera delta delta edward fargo golfer hilton);

my $lc = List::Compare->new(\@Llist, \@Rlist);

print "$lc\n";

foreach my $k (keys %$lc) {
        print "$k: " . $lc->{$k} . "\n";
}

I get the keys but then I get the array reference. Has it made an HoA or something?
there is a line

Code:

 $lc->print_subset_chart;

but it's not really telling me what the difference is between the two arrays.

j-ray · 08-10-2006, 01:06 AM

i guess u better use the methods supplied by the module to print out results...

# Get those items which appear at least once in both lists (their intersection).

@intersection = $lc->get_intersection;

# Get those items which appear at least once in either list (their union).

@union = $lc->get_union;

# Get those items which appear (at least once) only in the first list.

@Lonly = $lc->get_unique;
@Lonly = $lc->get_Lonly; # alias

# Get those items which appear (at least once) only in the second list.

@Ronly = $lc->get_complement;
@Ronly = $lc->get_Ronly; # alias

# Get those items which appear at least once in either the first or the second list, but not both.

@LorRonly = $lc->get_symmetric_difference;
@LorRonly = $lc->get_symdiff; # alias
@LorRonly = $lc->get_LorRonly; # alias

# Make a bag of all those items in both lists. The bag differs from the union of the two lists in that it holds as many copies of individual elements as appear in the original lists.

@bag = $lc->get_bag;

PB0711 · 08-10-2006, 12:59 PM

Oh sorry I was in a rush and just searched for print

Thx