Question

我对perl非常陌生，我正在尝试使用cpan在Windows PC上为perl安装DBD :: DB2模块，但是我一直收到此错误：

CPAN: CPAN::SQLite loaded ok (v0.212)
Database was generated on Thu, 06 Dec 2018 20:55:19 GMT

Running install for module 'DBD::DB2'
CPAN: Digest::SHA loaded ok (v6.02)
CPAN: Compress::Zlib loaded ok (v2.081)
Checksum for D:\STRAWB~1\cpan\sources\authors\id\I\IB\IBMTORDB2\DBD-DB2-1.85.tar.gz ok
CPAN: Archive::Tar loaded ok (v2.32)
CPAN: YAML::XS loaded ok (v0.75)
CPAN: CPAN::Meta::Requirements loaded ok (v2.140)
CPAN: Parse::CPAN::Meta loaded ok (v2.150010)
CPAN: CPAN::Meta loaded ok (v2.150010)
Configuring I/IB/IBMTORDB2/DBD-DB2-1.85.tar.gz with Makefile.PL

Configuring DBD::DB2...
Remember to actually read the README and CAVEATS files!

Using DB2 in "D:/SQLLIB"
System: perl5.028001 DBI1.642 Win32 strawberry-perl 5.28.1.1 #1 Sun Dec  2 14:24:00 2018 x64 MSWin32-x64-multi-thread dl_win32.xs
Compiler: gcc -s -O2  -s -O2 -DWIN32 -DWIN64 -DCONSERVATIVE -D__USE_MINGW_ANSI_STDIO -DPERL_TEXTMODE_SCRIPTS -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -fwrapv -fno-strict-aliasing -mms-bitfields
Includes:  -I"D:/SQLLIB/include" -I"D:\STRAWB~1\perl\site\lib/auto/DBI" -I"D:\STRAWB~1\perl\lib/auto/DBI" -I"D:\STRAWB~1\perl\vendor\lib/auto/DBI" -I"D:\STRAWB~1\perl\site\lib/auto/DBI" 
Libraries: -L"D:/SQLLIB/lib" db2cli.lib db2api.lib

Checking if your kit is complete...
Looks good
Checking if your kit is complete...
Looks good
Writing MYMETA.yml and MYMETA.json
Generating a gmake-style Makefile
Writing Makefile for DBD::DB2
Writing MYMETA.yml and MYMETA.json
IBMTORDB2/DBD-DB2-1.85.tar.gz
D:\Strawberry\perl\bin\perl.exe Makefile.PL -- OK
Running make for I/IB/IBMTORDB2/DBD-DB2-1.85.tar.gz
CPAN: Module::CoreList loaded ok (v5.20181130)
cp DB2.pm blib\lib\DBD\DB2.pm
cp DB2.pod blib\lib\DBD\DB2.pod
cp lib/Bundle/DBD/DB2.pm blib\lib\Bundle\DBD\DB2.pm
gmake[1]: Entering directory 'D:/STRAWB~1/cpan/build/DBD-DB2-1.85-10/Constants'
AutoSplitting ..\blib\lib\DBD\DB2\Constants.pm     (..\blib\lib\auto\DBD\DB2\Constants)
Running Mkbootstrap for Constants ()
"D:\Strawberry\perl\bin\perl.exe" -MExtUtils::Command -e chmod -- 644     "Constants.bs"
"D:\Strawberry\perl\bin\perl.exe" -MExtUtils::Command::MM -e cp_nonempty -- Constants.bs    ..\blib\arch\auto\DBD\DB2\Constants\Constants.bs 644
"D:\Strawberry\perl\bin\perl.exe"    "D:\Strawberry\perl\lib\ExtUtils/xsubpp"  -typemap   D:\STRAWB~1\perl\lib\ExtUtils\typemap  Constants.xs > Constants.xsc
"D:\Strawberry\perl\bin\perl.exe" -MExtUtils::Command -e mv -- Constants.xsc Constants.c
gcc -c -I"D:/SQLLIB/include" -I"D:\STRAWB~1\perl\site\lib/auto/DBI" -I"D:\STRAWB~1\perl\lib/auto/DBI" -I"D:\STRAWB~1\perl\vendor\lib/auto/DBI" -I"D:\STRAWB~1\perl\site\lib/auto/DBI"   -I"D:/SQLLIB/include" -s -O2 -DWIN32 -DWIN64 -DCONSERVATIVE -D__USE_MINGW_ANSI_STDIO -DPERL_TEXTMODE_SCRIPTS -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -fwrapv -fno-strict-aliasing -mms-bitfields -s -O2   -DVERSION=\"1.85\" -DXS_VERSION=\"1.85\"  "-ID:\STRAWB~1\perl\lib\CORE" -   DDB2_CACHE_FIX    Constants.c
gmake[1]: Leaving directory 'D:/STRAWB~1/cpan/build/DBD-DB2-1.85-10/Constants'
IBMTORDB2/DBD-DB2-1.85.tar.gz
D:\STRAWB~1\c\bin\gmake.exe -- NOT OK
Stopping: 'install' failed for 'DBD::DB2'.

