in reply to Re: Checking if all the key values are same in an Array
in thread Checking if all the key values are same in an Array

Would you concider this looping? 
#!/usr/bin/perl
use strict;

my @array = ({key1=>1, key2=>2, key3=>3}, {key1=>1, key2=>2, key3=>3},
+ {key1=>1, key2=>2, key3=>3} );
my $amount = scalar(@array);

if (!$array[0 ..  $amount]->{key1}) {
    print "no\n"
}

[download]
 Update holli is right. bah. this code just checks if key1 of the second element of the array is false. There is no loop.
"We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.

Replies are listed 'Best First'.
Re^3: Checking if all the key values are same in an Array
by holli (Abbot) on Apr 26, 2005 at 13:16 UTC
    No. Your code checks if the value under "key1" of the second hashref in the array is false.

    Consider: 
    #!/usr/bin/perl
use strict;

my @array = 
(
    {key1=>0, key2=>2, key3=>3}, 
    {key1=>1, key2=>2, key3=>3}, 
    {key1=>0, key2=>2, key3=>3} 
);

my $amount = scalar(@array);

if (!$array[0..$amount]->{key1}) 
{
    print "no\n"
}

    [download]
    which should print "no" but does not, and 
    #!/usr/bin/perl

use strict;

my @array = 
(
    {key1=>0, key2=>2, key3=>3}, 
    {key1=>1, key2=>2, key3=>3}, 
    {key1=>0, key2=>2, key3=>3} 
);

my $amount = scalar(@array);

if (!$array[0..$amount]->{key1}) 
{
    print "no\n"
}

    [download]
    which should not print "no" but does.


    holli, /regexed monk/
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom