A subroutine that returns a value : Return « Subroutine « Perl
- Perl
- Subroutine
- Return
A subroutine that returns a value
for ( 1 .. 10 ) {
print square( $_ ), " ";
}
print "\n";
sub square
{
$value = shift; # use shift to get first argument
return $value ** 2; # returns the result of $value ** 2
}
Related examples in the same category