ファイルの連結

続いて、ソースファイルとテンプレートファイルとを連結して出力する。

SourceToHtml1.plx

#ヘッダ部

open(F, ".\\Template\\header.txt") || die "open: $!";

while ()

{

    print;

}

close(F);
#ソース部

while (<>)

{

    print;

}
#フッタ部

open(F, ".\\Template\\footer.txt") || die "open: $!";

while ()

{

    print;

}

close(F);

実行形式

C:\Perl5>SourceToHtml1.plx input.txt > output.txt