SQLの窓 イラストAC フリー素材

2014年10月16日

Perl 用 HTML および変数の埋め込み手法

Perl 用 HTMLおよび変数の埋め込み手法 : ソース掲示板

なんか久しぶりに Perl を触る機会があったので。
#!/usr/local/bin/perl

print "Content-type: text/html\n\n";


$head_height = "150";
$head_inner = "<b>ヘッド部分</b>";
&get_data( "head_unit", "./head.htm" );

$main_width = "950";
&get_data( "main_html", "./disp.htm" );

print $main_html;

#-------------------------------------------------
# 埋め込み用データ取得
#-------------------------------------------------
sub get_data {

	local($var_name,$file_path) = @_;
	local($buffer) = "\$$var_name = <<"HTML_DATA";\n";

	open(IN,$file_path);
	while (<IN>) {
		$buffer .= $_;
	}
	close(IN);

	$buffer .= "HTML_DATA";

	eval( $buffer );

}

これは、eval を使用して、ヒアドキュメントを文字列上で実行してしまって、変数に外部ファイルの内容を読み込むだけではなく、外部ファイル内にある $ で始まる文字列も同時にパースして置き換えてしまう処理です。



posted by at 2014-10-16 00:37 | その他 | このブログの読者になる | 更新情報をチェックする