小编Atu*_*pta的帖子

我想将文本/字符串存储在数据库的文本字段中.
该字符串中包含变量$ 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;

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

我需要从MySQL 输出javascript(数组数组)的数据
我正在使用这个代码,除了REPLACE函数
我需要根据JS格式修改进入JS数组的倒置coma' - '的所有文本时工作正常.并且可以用于1 go中的所有字段. 我需要一个可以转义所有数据的替换函数,即; ;
\ -> \\' -> \'newline -> \n

$sth=$dbh->prepare('
    SELECT GROUP_CONCAT(
        "\n[\'",
        CONCAT_WS("\',\'", d6id, REPLACE(d6name,"\'","\\\\\'"), d6date),
        "\']"
    )
    FROM d6lastdate
');
$sth->execute();($json)=$sth->fetchrow_array();

产量

['0000000001','CA\'T','2011-09-26'],
['0000000002','CWE','2011-09-23'],
['0000000003','MAT','0000-00-00'],