Home > Logs > September 2007 > This Entry
ファイル読み込み定型句
perl ファイル読み込み定型句。10秒くらいで書きたいところだけど、いつも忘れて調べてしまう。ファイルの物理パスを渡すとファイルの中身を返してくれるサブルーチンです。
sub read_tmpl {
my $tmpl_path = shift;
open (TMPL, "$tmpl_path");
my @lines = <TMPL>;
close (TMPL);
my $tags;
foreach my $line (@lines) {
$tags .= $line;
}
return $tags;
}
Post Comment