Beefy Boxes and Bandwidth Generously Provided by pair Networks
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; }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://473860]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2023-02-05 14:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (31 votes). Check out past polls.

    Notices?