構文 |
|
return 返値 |
返り値 |
|
なし |
説明
- 与えた数値を返値としてサブルーチンを抜けます。
- evalの中でreturnを実行した場合には,evalを抜けるだけでevalを実行したサブルーチンは抜けません。
- サブルーチンの中でreturnを実行しなかった場合には,最後に評価した値を返値としてサブルーチンを終了します。
使用例
#!/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;
}
}
#!/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;
}