vihar has asked for the wisdom of the Perl Monks concerning the following question:
@a = (5,10,15); @b = (5,10,15); $num = &arrayComp(@a, @b); print "num - $num\n"; sub arrayComp(@a, @b) { my(@a, @b) = @_; if (@a != @b) { $equals = 0; } else { $equals = 1; foreach (my $i = 0; $i < @a; $i++) { if ($a[$i] != $b[$i]) { $equals = 0; last; } } } return $equals; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Array comparison doesn't work
by davido (Cardinal) on Nov 23, 2013 at 18:55 UTC | |
by vihar (Acolyte) on Nov 23, 2013 at 20:24 UTC | |
|
Re: Array comparison doesn't work
by choroba (Cardinal) on Nov 23, 2013 at 18:57 UTC | |
by vihar (Acolyte) on Nov 23, 2013 at 20:23 UTC | |
|
Re: Array comparison doesn't work
by CountZero (Bishop) on Nov 24, 2013 at 08:40 UTC | |
|
Re: Array comparison doesn't work
by Laurent_R (Canon) on Nov 23, 2013 at 19:03 UTC |