如何在 Windows 和 Linux 上使用 perl dbmopen

Question

我有一个 perl 脚本，它在 Linux 上运行良好，但在 Windows 上运行失败：

$freq{total} = 0;
dbmopen(%freq,$dictfile,0666) || die "Error: Cannot open dbmfile $dictfile";

$dictfile 指向相应平台上的正确位置。更改 0666 文件权限没有帮助。要打开的文件是一个以 gb18030 编码的文本文件。

有什么窍门吗？我需要声明编码才能在 Window 上打开它吗？或者可能是 Windows 上的不同 perl 发行版。我正在使用草莓 Perl。

谢谢。

Answer 1

编辑：抱歉，如果我说的是显而易见的事情，但我只是重新阅读了这个问题。当你说

要打开的文件是 gb18030 编码的文本文件。

您的意思是纯文本文件吗？

如果是这样，我认为那就是你的问题。 dbmopen 用于索引数据库文件，最好由 dbmopen 在之前运行的 perl 程序中创建。对于纯文本文件，您无法将它们绑定到哈希值。

我之前的反应...

它适用于我在 Windows 上运行的 Strawberry perl 5.12.1 在 Windows7x64 上运行。你使用的是哪个 Windows Perl？确保您的安装至少具有一个 DBM 模块。

其他一些可能有帮助的点：

• 您应该在 die 语句中包含 $! ，它会给您打开失败的错误消息。所以希望能回答你的问题。
• dbmopen 将清除 %freq 哈希值的内容，因此您将丢失 $freq{total} （因为您可能没有注意到它的 0） 。通常的模式是：dbmopen，更改一些哈希值，dbmclose

编辑：

$! 是包含任何失败的“系统”的错误测试的变量“ 称呼。因此，您打开的行应该类似于：

dbmopen(%freq,$dictfile,0666) || die "Error: Cannot open dbmfile $dictfile: $!";

要检查标准 DBM 模块，您可以从命令提示符运行以下命令

for %m in ( DB_File GDBM_File SDBM_File NDBM_File ODBM_File ) do @perl -M%m -e "print qq(%m: $%m::VERSION\n)"

对于我来说，这给出了：

DB_File: 1.82
GDBM_File: 1.10
SDBM_File: 1.06
Can't locate NDBM_File.pm in @INC (@INC contains: C:/Nerd/StrawberryPerl/perl/site/lib C:/Nerd/StrawberryPerl/perl/vendor/lib C:/Nerd/StrawberryPerl/perl/lib .)
.
BEGIN failed--compilation aborted.
Can't locate ODBM_File.pm in @INC (@INC contains: C:/Nerd/StrawberryPerl/perl/site/lib C:/Nerd/StrawberryPerl/perl/vendor/lib C:/Nerd/StrawberryPerl/perl/lib .)
.
BEGIN failed--compilation aborted.

这实际上意味着我有 DB_File、GDBM_File 和 SDBM_File。但不是 NDBM_File 或 ODBM_File。抱歉，我不知道如何找出 dbmopen 默认使用哪个模块。

就我个人而言，我总是使用特定模块，然后使用tie运算符而不是dbmopen。