Re: Re: Fastest way to compare multiple variables?

Try this:

#!/usr/local/bin/perl -w
use strict;
my @list=("abcd123","abcd143","abcd123","abcd123");

$_=join("",@list);
s/$list[0]//g;
print "not equal\n" if ($_);
[download]

Comment on Re: Re: Fastest way to compare multiple variables? Download Code

Replies are listed 'Best First'.
Re^3: Fastest way to compare multiple variables? by owendelong (Initiate) on Feb 27, 2013 at 00:27 UTC
The problem with that is that the code will produce an incorrect result in the case: `my @list={"a","aaaa","aa","aaaaaaaa","a"};` In the above (admittedly pathological) case, it would report all equal when this is not true.	[reply] [d/l]
Re^4: Fastest way to compare multiple variables? by topher (Scribe) on Feb 27, 2013 at 00:58 UTC
A comment correcting a code snippet that was posted 12 years ago. I love Perlmonks. ;-) Christopher Cashell	[reply]