Perl 和 PostgreSQL 转义 $

Question

我有一个从 perl 执行的 SQL 语句。

$my_sql = qq (
            SELECT 1 AS ....
            );

然后我做

my $sm = $dbh->prepare($my_sql);
   $sm->execute;

问题是我的 SQL 在很多地方都有这样的正则表达式。

value ~ '^[1-9][0-9]?/[1-9][0-9]?/[1-9][0-9]{3}$':

因此，由于这些“$”，我在执行 perl 脚本时出错。

Use of uninitialized value $' in concatenation (.) or string at
DBD::Pg::st execute failed: execute called with an unbound placeholder at

如何避免这些错误并使 SQL 语句正常工作？

Answer 1

qq(something) 只是 “something” 的另一种表达方式，而 q(something) 表示 'something'.

"this" 和 'this' 之间的区别在于插值，插值仅在双引号内启用。

my $foo = 123;
print "<< $foo >>";  # prints << 123 >>
print '<< $foo >>';  # prints << $foo >>

所以，由于 $ 不是 '' 中的特殊符号，只需将 qq 更改为 q。