関数、サブルーチンを利用する

関数、サブルーチンの引数は自動的に @_ に格納して渡される。

#======== コードここから
&testsub( "一つ目の引数" );

sub testsub{
    #一つ目の引数と表示
    print $_[0];
}
#======== コードここまで

#======== コードここから
&testsub( "一つ目の引数" , "はげ", "かつら" );

sub testsub{
    #一つ目の引数と表示
    print $_[0] . "\n";
    #はげと表示
    print $_[1]. "\n";
}
#======== コードここまで

#======== コードここから
&testsub( "一つ目の引数" , "はげ", "かつら" );

sub testsub{
    #一つ目の引数と表示
    print $_[0] . "\n";
    #はげと表示
    print $_[1]. "\n";
    #かつらと表示
    print $_[2]. "\n";
    #表示内容なし
    print $_[3]. "\n";
}
#======== コードここまで