Re^3: Multiple check in If statement ??


Do you know where your variables are?
	PerlMonks

Re^3: Multiple check in If statement ??

by neniro (Priest)

on Jul 11, 2005 at 07:55 UTC ( #473860=note: print w/replies, xml )

Need Help??

in reply to Re^2: Multiple check in If statement ??
in thread Multiple check in If statement ??

Yeah, you're right. Another try:

#!/usr/bin/perl

use strict;
use warnings;

my $a = "a";
my $b = "b";
my $c = "c";
my $d = "d";
my $e = "e";

if ( eq_list ([$a, $b, $c, $d, $e], [qw(a b c d e)]) ) {
    print "success\n";
}
else {
    print "failure\n";
}

sub eq_list {
    my ($arr1, $arr2) = @_;
    my @compared = map { $arr1->[$_] eq $arr2->[$_] ? 1 : 0 } (0..$#$a
+rr1);
    my $bool = 1; $bool *= $_ for (@compared);
    return $bool;
}
[download]