使用Perl在linux上访问BDB文件失败

Question

我有一个程序，它从伯克利DB中读取一个非常大的数据文件，这个文件安装在SAN存储上。这在使用perl5.6.0版本的solaris机器上非常好。

但是，同一个程序在linux机器上返回从同一个文件读取的值较少。这是数据文件大小的问题吗？

任何解决这个谜团的建议都是受欢迎的。

谢谢，Shobha Deepthi

编辑以包含Shobha的复制者(来自评论)：

#!/usr/cisco/bin/perl5.6
use strict;
use DB_File qw($DB_HASH);
my $db_file = "/vws/aak/qddts/data/value_cache/To-be-fixed";
my $db_ref;
my %db;

if (tie(%db, 'DB_File', $db_file, O_RDONLY, 0444, $DB_HASH)) {
    $db_ref = \%db;
    print Dumper($db_ref);
}
1;

Answer 1

在我看来，这是一个文件系统问题。你的炒作是什么？哦，您的开放源码软件是什么版本/发行版/ archs？

要检查的事情：

当文件在本地存储时，

• 在linux上工作吗？
• 是两个系统中的Perl、BDB和DB_File的版本吗？

。

还有一个编辑，我还会在linux中对您的脚本执行一段时间，以查看记录12,000左右是否有什么奇怪的事情发生。