堆栈内存溢出
  繁体   English   中英

Perl，DBI和SQL：为什么NOT在某些SQL查询中不起作用？

[英]Perl, DBI, and SQL: Why NOT does not work in some SQL queries?

 原文  2014-05-06 07:41:04  6   3    sql/ perl/ csv/ dbi

问题描述

我有一个最奇怪的问题，我对SQL的非常基本的知识必定是非常错误的，但我无法理解下面说明的行为。

我有这个文件test.csv 

id,field
A,0
B,1
C,2
D,"0"
E,"1"
F,"2"
G,
H,""
I," "

而这个测试代码： 

#! /usr/bin/perl

use strict;
use warnings;
use DBI;
use Devel::VersionDump qw(dump_versions);

my $dbh = DBI->connect ("dbi:CSV:");
$dbh->{RaiseError} = 1;
$dbh->{TraceLevel} = 0;
my $i = 0;

foreach my $cond ("TRUE",
                  "field <> 0 AND field <> 1",
                  "field = 0 OR field = 1",
                  "NOT (field = 0 OR field = 1)",
                  "NOT field = 0 OR field = 1",
                  "field <> 0",
                  "NOT field <> 0",
                  ) {
  print "Condition #" . $i++ . " is $cond:\n";
  my $sth = $dbh->prepare("SELECT * FROM test.csv WHERE $cond");
  $sth->execute();
  $sth->dump_results();
};

print "\n\n";
dump_versions();

运行时，这是输出： 

Condition #0 is TRUE:
'A', '0'
'B', '1'
'C', '2'
'D', '0'
'E', '1'
'F', '2'
'G', ''
'H', ''
'I', ' '
9 rows
Condition #1 is field <> 0 AND field <> 1:
'C', '2'
'F', '2'
'G', ''
'H', ''
'I', ' '
5 rows
Condition #2 is field = 0 OR field = 1:
'A', '0'
'B', '1'
'D', '0'
'E', '1'
4 rows
Condition #3 is NOT (field = 0 OR field = 1):
'A', '0'
'B', '1'
'D', '0'
'E', '1'
4 rows
Condition #4 is NOT field = 0 OR field = 1:
'B', '1'
'C', '2'
'E', '1'
'F', '2'
'G', ''
'H', ''
'I', ' '
7 rows
Condition #5 is field <> 0:
'B', '1'
'C', '2'
'E', '1'
'F', '2'
'G', ''
'H', ''
'I', ' '
7 rows
Condition #6 is NOT field <> 0:
'A', '0'
'D', '0'
2 rows


Perl version: v5.16.3 on MSWin32 (C:\Program Files\Perl64\bin\perl.exe)
ActivePerl::Config                                     -  Unknown
ActiveState::Path                                      -     1.01
AutoLoader                                             -     5.73
C:::Program Files::Perl64::site::lib::sitecustomize.pl -  Unknown
Carp                                                   -     1.26
Class::Struct                                          -     0.63
Clone                                                  -     0.34
Config                                                 -  Unknown
Config_git.pl                                          -  Unknown
Config_heavy.pl                                        -  Unknown
Cwd                                                    -     3.40
DBD::CSV                                               -     0.41
DBD::File                                              -     0.42
DBI                                                    -    1.631
DBI::DBD::SqlEngine                                    -     0.06
DBI::SQL::Nano                                         - 1.015544
Data::Dumper                                           -    2.139
Devel::VersionDump                                     -     0.02
DynaLoader                                             -     1.14
Encode                                                 -     2.49
Encode::Alias                                          -     2.16
Encode::Config                                         -     2.05
Encode::Encoding                                       -     2.05
Errno                                                  -     1.15
Exporter                                               -     5.67
Exporter::Heavy                                        -     5.67
Fcntl                                                  -     1.11
File::Basename                                         -     2.84
File::Spec                                             -     3.40
File::Spec::Unix                                       -     3.40
File::Spec::Win32                                      -     3.40
File::stat                                             -     1.05
IO                                                     -  1.25_06
IO::Dir                                                -      1.1
IO::File                                               -     1.16
IO::Handle                                             -     1.33
IO::Seekable                                           -      1.1
List::Util                                             -     1.27
Math::BigFloat                                         -    1.997
Math::BigInt                                           -    1.998
Math::BigInt::Calc                                     -    1.997
Math::Complex                                          -     1.59
Math::Trig                                             -     1.23
Params::Util                                           -     1.07
SQL::Dialects::AnyData                                 -    1.405
SQL::Dialects::Role                                    -    1.405
SQL::Eval                                              -    1.405
SQL::Parser                                            -    1.405
SQL::Statement                                         -    1.405
SQL::Statement::Function                               -    1.405
SQL::Statement::Functions                              -    1.405
SQL::Statement::Operation                              -    1.405
SQL::Statement::Placeholder                            -    1.405
SQL::Statement::RAM                                    -    1.405
SQL::Statement::Term                                   -    1.405
SQL::Statement::TermFactory                            -    1.405
SQL::Statement::Util                                   -    1.405
Scalar::Util                                           -     1.27
SelectSaver                                            -     1.02
Symbol                                                 -     1.07
Text::CSV_XS                                           -     1.07
Tie::Hash                                              -     1.04
Time::HiRes                                            -   1.9725
Win32                                                  -     0.47
XSLoader                                               -     0.16
base                                                   -     2.18
bytes                                                  -     1.04
constant                                               -     1.25
integer                                                -     1.00
overload                                               -     1.18
overloading                                            -     0.02
sort                                                   -     2.01
strict                                                 -     1.07
unicore::Heavy.pl                                      -  Unknown
unicore::lib::Perl::Word.pl                            -  Unknown
unicore::lib::Perl::_PerlIDS.pl                        -  Unknown
utf8                                                   -     1.09
utf8_heavy.pl                                          -  Unknown
vars                                                   -     1.02
warnings                                               -     1.13
warnings::register                                     -     1.02

