• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

使用Perl操作DBM数据库

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

DBM简介:

     DBM是一种文件数据储存数据,由于采用哈希结构进行连接,因此具有一些数据库的特点功能与普通文本数据库相比,具有稳定,检索速度快和支持量大的优点,由于DBM是从Unix系统中移植来的,因此在Unix/linux系统中优点比较明显,而在NT系统中则不太理想,在NT中使用有时会另数据文件变得十分庞大。 
  
DBM的使用: 
    数据库采用关联数组方式保存数据,并与关联数组结合使用。 

打开文件:

dbmopen(%USERFILE,"dbfilename",0666); 此时将把数据值赋给USERFILE关联数组。

关闭文件:

dbmclose(%USERFILE);

打开关闭DBM哈希:

dbmopen(%ARRAYNAME,"dbmfilename",$mode);

参数%ARRAYNAME是哈希变量。这个哈希内部的值会被清理掉,随后和名称为dbmfilename的DBM数据库产生关联;
参数$mode是一个数字,代表权限控制位。常用的设定是0644,代表只有所有者同时有读写权,其他人只有读取权。
如:dbmopen(%FRED,"mydatabase",0644);#开启以%FRED表示的mydatabase文件

关闭:dbmclose(%ARRAYNAME); #结束关联状态

添加数据:

dbmopen(%USERFILE,"dbfilename",0666); 
$USERFILE{$no}=value; 
dbmclose(%USERFILE); 
$no是数组的关联值,必须唯一,否则该关联数据会被更新。

删除数据:

dbmopen(%USERFILE,"dbfilename",0666); 
delete $USERFILE{$no}; 
dbmclose(%USERFILE); 
$no是要删除的关联值。

更新数据:

dbmopen(%USERFILE,"dbfilename",0666); 
$USERFILE{$no}=value; 
dbmclose(%USERFILE);

历遍数组:

dbmopen(%USERFILE,"dbfilename",0644); 
%TEMP=%USERFILE; 
dbmclose(%USERFILE); 
foreach (keys(%TEMP)){ 
$value=$TEMP{$_}; 
}


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
【zz】双引字符串中反斜杠转义表--perl发布时间:2022-07-22
下一篇:
Perl's keys() function发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap