關于 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;

復制代碼

程序正常運行。但是在目標目錄并沒有發(fā)現所需要的 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有啥優(yōu)勢么？
我之前用MLDBM：
http://search.cpan.org/~chorny/MLDBM-2.04/lib/MLDBM.pm
優(yōu)勢是可以多級hash，DB_File是一級結構的hash把。

Osment

回復 2# 蘭花仙子
不知道有啥優(yōu)勢。 只是 apche mod_rewrite 的文檔示例的是 NDBM_File ，所以就用了 這個， 結果太稀奇了。
而 DB_File 是以前優(yōu)先考慮的東西。
有空也試試 MLDBM