ponpon9987のプロフィール
@ponpon9987 ponpon9987
ありがとう数43
質問数1
回答数1
- ベストアンサー数
- 1
- ベストアンサー率
- 100%
- お礼率
- 16%
- 登録日2005/11/22
- foreachでループした変数を他のサブルーチンに受け渡す方法を教えてください。
ループして変数に入る値を他のサブルーチンに渡すにはどのようにしたらいいのでしょうか？以下に記述を書きましたが、sub mainの中の$dataをsub htmlの中で表示させて、sub mainでループさせた値をすべてsub mailへわたしたいのです、hiddenタグで<input type=\"hidden\" name=\"all\" value=\"$all\">とやってもうまくいきませんでした。@inの中をループさせるので@inをそのままかけばいいのでしょうか？これもうまくいきませんでした。。ようはループさせた値をすべてメールで送信したいのです。どうしたらうまくできますでしょうか？ sub main{ foreach(@in){ ($name1,$value1) = split(/=/,$_); $data="$name1 ： $value1"; print "$data"; print "<br>"; } sub html{ print "Content-type: text/html\n\n"; print <<EOF; <html> <head> </head> <body> &main; <form action="" method=""> <input type=\"hidden\" name=\"all\" value=\"$all\"> <input type=\"submit\" value=\"送信する\"> </form> </body> </html> EOF } sub mail { ####省略しますが、ここはメールの送信の記述です。 }
- ベストアンサー
- Perl
- mikako_0413
- 回答数6