サブルーチン2 引数 値を返す
&print_line(20);
sub print_line
{
my $hikisu = shift;
print "-" x $hikisu;
}
()内の数値が20なので20個のハイフンが一列表示される。(30)であれば30個のハイフンになる。
サブルーチンで計算することもできる。
$answer = &add_number(5,6);
print $answer;
sub add_number
{
my $hikisu1 = shift;
my $hikisu2 = shift;
my $kotae = $hikisu1 + $hikisu2;
return $kotae;
}
表示される答えは「11」である。