0

我有一个与某些硬件接口的精简实时 Linux 机器。

配置文件是 *.dbm 文件,我无法访问它们。它们似乎是某种键值数据库,但我尝试过的每个库都是空的。

我已经尝试过从 Perl、Python 和 Ruby 读取 DBM 库,但没有成功。有关这些文件的任何指导都会很棒,我以前从未见过它们。

这就是我找出一个文件时发生的情况。

 DBMFILE  Aug 31 2004,�
,jy                    �
�~���"��+�K&��gB��7JJ�
                                         ,��GLOBA.PB_COMBI�SMSI���
JG]
,��BUS_DP
PC  �
            '

xLokalT
          J��
                ,��SL_DP
                             PC!�
                                    ��
#,��PLC_PARAMJPf,��PROJEKT�PROFIBUS new network1.00022.02.2012J,��KBL_HEADER:�JJp,��KBLJ��,��ALI-SETUPB ����
������������������JJ,,��OBJ-DEFJJ��,��ALI_CLIENTTJJ�
,��ALI_SERVERJ      J\r�����2,  ��      ST_OV_00Boolean0Integer8    0Integer16
0Integer32
            0Unsigned8
0Unsigned32Floating-Point0igned16
Octet String Jo� ,��DESCRIPT �ABB OyABB Drives RPBA-01ABBSlave1***reserved***�
                                                                                      �
                                                                                      %  

因此,为了展示我已经尝试过的内容,并且只提供空对象(没有键值)*编辑

perl -

#!/usr/bin/perl -w                                                                                                                                                                                                                             

use strict;

use DB_File;
use GDBM_File;

my ($filename, %hash, $flags, $mode, $DB_HASH) = @ARGV;

tie %hash,  'DB_File', [$filename, $flags, $mode, $DB_HASH]
  or die "Cannot open $filename: $!\n";

while ( my($key, $value) = each %hash ) {
   print "$key = $value\n";
}

 # these unties happen automatically at program exit                                                                                                                                                                                            
untie %hash;

什么都不返回

Python -

db = dbm.open('file', 'c')

红宝石 -

db = DBM.open('file', 666, DBM::CREATRW)

这些中的每一个都返回空。我假设他们使用相同的低级库。DBM 文件上的一些历史/上下文会很棒,因为似乎有一些不同的版本。

**编辑

在其上运行文件返回

$ file abb12mb_uncontrolledsynch_ppo2_1slave.dbm 
abb12mb_uncontrolledsynch_ppo2_1slave.dbm: data

并运行字符串输出

$ strings abb12mb_uncontrolledsynch_ppo2_1slave.dbm 
DBMFILE  
Aug 31 2004
GLOBAL
PB_COMBI
SMSI
BUS_DP
Lokal
SL_DP
PLC_PARAM
PROJEKT
PROFIBUS new network
1 .000
22.02.2012
KBL_HEADER
ALI-SETUP
OBJ-DEF
ALI_CLIENT
ALI_SERVER
ST_OV_0
Boolean
Integer8
Integer16
Integer32
Unsigned8
Unsigned16
Unsigned32
Floating-Point
Octet String
DESCRIPT
ABB Oy
ABB Drives RPBA-01
ABBSlave1
***reserved***
4

2 回答 2

1

只是为了让我的评论更清楚,您应该尝试使用 的默认选项DB_File,就像这样

use strict;
use warnings;

use DB_File;

my ($filename) = @ARGV;

tie my %dbm, 'DB_File', $filename or die qq{Cannot open DBM file "$filename": $!};

print "$_\n" for keys %dbm;
于 2015-01-15T17:14:08.583 回答
0

Perl 的 dbmopen 函数的文档中

[此功能已在很大程度上被 tie 功能所取代。]

您可能想尝试tie使用DB_File

 use DB_File;
 tie %hash,  'DB_File', $filename, $flags, $mode, $DB_HASH;

然后你的数据在%hash.

file对文件运行以查看它实际上是什么也可能很有趣。

于 2015-01-15T15:39:53.057 回答