PHPのincludeをPerlでやる。

僕は、Perlは5回くらいしか弄ったことのない超ビギナーレベルです。

PHPでいうinclude関数っぽいのが無いっぽい。
やりたいことは.htmlファイルの読み込みです。中身はhtmlのみ。スクリプトは入っていない。
下記のサンプルをコピペしたらうまくいった。感謝です。
ファイル名だけでなく、パス + ファイル名でもOKでした。

# --------------------------------
# get external file
# --------------------------------
open(DATAFILE, "< inc/data.html") or die("Error");

while(my $line = <DATAFILE>){
  chomp($line);
  print "$line";
}

close(DATAFILE);

しかし、外部ファイルが存在しない時とかにエラーがブラウザに出力されない。
とかとか、挙動を把握してないけど、時間無いので今回はスルーしよう。。。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA