将 perl 脚本/dbm 移动到新服务器，并移出 dbm？

Question

我的任务是将站点镜像到新服务器上。旧站点有一些 Perl 脚本，据我内部所知（我对 Perl 一无所知，尽管我对一般编码有很好的理解，特别是 PHP/js/等），它们并不依赖于旧站点服务器。也就是说，当我尝试运行此脚本（该脚本查看数据库文件以查找适当的文章文件）时，它不会检索任何内容。

基本上，正如我所解释的，这是一个基本的旧 CMS，它在 PAG 文件中搜索文件名并显示它。我在这里有点迷失了。镜像在新站点上不起作用是否有原因？我检查了权限，检查了 Perl 是否安装在相同的 /usr/etc 目录中。我认为它使用 dbm 因为，根据另一篇文章，如果我看到这样的命令：

 dbmopen( %ARTS, $art_dbm, 0644 );
 $entry = $ARTS{$article_id};
 dbmclose( %ARTS );

它一定是dbm，对吗？

与此相关的是，有没有办法将 PAG 文件的信息与原始文件合并，而无需极其复杂的 Perl 脚本？即，使用文件本身中的信息重新创建 100 个文本文件，而不是单独存储？

编辑：感谢下面的第一个答案。你能解释一下那个哈希值和掩码是什么吗？我已经仔细检查过 .pag 文件（数据库名称）确实位于 .pl 文件中先前定义的位置，并且它是以二进制形式传输的。但不知何故我无法让它正确打开它！

编辑3：好的，抱歉，这里最后编辑：我使用了下面的模具代码（Shwern），发现它没有找到该数据库文件，尽管它在那里（两个文件articles.pag和articles） .dir，但该变量仅引用正确目录中且具有正确权限的“文章”（不带扩展名）...所以，这里的问题是现在到底发生了什么？这些是不同版本的 perl 吗？或者我只是在做一些基本而愚蠢的事情？郑重声明（是的，这太糟糕了）我还没有 shell 访问权限，尽管我正在努力...我被要求这样做是因为我的“新网络”技能，而且我当然不是合适的人选诸如 perl 和 dbm 之类的人，尽管我可以阅读这些文件并理解它们。作为最后的建议，有谁知道如何（脚本等）我可以要求原始服务器人员（不是编码员）对此进行 ASCII 转储，或者这会超出范围吗？我需要将其放入 CSV 中并返回到文件中，以便我可以在另一个数据库中重用它......唉，真是一场噩梦！

Answer 1

如果我正确地阅读了您的问题，那么您在新计算机上打开数据库时遇到困难。那里有数据库吗？

dbmopen 方法的文档可通过命令行 perldoc -f dbmopen (并在此链接获取最新的稳定 Perl 版本 5.10.1）。

正如您从文档中看到的，dbmopen 的第二个参数包含正在打开的文件名。在您粘贴的代码中，它包含在标量变量 $art_dbm 中。因此，您需要做的是查找该变量的一些早期声明（可能它是从配置文件加载的，或者可能是硬编码的）。然后，一旦您找到该数据库，所需要做的就是将该文件传输到您的新计算机。

如果您需要更多帮助来破译代码，请随时使用代码片段编辑您的问题，我们可以从那里开始。

（现在，如果您找到了数据库，但无法打开它，则说明您遇到了其他问题。但是，我已经很长时间没有处理 PAG 文件了。）

Answer 2

您仍然可以使用原始机器吗？

尽管您使用的是 DBM 文件，但实际功能可能来自多种实现之一，其中一些实现不兼容。我将使用创建该文件的相同 perl 转储该文件，然后使用新的 perl 重新创建它。

Answer 3

有一些事情可能会出错。最明显的一个是 dbmopen() 调用没有打开文件。如果 DBM 文件不存在，dbmopen() 不会失败，只会创建一个新文件，这可能就是它显示为空的原因。

为了消除这种可能性，请确保 DBM 文件确实存在并且可读。您还想检查 dbmopen() 是否成功，如果格式错误，它（通常）会出错。

die "$art_dbm does not exist" unless -e $art_dbm;
die "Cannot read $art_dbm"    unless -r $art_dbm;
dbmopen( %ARTS, $art_dbm, 0644 ) or die "dbmopen of $art_dbm failed: $!";

不幸的是 dbmopen() 太聪明了。如果您给它“foo”，它可能会创建“foo.db”。取决于实施。见下文。

另一种可能性是您的两个 Perls 正在尝试使用两种不同的 DBM 实现打开该文件。 Perl 可以在不同的机器上使用不同的 DBM 实现集进行编译。 dbmopen() 将使用硬编码（历史上是藤壶）列表中的第一个。它实际上是 AnyDBM_File 的包装。您可以检查正在使用哪个实现...

use AnyDBM_File;
print "@AnyDBM_File::ISA\n";

确保它们是相同的。如果没有，请在使用 dbmopen 之前加载有问题的 DBM 库。 perldoc -f dbmopen 解释。

这是一个演示。首先我们看看 dbmopen() 默认是什么。

$ perl -wle 'use AnyDBM_File; print "@AnyDBM_File::ISA"'
NDBM_File

然后创建并填充 dbm 文件。

$ perl -wle 'dbmopen(%foo, "tmpdbm", 0644) or die $!; $foo{23} = 42;  print %foo'
2342

现在证明我们可以阅读它。

$ perl -wle 'dbmopen(%foo, "tmpdbm", 0644) or die $!; print %foo'
2342

并尝试使用不同的 DBM 实现来读取它。

$ perl -wle 'use GDBM_File; dbmopen(%foo, "tmpdbm", 0644) or die $!; print %foo'

文件中没有任何内容，但也没有错误。结果它创建了一个名为 tmpdbm 的文件，而 ndbm 使用的是 tmpdbm.db。让我们尝试一下 Berkeley DB。

$ perl -wle 'use DB_File; dbmopen(%foo, "tmpdbm", 0644) or die $!; print %foo'
Inappropriate file type or format at -e line 1.

至少这会产生错误。

最好的办法是弄清楚原始机器正在使用什么 DBM 实现，并在 dbmopen() 调用之前使用该模块。这将使情况变得静态。

PS Unix file 实用程序还可以让您很好地了解它是什么类型的 DBM。

$ file tmpdbm
tmpdbm: GNU dbm 1.x or ndbm database, little endian
$ file tmpdbm.db
tmpdbm.db: Berkeley DB 1.85 (Hash, version 2, native byte-order)

希望 $diety 这不是一个字节顺序问题，现在几乎所有东西都是 x86，所以不太常见。

PPS 正如您所看到的，使用 DBM 文件有点混乱。奇怪的是，考虑到它应该只是磁盘上的哈希。