perl - SELECT DISTINCT 是否适用于 Perl 的 DBD::CSV？

Question

我在网上找到了一个 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


Answer 1

请注意，关于某事不合理的消息是

只是警告。您的脚本仍然有效。

令人困惑和荒谬:您不使用任何聚合函数。

我在 DBD::CSV 中闻到了一个错误或 SQL::Statement .

编辑: DISTINCT在 SQL::Statement 中明确允许