まとまった文章をそのまま出力（ヒアドキュメント）

HTML を出力するときにPerlのヒアドキュメントの機能を利用すると便利で、ソースコードの見た目もすっきりします。

[サンプルプログラムの実行]

heredoc.cgi

#!/usr/bin/perl # # heredoc.cgi # # (C)1998 Kaoru Fujita # # # 定数 # $Title = 'ヒアドキュメントのサンプル'; $body = "<I>I miss you.</I>"; print << "END_OF_HTML"; Content-type: text/html <HTML> <HEAD> <TITLE>$Title</TITLE> </HEAD> <BODY> $body </BODY> </HTML> END_OF_HTML exit(0);

#--End of heredoc.cgi

heredoc.cgi
`#!/usr/bin/perl # # heredoc.cgi # # (C)1998 Kaoru Fujita # # # 定数 # $Title = 'ヒアドキュメントのサンプル'; $body = "<I>I miss you.</I>"; print << "END_OF_HTML"; Content-type: text/html <HTML> <HEAD> <TITLE>$Title</TITLE> </HEAD> <BODY> $body </BODY> </HTML> END_OF_HTML exit(0);` `#--End of heredoc.cgi`

print << "END_OF_HTML" の直後から、次に END_OF_DOC が現れるまでを出力します。
END_OF_HTML の後にはセミコロン(;)がないことに注意してください。また、print << "END_OF_HTML";と二重引用符で囲んでいることに注意してください。もし、print << 'END_OF_HTML';だと

$body

と変数が展開されずにそのまま出力されます。
<< の後にスペースを空けずに　print <<END_OF_HTML のようにすることもできます。この場合、<< と END_OF_HTML の間に空白文字をいれて print << END_OF_HTML とするとエラーとなりますので注意してください。