 |
 |
 |
構文 |
|
|
return 返値 |
|
返り値 |
|
|
なし |
|
説明
- 与えた数値を返値としてサブルーチンを抜けます。
- evalの中でreturnを実行した場合には，evalを抜けるだけでevalを実行したサブルーチンは抜けません。
- サブルーチンの中でreturnを実行しなかった場合には，最後に評価した値を返値としてサブルーチンを終了します。
使用例
偶数の場合1，奇数の場合0を返す関数is_evenを呼び出す
#!/usr/bin/perl
use strict;
use warnings;
print is_even(10), "\n";
print is_even(99), "\n";
sub is_even {
my $num = shift;
if ($num % 2 == 0) {
return 1;
} else {
return 0;
}
}リストの合計を返す関数sumを呼び出す
#!/usr/bin/perl
use strict;
use warnings;
print sum(1..10), "\n";
print sum(1, 3, 5, 7, -4), "\n";
sub sum {
my @items = @_;
my $total = 0;
foreach my $item (@items) {
$total += $item;
}
return $total;
}
