Passing arrays to a function

   
#!/usr/bin/perl


use warnings;
use strict;

my @array1 = ( 1 .. 8 );
my @array2 = ( 'a' .. 'e' );
my @mixed = arrayMixer( \@array1, \@array2 );
print( "@mixed\n" );

sub arrayMixer
{
   my @firstArray = @{ $_[ 0 ] };
   my @secondArray = @{ $_[ 1 ] };
   my ( $first, $second, @array );

   while ( ( $first = shift( @firstArray ) ) && ( $second = shift( @secondArray ) ) ) {
      push( @array, $first, $second );
   }

   return @array;
}

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 array to a subroutine
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 arrays to a function : Parameter « Subroutine « Perl

Related examples in the same category