19 lines
496 B
Perl
19 lines
496 B
Perl
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
sub check_same (\@\@);
|
|
my @a = (1, 2, 3, 4, 5);
|
|
my @b = (1, 2, 4, 5, 6);
|
|
my @c = (1, 2, 3, 4, 5);
|
|
print "\@a is the same as \@b" if check_same(@a,@b);
|
|
print "\@a is the same as \@c" if check_same(@a,@c);
|
|
sub check_same (\@\@) {
|
|
my ($ref_one, $ref_two) = @_;
|
|
|
|
return 0 unless @$ref_one == @$ref_two;
|
|
for my $elem (0..$#$ref_one) {
|
|
return 0 unless $ref_one->[$elem] eq $ref_two->[$elem];
|
|
}
|
|
|
|
return 1;
|
|
} |