無名サブルーチンの疑問

質問

下記コードを実行しましたが$nameの文字が表示されません。
コードが間違っているのでしょうか？
$string = sub ("さぶろう") {
my($name) = @_;
return("$nameです。\n");
};
print &$string;

回答No.3

x9e · ベストアンサー

回答に　エラー発見　

ｅｓｃａｐｅ　ｓｅｑｕｅｎｃｅ　＆　メタキャラクタ　＞　削除　要請　＞　ＡＤＭＩＮ

お礼

解決しました。最後の行から引数を与えてサブルーチンの引数で受け取ればよかったようです。
$string = sub ($value) {
my($name) = @_;
return("$nameです。\n");
};
print &$string("さぶろう");

ありがとうございました。

補足

削除してみました。
$string=sub("さぶろう"){
my($name)=@_;
return("$nameです。\n");
};
print&$string;

回答No.2

x9e

実行環境の言語使用に関する情報をください。。。
より　おおくの　プログラマー　が　回答　してくれると思いますよ。。。
わたくしは　　文字列　　処理　　の　観点から　　しか　　見れません。。。
これは、　あどばいす、　追加情報　　希望　　の　　レスポンスです　。。

お礼

解決しました。最後の行から引数を与えてサブルーチンの引数で受け取ればよかったようです。
$string = sub ($value) {
my($name) = @_;
return("$nameです。\n");
};
print &$string("さぶろう");

ありがとうございました。

補足

Perlは v5.8.0 です。

回答No.1

noname#208124

Perlにデフォルト引数ありません
undefかどうか自分で処理分けしてください

# みんなもっとuse diagnostics;使うべき

お礼

解決しました。最後の行から引数を与えてサブルーチンの引数で受け取ればよかったようです。
$string = sub ($value) {
my($name) = @_;
return("$nameです。\n");
};
print &$string("さぶろう");

ありがとうございました。

補足

確認したら$nameがundefになっていました。ここが原因みたいです。