スカラー変数に処理を入れる

$mes<<EOM;
ここにメッセージ
EOM

こうすると、$mesにEOMで囲まれた間の文字が入るんですけど、
処理を入れるにはどうすればいいのでしょうか？

よろしくお願いします。

No.3 ベストアンサー 回答者： tatsu99 回答日時： 2005/11/18 23:10

evalを使います。

以下の例では、aaaaaと表示されます。
--------------------------
$mes = <<EOM;
for(1..5){
print "a";
}
EOM
eval($mes);

この回答へのお礼

できました！
ありがとうございましたm(_ _)m

お礼日時：2005/11/19 11:21

No.6 回答者： moon_night 回答日時： 2005/11/19 10:44

処理を分けたほうが一番分かりやすいです。

$mes = <<EOM;
メッセージ
EOF
for(1..5){
$mes .= "a";
}

この回答へのお礼

どうしてもスカラー変数に代入したかったんです。

ありがとうございました

お礼日時：2005/11/19 11:24

No.5 回答者： BLUEPIXY 回答日時： 2005/11/18 23:40

＞処理は何でもありです

ヒアドキュメントの中での関数(処理)呼出として
参考ＵＲＬが参考になるかもしれません。

参考URL：http://okwave.jp/kotaeru.php3?qid=1303310

この回答へのお礼

参照URL拝見しましたが、よくわかりませんでした。

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

お礼日時：2005/11/19 11:23

No.4 回答者： guci-ok 回答日時： 2005/11/18 23:32

#!Perl

$mes = sub {
for (1..5) {
print "a";
}
};

&$mes;

__END__

D:>val_code2.pl
aaaaa
D:>

この回答へのお礼

すみません、初心者なので
__END__
以降に入れる処理についてはまったくわからないんです。
ありがとうございました。

お礼日時：2005/11/19 11:22

No.2 回答者： chie65536 回答日時： 2005/11/18 22:06

$str1<<EOMS;

固定メッセージの前半
EOMS
$str2<<EOME;
固定メッセージの後半
EOME
$str3 = ここに処理したいプログラムを書く
$mes = $str1 . $str3 . $str2;

この回答への補足

すみません、上の文を全部コピーして
貼り付けましたがエラーになりました。

どのようにすればいいのでしょうか

補足日時：2005/11/18 22:13

No.1 回答者： BLUEPIXY 回答日時： 2005/11/18 22:05

何の処理でしょうか？

想定しているのは、どのようなことですか？

この回答への補足

for(1..5){
print "a";
}
処理は何でもありです。上の処理をスカラー変数に代入して任意の位置に
print "$mes";
と書くと、「aaaaa」と表示されるような具合です。
よろしくお願いします。

補足日時：2005/11/18 22:10