ボタンの名前を得る方法

質問

プログラムを実行するといくつかのボタン(submit)が表示されるプログラムを作っています。実行条件によってボタンの数は違いってきます。
各ボタンのnameは「$a」となっていてそれぞれに違う名前が入ります。
それぞれに違うnemeが入った状態でボタンをクリックしたときにクリックされたボタンに登録されているnameを表示するにはどうしたら良いでしょうか?

回答No.1

twinkleluz · ベストアンサー

nameが動的に変わるのであれば、nameに命名規則をもたせ、パースしたハッシュの中から検索すればいいのではないでしょうか。

# フォームのデータは%inにパースしてある
# submitボタンのnameは'submit_'という文字列で始まることにする

@submit_names = grep(/^submit_/,keys(%in));
foreach $name(@submit_names){
$name =~ s/^submit_//; # 頭の'submit_'を除く
print $name;
}

お礼

無事解決できました。ありがとうございます!