请教，PAR及DBM的问题--No dbm on this machine at (eval 13) line XX

chenl

本人是perl新手。由于用到了一个perl程序，所以不得不自己测试。
在测试过程中遇到了一个奇怪的问题，用PAR打包后的程序，dbmopen 打开dbm文件的时候，会有如下的错误：

详细如下：
[root@mailserver dbm]# cat read_queue.pl
#!/usr/bin/perl -w
dbmopen (%fm_queue_list, "./dbm_queue_file", 0666) or die "Couldn't open file: $!";

while (($holder, $record) = each(%fm_queue_list)) {
        print "$holder ,$record\n";
}
[root@mailserver dbm]# ./read_queue.pl
C ,3
A ,1
B ,2
[root@mailserver dbm]# ./read_queue
No dbm on this machine at (eval 13) line 2.
[root@mailserver dbm]# rm ./read_queue
rm：是否删除一般文件‘./read_queue’? y
[root@mailserver dbm]# pp -f Bleach -o read_queue read_queue.pl
[root@mailserver dbm]# ./read_queue
No dbm on this machine at (eval 13) line 2.

请各位高手帮忙看看，是我写错了，还是其他原因。
还没测试过用tie代替dbmopen。

apile

看起来是没有找到dbm module...

看看pp有没有叁数可以将dbm module放进去....

chenl

pp应该是自己总动包含所需要模块吧。pp我也不熟 ：（
另外，dbm 模块好像是包含在perl 核心的吧。


我用tie及SDBM_File测试，发现没有问题。
我考虑还是tie吧。

chenl

感谢二楼提醒
后来测试，需要use 一下 GDBM_File或者SDBM_File。
虽然不use perl也可以照常执行，但是如果用pp打包的话，就必须要use才行。