cgi perlでサブルーチンを呼び出す際に、変数を使用する方法

質問

if ($in{'mode'} == "aaa_data"){&aaa;}
elsif ($in{'mode'} == "bbb_data"){&bbb;}
elsif ($in{'mode'} == "ccc_data"){&ccc;}

現在、このようになっております。これを下記のような形に変更したいのですがエラーになりました。

&$in{'mode'}_data;

このように簡略化できる方法はないでしょうか？

回答No.1

maura · ベストアンサー

&{"$in{'mode'}_data"};

お礼

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