正在尝试读取DBM文件
正在尝试读取DBM文件
提问于 2015-01-15 23:09:37
我有一个精简的实时Linux机器，可以连接一些硬件。
配置文件是*.dbm文件，我无法访问它们。它们看起来像是某种键值数据库，但我尝试过的每个库都是空的。
我尝试过使用DBM读取Perl、Python和Ruby中的库，但没有成功。任何关于这些文件的指导都会很棒，我以前没有见过它们。
这就是当我猫出一个文件时发生的事情。
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***回答 2
Stack Overflow用户
发布于 2015-01-16 01:14:09
为了让我的评论更清晰，您应该尝试使用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;Stack Overflow用户
发布于 2015-01-15 23:39:53
从documentation for Perl's dbmopen function
此函数在很大程度上已被tie函数取代。
你可能想试着用DB_File tie它。
use DB_File;
tie %hash, 'DB_File', $filename, $flags, $mode, $DB_HASH;那么你的数据就是%hash格式的。
对文件运行file以查看它的实际内容可能也很有趣。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/27966496
复制相关文章
相似问题
腾讯云开发者
