Using shift(@_) to get value passed into a subroutine : Parameter « Subroutine « Perl






Using shift(@_) to get value passed into a subroutine

   

$value = 10;
printifOK ($value);

sub printifOK
{
    my $internalvalue = shift(@_);

    if ($internalvalue > 10 ) {
        print "Value is $value.\n";
    } else {
        print "Value is too small.\n";
    }
}

   
    
    
  








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 array to a subroutine
11.Passing arrays to a function
12.Passing different number of parameter to a subroutine
13.Passing hash to a subroutine
14.Passing parameters to subroutines
15.Passing two values to a subroutine
16.displays all the arguments
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