#!/usr/bin/perl
sub
compare {
my
(
$arr1_ref
,
$arr2_ref
,
$expectedResult
) =
@_
;
$expectedResult
=
defined
(
$expectedResult
) ?
$expectedResult
: 1;
print
(
"\@array1: @$arr1_ref\n"
);
print
(
"\@array2: @$arr2_ref\n"
);
my
$result
= 0;
if
(compareValue(
$arr1_ref
,
$arr2_ref
)) {
print
(
"Result: \@array1 has equal value content like \@array2\n"
);
$result
= 1;
}
else
{
print
(
"Result: \@array1 is different to \@array2\n"
);
}
if
(
$result
!=
$expectedResult
) {
print
(
"Error: unexpected result!\n"
);
exit
(1);
}
}
print
(
"Examples for compareValue()\n"
);
my
@array1
= (1, 2, 3, 4, 5);
my
@array2
= (5, 4, 3, 2, 1);
compare(\
@array1
, \
@array2
);
push
(
@array2
, 2);
compare(\
@array1
, \
@array2
);
push
(
@array1
, 6);
compare(\
@array1
, \
@array2
, 0);
exit
(0);