プログラムのトレイスの練習

問題05

問題05(※ Mozilla Firefox専用)

教科書p. 112の例です。
sub dispparam{
	if($_[0] != ""){
		print "引数の値は$_[0]\n";
	}else{
		print "引数はありません。\n";
	}
}

$a= 10;
&dispparam(5);
&dispparam($a);
&dispparam();
exit;
上のソースコードをコピー&ペーストしてソースファイルを作成し、perlで実行して動作結果を確かめてみましょう。