サブルーチン２ 引数 値を返す

&print_line(20);



sub print_line

{

    my $hikisu = shift;

    print "-" x $hikisu;

}





（）内の数値が２０なので２０個のハイフンが一列表示される。(30)であれば３０個のハイフンになる。

サブルーチンで計算することもできる。



$answer = &add_number(5,6);

print $answer;



sub add_number

{

    my $hikisu1 = shift;

    my $hikisu2 = shift;

    my $kotae = $hikisu1 + $hikisu2;

    return $kotae;

}





表示される答えは「１１」である。