Passing Arrays : Parameter « Subroutine « Perl






  1. Perl
  2. Subroutine
  3. Parameter

Passing Arrays

    

#!/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;
}








Related examples in the same category

1.Swap array value by using the sub range
2.Pass file handle global reference to a subroutine
3.Pass reference to a subroutine to another subroutine
4.Pass two array reference to a subroutine
5.Passing an array and modifying it,as a reference
6.Passing by reference with pointers
7.Passing References to a Subroutine
8.Passing a range of value to a subroutine
9.Passing array to a subroutine
10.Passing arrays to a function
11.Passing different number of parameter to a subroutine
12.Passing hash to a subroutine
13.Passing parameters to subroutines
14.Passing two values to a subroutine
15.displays all the arguments
16.Using shift(@_) to get value passed into a subroutine
17.shift parameter
18.Subroutine parameter default value
19.output the subroutine arguments using special variable @_
20.Is a parameter defined
21.The loop displays each individual argument