tie BerkeleyDB::Hash
时间：2008-07-02 来源：hoo7
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);
-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);
相关阅读 更多 +
