WCCF>Red Card>退場....(;・∀・)ハッ?

アーケードサッカーゲーム WCCFに関する個人的メモ

サブルーチン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」である。