tie BerkeleyDB::Hash

BerkeleyDB

當然，你也可以使用簡單的資料庫來儲存，而這時候BerkeleyDB就是一個很好的選擇。我們也在內文中提過這個部份，在這裡大家可以作為一個備忘。

     tie my %h, "BerkeleyDB::Hash",       # 繫結 %h 雜湊
            -Filename => 'test.db', # 連到 test.db 資料庫
            -Flags  => DB_CREATE, # 若不存在，即行建立
       or die "$BerkeleyDB::Error: $!\n" ;

     # 將鍵/值對加入檔案中
     $h{"蘋果"} = "紅";
     $h{"柳橙"} = "橙";
     $h{"香蕉"} = "黃";
     $h{"蕃茄"} = "紅";
     # 檢查某個鍵存在與否
     print "香蕉船!\n\n" if $h{"香蕉"};
     # 刪除鍵/值對
     delete $h{"蘋果"};
     # 印出資料檔的內容
     while (my ($k, $v) = each %h) { print "$k -> $v\n" }
     # 解除繫結
     untie(%h);