programming-examples/perl/Subroutine/A subroutine that returns a value.pl
2019-11-15 12:59:38 +01:00

12 lines
208 B
Perl

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
}