http://www.perlmonks.org?node_id=80645


in reply to Re: Re: Re: Fastest way to compare multiple variables?
in thread Fastest way to compare multiple variables?

use CGI;
@array1 = param('datalist1');
@array2 = param('datalist2');
@array3 = param('datalist3');

[download]
If you could make that instead: 
my %data = map { $_ => [param $_] } qw(datalist1 datalist2 datalist3);

[download]
Then we can compare their lengths with: 
sub compare {
  my @lengths = map { scalar @{$data{$_}} } qw(datalist1 datalist2 dat
+alist3);
  my $first = shift @lengths;
  $first == $_ or return 0 for @lengths;
  return 1;
}

[download]
See how much easier? Regularity in variable names is almost always a sign that they should be part of a larger structure instead.

-- Randal L. Schwartz, Perl hacker

In Section Seekers of Perl Wisdom