SELECT DISTINCT 可以与 Perl 的 DBD::CSV 一起使用吗？

我在网上找到了一个 SELECT-example。 当我在脚本中尝试它时，我收到此错误消息：

Specifying DISTINCT when using aggregate functions isn't reasonable - ignored. at /usr/lib/perl5/site_perl/5.10.0/SQL/Parser.pm line 496.

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

my $dbh = DBI->connect( "DBI:CSV:", undef, undef, { RaiseError => 1, AutoCommit => 1 } );
my $table = 'artikel';

my $array_ref = [   [ 'a_nr', 'a_name', 'a_preis' ],  
            [ 12, 'Oberhemd', 39.80, ],
            [ 22, 'Mantel', 360.00, ],
            [ 11, 'Oberhemd', 44.20, ],
            [ 13, 'Hose', 119.50, ],
        ];
$dbh->do( "CREATE TEMP TABLE $table AS IMPORT(?)", {}, $array_ref );

my $sth = $dbh->prepare( "SELECT DISTINCT a_name FROM $table" );
$sth->execute();
$sth->dump_results();
$dbh->disconnect();

SELECT DISTINCT 是否不适用于 DBD::CSV 或者我的脚本有问题？

编辑： 输出是

'Oberhemd' 'Mantel' 'Oberhemd' 'Hose' 4 rows

我以为应该是

'Oberhemd' 'Mantel' 'Hose' 3 rows

安装版本：

Perl : 5.010000 (x86_64-linux-thread-multi) OS : linux (2.6.31) DBI : 1.609 DBD::Sponge : 12.010002 DBD::SQLite : 1.25 DBD::Proxy : 0.2004 DBD::Gofer : 0.011565 DBD::File : 0.37 DBD::ExampleP : 12.010007 DBD::DBM : 0.03 DBD::CSV : 0.26

您好，这是一个很容易重现的错误。 SELECT data_display_mask FROM test.csv 返回 200 多行。 SELECT DISTINCT data_display_mask FROM test.csv 返回警告消息和相同的 200 行。

如果我执行 awk、sort -u 以获得唯一（行的值），我会得到 36 个值，这正是我所期望的。

当然是代码中的错误。

-Kanwar

perl-V 我的 perl5（修订版 5 版本 10 subversion 0）配置摘要： 平台： osname=linux，osvers=2.2.24-6.2.3，archname=i686-linux-thread-multi

DBD::CSV 0.26 SQL::解析器 1.23 DBI 1.609

example:

使用聚合函数时指定 DISTINCT 是不合理的 - 被忽略。在 /opt/perl2exe/perl5/lib/site_perl/5.10.0/SQL/Parser.pm 第 496 行。 87060 87060 87060 87060

使用的 SQL 是 SELECT DISTINCT entry_id FROM test.csv