Re: scanning hash

[davido]

I just wanted to add that ysth's solution can also be adapted in such a way that it can be applied to arrays.

Determine if all elements in @array are equal.

use strict;
use warnings;

my @goodarray = ( 1, 1, 1, 1, 1 );
my @badarray  = ( 1, 2, 3, 4, 5 );

foreach my $aref ( \@goodarray, \@badarray ) {
    print SameVals($aref)
          ? "Good!\n"
          : "Bad!\n";
}

sub SameVals {
    keys %{ { map { $_ => undef } @{ +shift } } } <= 1;
}

Enjoy!\n

[Aristotle]

This too suffers the same problem as Re: scanning hash: it treats undefs and empty strings as the same.