我试图从另一台计算机上复制DBD :: DB2模块，但是那没有用，并给了我错误无法在@INC中找到模块DBD :: DB2 :: Constants的可加载对象任何帮助表示赞赏。

Answer 1

根据此technote，IBM印度（可能是DBD：DB2的维护者）通过ActiveState Perl支持Windows版DBD：DB2。该技术说明还展示了如何使用ppm来获取预构建的模块。

如果您不关心哪个Perl供应商，请考虑使用Activestate Perl for Windows。如果您必须坚持使用Strawberry Perl，请继续阅读。

当前的V11.1 Db2-LUW documentation还说，除了ActiveState Perl之外，该语句还支持32位Strawberry-Perl：

与Db2一起使用的Perl的工作版本是Activestate Perl 和32位Strawberry Perl。对于32位Strawberry Perl，您必须通过电子邮件发送opendev@us.ibm.com或联系IBM支持以获取有关所需的二进制文件。

如果您拥有Db2的支持合同，则可能需要与他们核对Db2文档是否准确（通常是针对非核心内容，不准确，过时，误导等），以及它们是否可以签发DBD :: DB2的64位二进制文件。

在CPAN页上查看对DBD：DB2的更改，似乎是最近的更改是在2012年。因此，目前尚不清楚该模块是否得到维护。

在同一站点上，据报道，issue于2013年打开，表明DBD：DB2无法使用Strawberry Perl构建。

我确定一个坚定的C程序员将能够解决问题...问题是是否有足够的用户来打扰...

Answer 2

我找到了解决方法，只需插入以下文件：

常量/常量.xs
DB2.h

 #ifndef __DBD_DBI_FIX__
 #define __DBD_DBI_FIX__
     #include <specstrings.h>
     #ifndef __out_ecount_opt
         #define __out_ecount_opt    SAL__out_ecount_opt
     #endif
     #ifndef __in_ecount_opt
         #define __in_ecount_opt  SAL__in_ecount_opt
     #endif
     #ifndef __out_bcount_opt
         #define __out_bcount_opt    SAL__out_bcount_opt
     #endif
 #endif

完整的修复程序在这里： https://github.com/ro-ag/DBD-DB2-1.86/commit/1ad9d4163656d9830fd567caf6d57603045ee392

您也可以直接从我为 Windows 10 创建的 PPM 包中安装它： https://github.com/ro-ag/Perl-64-PPM/raw/master/PPM-64/DBD-DB2.tar.gz

忘记了 cpan 模块我已经向 IBM 发送了几封电子邮件以包含此修复程序但没有成功。

由于在Strawberry Perl上使用cpan进行了测试，因此DBD :: DB2安装失败

2 个答案: