关于 DBD::CSB 语句函数的问题

Question

来自 SQL::Statement::Functions 文档：

函数语法

直接使用 SQL::Statement/SQL::Parser 解析 SQL 时，函数（内置函数或用户定义函数）可能出现在 SQL 语句中可能出现值、列名、表名或谓词的任何位置。当通过 DBD 或在解析和执行 SQL 的任何其他上下文中使用模块时，函数可以出现在相同位置，但不能出现在包含 FROM 子句的 SELECT 语句的列选择子句中。

# 对解析和执行都有效

 SELECT MyFunc(args);
 SELECT * FROM MyFunc(args);
 SELECT * FROM x WHERE MyFuncs(args);
 SELECT * FROM x WHERE y < MyFuncs(args);

# 仅对解析有效（不适用于 DBD）

 SELECT MyFunc(args) FROM x WHERE y;

读到此内容，我预计示例中的第一个 SELECT 语句不应该起作用，而第二个应该起作用，但事实恰恰相反。

#!/usr/bin/env perl
use warnings; use strict;
use 5.010;
use DBI;

open my $fh, '>', 'test.csv' or die $!;
say $fh "id,name";
say $fh "1,Brown";
say $fh "2,Smith";
say $fh "7,Smith";
say $fh "8,Green";
close $fh;

my $dbh = DBI->connect ( 'dbi:CSV:', undef, undef, {
    RaiseError => 1,
    f_ext      => '.csv',
    });

my $table = 'test';

say "\nSELECT 1";
my $sth = $dbh->prepare ( "SELECT MAX( id ) FROM $table WHERE name LIKE 'Smith'" );
$sth->execute ();
$sth->dump_results();

say "\nSELECT 2";
$sth = $dbh->prepare ( "SELECT * FROM $table WHERE id = MAX( id )" );
$sth->execute ();
$sth->dump_results();

输出：

选择 1
“7”
1 行

选择2
/usr/lib/perl5/site_perl/5.10.0/SQL/Parser.pm 第 2893 行存在未知函数“MAX”。
DBD::CSV::db 准备失败：未知函数“MAX”位于 /usr/lib/perl5/site_perl/5.10.0/SQL/Parser.pm 第 2894 行。
[for 语句“SELECT * FROM test WHERE id = MAX( id )”]位于 ./so_3.pl 第 30 行。
DBD::CSV::db 准备失败：未知函数“MAX”位于 /usr/lib/perl5/site_perl/5.10.0/SQL/Parser.pm 第 2894 行。
[for 语句“SELECT * FROM test WHERE id = MAX( id )”]位于 ./so_3.pl 第 30 行。

有人可以解释我这种行为吗？

Answer 1

试试这个

$sth = $dbh->prepare ("SELECT * FROM $table WHERE id =
(选择 MAX( id ) FROM $table)" );

Answer 2

我今天看到类似的事情发生。我发现如果我这样做：

    my $foo = $dbh->prepare("SELECT * FROM $table");
    if($foo) {
       $foo->finish();
    }
    #run your prepare here

直接在使用 UDF 或函数的查询之前，错误就会消失......我就这么做了:)