regex - Perl: 変数をその値で置き換える方法

Question

テーブルに test という列があり、test 内に"Dear $name, Hello"という行を書き込んだとします。$name は変数です。私が行っているこの行を選択する必要があります

my $test = $dbh->prepare( "select test from testing")

スクリプトでは、 $name="Joe"を割り当てました。ここで、 $name変数を、スクリプトで割り当てられた変数名 (Joe など)に置き換える必要があります。$test を印刷してみました。「Dear $name, Hello」と表示されます。

score 8 · Accepted Answer

モジュールを使用することをお勧めします。このString::Interpolateモジュールは、Perl 独自の補間システムをパラメーターで渡す値に適用します。コアモジュールではないため、おそらく CPAN からインストールする必要があります。

use strict;
use warnings;

use String::Interpolate 'interpolate';

my $name = "Joe";

my $text = 'Dear $name, Hello';
print interpolate($text);

出力

Dear Joe, Hello

2 に答える 2