http://www.perlmonks.org?node_id=681301


in reply to Array name with a Variable

Is something like this what you are after?

use strict;
use warnings;
use Set::Scalar;

my @array1 = qw(c d e);
my @array2 = qw(e f g h);
my @array3 = qw(a b d);
my @array4 = qw(s g h j k l);
my @metaArray = (\@array1, \@array2, \@array3, \@array4, );

for my $first (0 .. $#metaArray - 1) {
    for my $second ($first + 1 .. $#metaArray) {
        my (%union,  %intersect);
        $union{$_}++ && $intersect{$_}++
            foreach @{$metaArray[$first]}, @{$metaArray[$second]};
        
        my @intersect = sort keys %intersect;
        print "\@array$first, \@array$second: @intersect - ";
        print scalar @intersect, "\n";
    }
}

[download]

Prints:

@array0, @array1: e - 1
@array0, @array2: d - 1
@array0, @array3:  - 0
@array1, @array2:  - 0
@array1, @array3: g h - 2
@array2, @array3:  - 0

[download]
Perl is environmentally friendly - it saves trees

Replies are listed 'Best First'.
Re^2: Array name with a Variable
by Anonymous Monk on Apr 18, 2008 at 05:34 UTC
    If one of the input arrays has a duplicate entry, a spurious intersection will be detected.

    An input array set of 

    my @array1 = qw(c d e);
my @array2 = qw(e f g h);
# my @array3 = qw(a b d);  # original code
my @array3 = qw(a a b d);  # modified for test
my @array4 = qw(s g h j k l);

    [download]

    Produces output of 

    @array0, @array1: e - 1
@array0, @array2: a d - 2
@array0, @array3:  - 0
@array1, @array2: a - 1
@array1, @array3: g h - 2
@array2, @array3: a - 1

    [download]

    godevars may be dealing with input arrays that have unique elements; certainly, his example data has this characteristic. However, it is nowhere stated explicitly that this is the case, so I just thought I'd mention it.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom