北海道苫小牧市出身の初老PGが書くブログ

永遠のプログラマを夢見る、苫小牧市出身のおじさんのちらしの裏

関数のプロトタイプ

問題です。このスクリプトの出力を予想して下さい。



#!/usr/local/bin/perl
use strict;


# 関数1の定義
sub test1($){
#引数を出力
print join(',', @_) . "\n";
}


my @hoge = ('hogehoge', 'foofoo');

# メインルーチン(呼び出し)
test1(@hoge);
&test1(@hoge);
main::test1(@hoge);
main->test1(@hoge);
test2(@hoge);


# 関数2の定義
sub test2($){
#引数を出力
print join(',', @_) . "\n";
}