Passing array to a subroutine : Parameter « Subroutine « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Subroutine » Parameter 
Passing array to a subroutine
   

#!/usr/bin/perl -w

use strict;

my(@nums1, @nums2);

@nums1 = (246);
@nums2 = (81012);

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;
}

   
    
    
  
Related examples in the same category
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
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.