Passing an array and modifying it,as a reference : Parameter « Subroutine « Perl






Passing an array and modifying it,as a reference

   

#!/usr/bin/perl -w


@array = (1,2,3,4,5,6,7,8,9);

print "Before: @array.\n";

mod_array( \@array );

print "After:  @array.\n";

sub mod_array {
    my( $arrayref ) = $_[0];

    @$arrayref = reverse( @$arrayref );
}

   
    
    
  








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