sub dispparam{ if($_[0] != ""){ print "引数の値は$_[0]\n"; }else{ print "引数はありません。\n"; } } $a= 10; &dispparam(5); &dispparam($a); &dispparam(); exit;