foreachでループした変数を他のサブルーチンに受け渡す方法を教えてください。

Question

ループして変数に入る値を他のサブルーチンに渡すにはどのようにしたらいいのでしょうか？以下に記述を書きましたが、sub mainの中の$dataをsub htmlの中で表示させて、sub mainでループさせた値をすべてsub mailへわたしたいのです、hiddenタグでとやってもうまくいきませんでした。@inの中をループさせるので@inをそのままかけばいいのでしょうか？これもうまくいきませんでした。。ようはループさせた値をすべてメールで送信したいのです。どうしたらうまくできますでしょうか？ sub main{ foreach(@in){ ($name1,$value1) = split(/=/,$_); $data="$name1 ： $value1"; print "$data"; print "
"; } sub html{ print "Content-type: text/html "; print < &main; EOF } sub mail { ####省略しますが、ここはメールの送信の記述です。 }

ponpon9987 · Accepted Answer

&mail(\@in);

でsub mail{}を呼び出してそこに@inの中身を渡すことができます。実際は@inの中身を渡しているわけではなく、@inのメモリのアドレスを渡しているのですが、今はそのことは考えなくていいです。
sub mail{}で@inの中身を受け取るには、

sub mail{

my $ref = shift(@_);

my @korekore = @$ref;

}

としてください。もうすこしエレガントな書き方がありますが、わかりやすくしました。
ずばりほしかった配列は@korekoreに入っています。

moon_night · Answer

＃１ さんの回答を良く見ていただければ分かると思います。

サブルーチンに飛ばすときに
&mail( $name1, $value1 );
とすると、括弧の中身がサブルーチンに渡されます。

サブルーチン内での受取は、
特殊変数 $_ に入っているので、
（この場合複数なので @_ から取り出します）
my( $n, $v ) = @_;
として取り出しているのです。


分かりにくい場合はサブルーチンを使わないほうがいいかと思います。

# $send_mail がある場合はメールを送る。
if ($send_mail) {
foreach(@in){
($name1,$value1) = split(/=/);
#メールを送る処理
}
}

twinkleluz · Answer

処理の流れは、

-------------------------------------------
フォームから何かを入力させる
　　　　↓
確認画面（？）を表示させる
　　　　↓
送信ボタンを押すと、メールが送信される
-------------------------------------------

という感じなのでしょうか？
それならば、sub mailの部分を別のファイルに分離させ、sub htmlで出力したページの送信ボタンを押したときにmailの部分が書かれたファイルを実行するようにすればいいのではないでしょうか？

BLUEPIXY · Answer

sub html から　sub main が呼ばれて、
sub main の内容を sub mail に渡すなら
sub main で sub mailを呼び出せばいいと思います

mekerock · Answer

sub html はどういった意図で、その中の $all が何を意味するのか判りませんが…

> ようはループさせた値をすべてメールで送信したい
この点だけに限り、以下の条件の下、次のようにしては駄目なのでしょうか？

＝条件＝
・sub mail 内部で、SendMail（もしくはそれに相当）するメール送信部がある
・sub mail へ渡すデータは sub main内の@inの各データをまとめたもの

＝操作＝
foreach でループしていて、データのスプリットもされているので、文字列操作は出来るものと推測します。
ここで$dataという文字列データを作成していますが、
以下のように変えて、mailに渡してはいかがですか？

 $data .= "$name1 ： $value1
";

foreach を抜けた後、
&mail( $data );
で、いかがでしょう？

投稿いただいているソースで、&mainを呼んでいますが、ヒアドキュメント内ではうまくいかないかと思います。
（というより、sub htmlで吐き出そうとすると、エラーが出ませんか？）

もし、各データひとつひとつを、それぞれ１通のメールデータとして渡したい、ということであれば、難しいことはなく、foreach内で&mail( データ )とすれば、よいかと思いますが。

＝注意＝
CGIからメールを送信するときは、文字コード変換も気をつけてくださいね。

osamuy · Answer

こんな感じで；
@in = qw( a=b c=d );
foreach ( @in ){
( $name1, $value1 ) = split( /=/, $_ );
&html( $name1, $value1 );
}

sub html {
  my( $n, $v ) = @_;
  print <<"_HTML_";
NAME: $n
VALUE: $v
_HTML_
}

詳しくはPerl標準添付ドキュメントperlsubに説明されてます。

参考URL：http://www.cpan.jp/mirror/www.att.or.jp/perl/man/perlsub.1.html

foreachでループした変数を他のサブルーチンに受け渡す方法を教えてください。

&mail(\@in);

この回答への補足

＃１ さんの回答を良く見ていただければ分かると思います。

処理の流れは、

sub html から sub main が呼ばれて、

この回答への補足

sub html はどういった意図で、その中の $all が何を意味するのか判りませんが…

こんな感じで；

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

＃１さんの回答を良く見ていただければ分かると思います。

sub html から　sub main が呼ばれて、