使用Perl在Linux上訪問BDB文件失敗

Question

我有一個程序可以從Berkeley 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

對我來說，這聽起來像是文件系統問題。 你的fstype是什么？ 哦，您的操作系統是什么版本/發行版/發行版？

檢查事項：

• 當文件位於本地存儲上時，腳本可以在Linux上運行嗎？
• 在兩個系統中，您的Perl，BDB和DB_File版本是否相同？

[另一個編輯]我還將在linux中的腳本上運行strace，以查看記錄12,000附近是否發生了任何奇怪的情況