如何将包含变量的文本存储到数据库中？

Question

我想将文本/字符串存储在数据库的文本字段中.
该字符串中包含变量$ name.
当我将它从数据库中取出时,我希望在打印字符串之前将该变量替换为我定义的值.

   # Variable I want to substitute #
1. $name='John';

   # needs to be read from database #
2. $txt{'hello'}="Hello ${name}, How are you?";

3. print "<tag>$txt{'hello'}</tag>";

它Hello John, How are you?根据需要打印,但是当从数据库中读取第二行时,它会显示Hello ${name}, How are you?.

我找到的一些东西是:

1. Locale::Maketext
2. $string =~ s/(\$\w+)/$1/eeg;
3. my $string = sprintf 'Say hello to %s and %s', $foo, $bar;

有人可以指导我如何去做吗？

Answer 1

你所描述的是一个模板.CPAN上有许多模板系统具有不同程度的复杂性. Text :: Template and Template Toolkit是一些流行的.您不希望让模板访问任意变量; 这是一个安全漏洞.相反,将他们允许访问的变量放入哈希.

如果你需要的只是一个非常简单的系统,你可以这样做:

sub fill_in_template
{
  my ($text, $values) = @_;
  $text =~ s/ \$\{ ( [^}\s]+ ) \} /$values->{$1}/gx;
  return $text;
}

my %txt;
my %values = (name => 'Your Name');

my $template  = 'Hello ${name}, How are you?'; # $name NOT interpolated
$txt{'hello'} = fill_in_template($template, \%values);

print "<tag>$txt{'hello'}</tag>\n";

如果模板使用未定义的字段,您可以添加一些错误检查.但是如果你需要比这更复杂的东西,你可能最好从CPAN中挑选现有的模板系统.

Locale :: Maketext旨在实现国际化(因此您的应用程序可以使用多种语言生成输出,而无需翻译人员直接处理代码),而不是您正在寻找的那种模板引擎.