条件＃0显示完整的数据集，并且没问题。

条件＃1只是一些复合条件，工作正常。

条件＃2是相反的条件（用于反转它的基本逻辑规则），并且也可以正常工作。

然而，条件＃3应该与＃2相反，因此等于＃1，但结果与＃2相同： 我无法理解这一点 。

条件＃4表明，省略括号，NOT确实可以正常工作，但当然这个查询与以前的查询不同。

条件＃5和＃6显示出一种情况，其中NOT的行为与预期的完全一致。

那么，为什么不在复合条件下表现得好像根本没有指定NOT？！

顺便说一句，我读了这篇可怕的帖子Perl DBD :: CSV - SQL语法 - “AND”子句无法正常工作并添加了Devel :: VersionDump来检查我是否有类似的问题，但在我看来，所有相关的包都是最新的。 因此，我真的不知道这个。

3 个解决方案

解决方案1
 6 已采纳  2014-05-07 08:41:32

我确认这是SQL :: Parser的一个错误： 

'where_clause' => HASH(0x7f9686737480)
  'arg1' => HASH(0x7f9686808248)
     'arg1' => HASH(0x7f96866b50f8)
        'fullorg' => 'field'
        'type' => 'column'
        'value' => 'field'
     'arg2' => HASH(0x7f968588dfe0)
        'fullorg' => 0
        'type' => 'number'
        'value' => 0
     'neg' => 0
     'nots' => HASH(0x7f96866b55d8)
          empty hash
     'op' => '='
  'arg2' => HASH(0x7f9684498ce0)
     'arg1' => HASH(0x7f96845fb798)
        'fullorg' => 'field'
        'type' => 'column'
        'value' => 'field'
     'arg2' => HASH(0x7f96866b5158)
        'fullorg' => 1
        'type' => 'number'
        'value' => 1
     'neg' => 0
     'nots' => HASH(0x7f96866b55a8)
          empty hash
     'op' => '='
  'neg' => 0
  'nots' => HASH(0x7f9686808320)
       empty hash
  'op' => 'OR'

最顶层的“neg”应该是1.请在https://rt.cpan.org/Dist/Display.html?Name=SQL-Statement上打开一张票 - 当你引用这个帖子时，测试用例已被证实： ）

干杯，詹斯

解决方案2
 2  2014-05-07 06:58:32

DBD :: CSV的SQL逻辑不包含在DBD :: CSV中，它只是Text :: CSV_XS和DBI之间的一个薄粘合层。

所有SQL知识都由SQL :: Statement处理。 如果你认为你发现了一个真正的错误，请尝试挖掘该模块并查找原因，创建补丁并在RT上发布补丁问题:)

解决方案3
 1  2014-05-06 10:41:02

如果这确实恰好是NOT在括号上的分布错误，你可以通过替换来快速修复它 

NOT (A OR B)

同 

NOT A AND NOT B

这在逻辑意义上相当于前者。 这可能没有回答为什么你的代码失败的问题，但是如果这有效，而另一个没有，那么我认为这是一个错误（或者可能是分配不实现，不知道广告应该是什么工作什么不是。

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 Perl，SQL，DBI：为什么我的UPDATE函数不起作用？ 代码和我尝试过的东西 Perl DBI-加载到SQL Serverl Perl中DBI模块中的SQL错误 Perl DBI登录失败：SQL Server不存在或访问被拒绝 带有参数化查询的 DBI::dbSendQuery 不适用于 SQL 服务器 perl，dbi与sql语句具有相似的条件 使用DBI使用Perl连接到SQL Server吗？ （Perl）使用SQL :: Abstract创建DBI查询 perl执行sql文件（DBI oracle） 为什么此VBA代码用于CSV文件上的SQL查询会间歇性地工作？
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM