はまちや２さんの日記
(追記) ヒアドキュメントをちょっぴりキレイに2005/11/16 [18:53]
ようするにこういうことなのさ！
↓なんかこんな感じのPerlのコードがあったとしたら、
(Perl)
my @i = shift;
print<<"_EoD_";
<div>
<p>
こんにちは！ぼぼぼぼくのほーむぺーじだよ！！
</p>
</div>
_EoD_
foreach(@i) {
($_ =~ /\d+/) and do {
print<<"_EoD_";
<div>
<p>
あなたは $i 番目の勇者様でスか…？
</p>
</div>
_EoD_
};
}
↓出てくるhtmlってこんなんなっちゃうよね！
(HTML)
<div>
<p>
こんにちは！ぼぼぼぼくのほーむぺーじだよ！！
</p>
</div>
<div>
<p>
あなたは 666 番目の勇者様でスか…？
</p>
</div>
↓だけどこうしちゃえば、
(Perl)
my @i = shift;
print eatHere(<<"_EoD_", '#', 'indent');
##<div>
## <p>
## こんにちは！ぼぼぼぼくのほーむぺーじだよ！！
## </p>
##</div>
_EoD_
foreach(@i) {
($_ =~ /\d+/) and do {
print eatHere(<<"_EoD_", '#', 'indent');
##<div>
## <p>
## あなたは $i 番目の勇者様でスか…？
## </p>
##</div>
_EoD_
};
}
↓こんなふうにでるかも
(HTML)
<div>
<p>
こんにちは！ぼぼぼぼくのほーむぺーじだよ！！
</p>
</div>
<div>
<p>
あなたは 666 番目の勇者様でスか…？
</p>
</div>
という夢を見たのサ…。
