perl dbm文件操作总结

1. dbm 操作接口说明

Perl中可用关联数组来访问DBM文件，所用函数为dbmopen和dbmclose，在Perl5中，已用tie和untie代替。
函数名 dbmopen
调用语法 dbmopen (array,dbmfilename,permissions);
解说 将关联数组与DBM文件相关联。参数为：
1、array：所用关联数组
2、dbmfilename：将打开的DBM文件名
3、访问权限详见mkdir

函数名 dbmclose
调用语法 dbmclose (array);
解说 关闭DBM文件，拆除关联数组与之的关系。

 

2. 代码如下

#!perl -w use strict; my %counters; my $dbmfile = "dbm//dbmtestfile"; dbmopen(%counters,$dbmfile,0666); if(!(defined($counters{'my_counter'}))) { $counters{'my_counter'}=0; } $counters{'my_counter'}++; $counters{'my_counter'}++; $counters{'my_counter'}++; $counters{'my_counter'}++; my $count=$counters{'my_counter'}; print $count; dbmclose (%counters);

 

3. 执行结果：

 

在dbm目录产生文件