__ ___
/\ \ /\_ \
___ \ \ \____ \//\ \ ___ __
/' _ `\ \ \ '__`\ \ \ \ / __`\ /'_ `\
|/\ \/\ \ \ \ \L\ \ \_\ \_ /\ \L\ \/\ \L\ \
\ \_\ \_\ \ \_,__/ /\____\\ \____/\ \____ \
\/_/\/_/ \/___/ \/____/ \/___/ \/___L\ \
/\____/
\_/__/
Written in
by
Ever needed to compare 2 arrays in perl? Ultimate way is to use Array::Compare module, but for some reasons I was getting following error:
Argument 1 is not an array
Even thou I was casting both array pointers to array.
if ($comp->compare(@{$array1}, @{$array2})) {
Solution (because I was using 5.10 perl) is to use smart match operator:
if ( @{$array1} ~~ @{$array2}) {
Tags