外部のtxtファイル内の変数を展開したい

Question

外部のtxtファイル内の変数を展開したい

初学者ですが失礼します。
外部のtxtファイルを読み込んで表示する際に、txtファイル内に記述した変数を展開したいのですが、以下のコードでは実現できませんでした。どのようにすればいいかご指導願えればと思います。

<!-- template.txt -->
<div>これはサンプルテキストです。</div>
<div>名前は$nameです。</div>

my $name = '太郎';

open( TEMPLATE, 'template.txt' );

while( my $line = <TEMPLATE> ) {
  print $line;
}

close( TEMPLATE );

Answer 1

m.ts10806さんが指摘しているように、単なる文字列して読み込んだものが自動的に変数置換されてくれるなんてことはありませんので、頑張って置換処理のコードを書く必要があります。これにはs///という形式の式が使えます。

この他、掲出のコードだと文字化けで悩むことになるのは目に見えているので、最低限の記述を追加してみました。ざっと書いてみただけなのでミスがあるかもしれませんが。

use strict;
use warnings;
use utf8; # スクリプト中に全角文字を書き込む場合は必要
binmode STDOUT, ':utf8';

my $name = '太郎';

open(my $fhi, '<:utf8', 'template.txt' ); # 入力ファイルはUTF-8と仮定

while( my $line = <$fhi> ) {
  $line=~s/$name/$name/g;
  print $line;
}

close $fhi;

Answer 2

evalをつかってみました

my $name = '太郎';

open( TEMPLATE, 'template.txt' );

while( my $line = <TEMPLATE> ) {
  eval "printf(\"$line\")";
}

close( TEMPLATE );

でもtemplate.txtの中に「”」が有ると["]する必要が有るのは駄目ですね。

Answer 3

テキストファイルの中にある時点で単なる文字列でしかないので、正規表現など用いて置換するしかないのでは