サブルーチンの呼び出しに変数を使うには。

質問

初心者なので頓珍漢な事をお聞きしているかもしれないですがお願いします。

htmlページの分岐を行いたいと思ってまして、１ページ、１サブルーチンにしてhtmlを埋め込んでいます。その分岐の呼び出しに以下のような、命令で処理したいと思ったのですが上手くいきません。

&html$FORM{page};

舌足らずな質問の仕方だと承知なのですが、サブルーチンの呼び出しに変数を使うにはどうしたらよいのでしょうか？よろしくお願い致します。

回答No.3

y_oku · ベストアンサー

&html$FORM{page};

という書き方はできません。
サブルーチンを実行する部分を次のようにしてみてはどうでしょう。

eval "&html$FORM{page}";

evalは次に書かれている式をperlのプログラムとして解釈して、
実行してくれる命令です。
$FORM{page}が1のときは、
"&html$FORM{page}"→'&html1'
となり
&html;
が実行されます。
もしサブルーチンがないなどのエラーがevalで生じたときは、
$@という特殊変数にそのエラーがセットされています。
下のようにエラー処理をするのが普通ですね。

eval "&html$FORM{page}";
if($@){
# エラー処理。
if($@ =~ /Undefined subroutine/){
....
}
}
ご参考まで。
認証とか関係あるのかどうかは謎ですねえ。
どんなことをするCGIなんだろう。@:-)

お礼

やっぱり書き方を変えれば、動くんですねー。確認できました。
evalって結構使うんですかね。

フォーム入力でパスワードを管理していて、その値でページの分岐、生成をしています。（実際には値でなくて、パスワード入力で生成されたページからのリンクの引数で分岐なんですけど、、）

この自分の文章で伝わるものか、プログラムは質問するのも難しいです。

どーも、ありがとうございました。