关于 NDBM_File 的奇怪事

Osment

准备把自己小站的 Tag索引 写入 DBM ，折腾了一段Perl 小程序，使用了 NDBM_File 模块， 结果稀奇古怪。

代码如下;

1.     #!/usr/bin/perl -w
   
2. 
   
3.     use strict;
   
4.     use CGI;
   
5.     my $tagdir ='/blog/tag';
   
6.     my $q = CGI->new;
   
7.     print $q->header(-charset => 'utf-8');
   
8. 
   
9.     use NDBM_File;
   
10.     use Fcntl;
    
11. 
    
12.     &do_tag_db();
    
13. 
    
14.     sub do_tag_db
    
15.     {
    
16.         my $all_tag_text =  $tagdir .'/tag.txt';
    
17.         return 1 unless (-s  $all_tag_text);
    
18.            
    
19.         my $all_tag_db =  $tagdir .'/tag.db';
    
20.         return 1 if (-s  $all_tag_db);
    
21. 
    
22.         if (open my $fh, $all_tag_text) {
    
23.            tie (my %DB, 'NDBM_File', $all_tag_db,O_RDWR|O_TRUNC|O_CREAT, 0666);
    
24.             my @list =split ',', <$fh>;
    
25.             close $fh;
    
26.             foreach my $tmp (@list)   { $DB{$tmp}  =  &getCacheFileName($tmp) ;  }
    
27.             untie %DB;
    
28.        }
    
29.        return 0;
    
30.     }
    
31. 
    
32.     sub getCacheFileName {
    
33.         my($str) = @_;
    
34.         $str =~ s!([^a-zA-Z0-9_.~-])!lc sprintf "%02x", ord($1)!eg;
    
35.         $str;
    
36.     }
    
37. 
    
38.     1;

复制代码

程序正常运行。但是在目标目录并没有发现所需要的 tag.db 文件， 而是一对文件，名字为 tag.db.dir 和 tag.db.pag 。

把上述文件的   

use NDBM_File;
    ...
tie (my %DB, 'NDBM_File', $all_tag_db,O_RDWR|O_TRUNC|O_CREAT, 0666);

换成

    use DB_File;
    ...
    tie (my %DB, 'DB_File', $all_tag_db,O_RDWR|O_TRUNC|O_CREAT, 0666);

即改用 DB_File, 则一切正常。 tag.db 正常生成。


百思不得其解， 这个是为什么呢？ 请指教。

兰花仙子

没用过NDBM，相对于DB_File有啥优势么？
我之前用MLDBM：
http://search.cpan.org/~chorny/MLDBM-2.04/lib/MLDBM.pm
优势是可以多级hash，DB_File是一级结构的hash把。

Osment

回复 2# 兰花仙子
不知道有啥优势。 只是 apche mod_rewrite 的文档示例的是 NDBM_File ，所以就用了 这个， 结果太稀奇了。
而 DB_File 是以前优先考虑的东西。
有空也试试 MLDBM