■

すぐわかるPerl

ヒアドキュメントを利用してHTMLを吐き出す以下のようなPerlプログラムをつくってみた。

#! /usr/local/bin/perl

print <<EOF;

<html>
<body>
こんにちは！
</body>
</html>

EOF

が、文法は正しいのに
"Can't find string terminator "EOF" anywhere before EOF..."というエラー。
エラー原因をググってみるとhttp://www.harukaze.net/bbs/perl/wforum.cgi?mode=all_read&no=384&page=0にEOFのあとに改行すればOKという記述を発見。
やってみるとうまくいく。

しかし何故エラーが改善されたのかは不明。
文字コードが怪しい、と睨んではいる。
チェックしてみるか。