![]() |
![]() |
![]() |
Examples of passing
parameters to subroutines:
&MySubroutine();
&MySubroutine( "Hello World"
);
&MySubroutine( $myScalar );
&MySubroutine( "Hello World",
$myScalar );
&MySubroutine( @myList );
&MySubroutine( "Hello
World", @myList, $myScalar );
Accessing parameters inside subroutines:
sub MySubroutine { foreach $param ( @_ ) { print "param = $param\n"; } }
Example:
$par = 1;
&my_sub($par); # $par equals 1
sub my_sub
{
$_[0] = 2; # $par now equals 2
}