Re^2: Multiple check in If statement ??

Hmm, you could concat all of them, so you just need to compare two strings and thats easy.

That could also give a lot of false positives...

$a = "abcd";
$e = "e";
[download]

Comment on Re^2: Multiple check in If statement ?? Download Code

Replies are listed 'Best First'.
Re^3: Multiple check in If statement ?? by neniro (Priest) on Jul 11, 2005 at 07:55 UTC
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]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Multiple check in If statement ??
by neniro (Priest) on Jul 11, 2005 at 07:55 UTC

#!/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]

[reply]
[d/l]