Passing array to a subroutine

   

#!/usr/bin/perl -w

use strict;

my(@nums1, @nums2);

@nums1 = (2, 4, 6);
@nums2 = (8, 10, 12);

process_arrays(@nums1, @nums2);

sub process_arrays {
    my(@a, @b) = @_;

    print "contents of \@a\n";
    print "[$_] " foreach @a;

    print "contents of \@b\n";
    print "[$_] " foreach @b;
}

1.	Swap array value by using the sub range
2.	Passing Arrays
3.	Pass file handle global reference to a subroutine
4.	Pass reference to a subroutine to another subroutine
5.	Pass two array reference to a subroutine
6.	Passing an array and modifying it,as a reference
7.	Passing by reference with pointers
8.	Passing References to a Subroutine
9.	Passing a range of value 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

Passing array to a subroutine : Parameter « Subroutine « Perl

Related examples in the same category