return() function in Perl returns Value at the end of a subroutine, block, or do function. Returned value might be scalar, array, or a hash according to the selected context.
Syntax: return Value
Returns:
a List in Scalar Context
Note: If no value is passed to the return function then it returns an empty list in the list context, undef in the scalar context and nothing in void context.
Example 1:
sub Mul($$)
{
my ( $a , $b ) = @_ ;
my $c = $a * $b ;
return ( $a , $b , $c );
}
$retval = Mul(25, 10);
print ( "Return value is $retval\n" );
@retval = Mul(25, 10);
print ( "Return value is @retval\n" );
|
Output:
Return value is 250
Return value is 25 10 250
Example 2:
sub Sub($$)
{
my ( $a , $b ) = @_ ;
my $c = $a - $b ;
return ( $a , $b , $c );
}
$retval = Sub(25, 10);
print ( "Return value is $retval\n" );
@retval = Sub(25, 10);
print ( "Return value is @retval\n" );
|
Output:
Return value is 15
Return value is 25 10 15
Last Updated :
07 May, 2019
Like Article
Save Article
Share your thoughts in the comments
Please Login to comment...