DBÓëdbm dB£¬dbm ÒâÒåÆäʵÔÙ¼òµ¥²»¹ýÁË£¬¾ÍÊǰÑÒ»¸öºÜ´ó£¨ºóÃæ¸úÒ»³¤´®0µÄ£©»òÕߺÜС£¨Ç°ÃæÓÐÒ»³¤´®0µÄ£©µÄÊý±È½Ï¼ò¶ÌµØ±íʾ³öÀ´¡£ËüÃǶ¼Êǹ¦ÂÊÔöÒæµÄµ¥Î»£¬²»Í¬Ö®´¦ÈçÏ£º 1. dB dBÊÇÒ»¸ö±íÕ÷Ïà¶ÔÖµµÄÖµ£¬´¿´âµÄ±ÈÖµ£¬Ö»±íʾÁ½¸öÁ¿µÄÏà¶Ô´óС¹ØÏµ£¬Ã»Óе¥Î»£¬µ±¿¼ÂǼ׵ŦÂÊÏà±ÈÓÚÒÒ¹¦ÂÊ´ó»òС¶àÉÙ¸ödBʱ£¬°´ÏÂÃæµÄ¼ÆË㹫ʽ£º10log£¨¼×¹¦ÂÊ/ÒÒ¹¦ÂÊ£©£¬Èç¹û²ÉÓÃÁ½Õߵĵçѹ±È¼ÆË㣬ҪÓÃ20log£¨¼×µçѹ/ÒÒµçѹ£©¡£ [Àý] ¼×¹¦ÂʱÈÒÒ...
http://www.cis.uni-muenchen.de/~hbosk/perl2_ws03/dbm.html ±¾ÎÄÀ´×ÔChinaUnix²©¿Í£¬Èç¹û²é¿´ÔÎÄÇëµã£ºhttp://blog.chinaunix.net/u/6672/showart_28338.html
haierqas:db2qas>; db2start SQL10007N Message "-1063" could not be retrieved. Reason code: "2". Pls help me. Thanks with best regards.
use dbm_Filter ; dbmopen(%USERFILE,"C:/tmp/t.dbm",0666); $USERFILE{test}=[1,2,3,4,5,6,7,8]; print "$USERFILE{test}[2] \n"; print "$USERFILE{test} \n"; dbmclose(%USERFILE); ÔõôÔËÐв»Ðа¡£¿£¿£¿ Use of uninitialized value in concatenation (.) or string at dbm.pl line 6. ARRAY(0x1635c40) ARRAY(0x1635c40)Õâ¸öÖµÒªÔõÑù²ÅÄܵõ½ÀïÃæµÄ¶«¶«°¡£¿
dbmopen (%HASH, "dbmfile", 0666) or die "Îļþ´ò²»¿ª!"; print $HASH{'John'} if (exists $HASH{'Hohn'}); $HASH{'Mary'} = '0227331122'; @sort_keys = sort {$a cmp $b} (keys %HASH); for (@sort_keys) { print "$_: $HASH{$_}\n"; } delete $HASH{'Paul'}; dbmclose(%HASH); ³ÌÐòû¿´Ã÷°×ËÄܰ￴ÏÂÕâ³ÌÐòÊÇÔÚ¸ÉÂð (exists $HASH{'Hohn'})Õâ¾äÊÇʲôÒâ˼£¿
ÎÒÊÔÓÃÎļþÈÏÖ¤¿ÉÒÔ¡£µ«ÎÒÊÔ×ÅÓà dbmÈÏ֤ȴ×ÜÊÇÔÚÌá½»Óû§ÃûºÍÃÜÂëµÄʱºò³öÏÖÄÚ²¿´íÎó¡£ ÎÒ²éÁËÒ»ÏÂÄ£¿émod_auth_dbmûÓа²×°³É¹¦¡£²»ÖªµÀÔõôÌî¼ÓÕâ¸öÄ£¿é£¬ÍûÖ¸µã£¬Ð»Ð»£¡
ÎÒÊÔÓÃÎļþÈÏÖ¤¿ÉÒÔ¡£µ«ÎÒÊÔ×ÅÓà dbmÈÏ֤ȴ×ÜÊÇÔÚÌá½»Óû§ÃûºÍÃÜÂëµÄʱºò³öÏÖÄÚ²¿´íÎó¡£ ÎÒ²éÁËÒ»ÏÂÄ£¿émod_auth_dbmûÓа²×°³É¹¦¡£²»ÖªµÀÔõôÌî¼ÓÕâ¸öÄ£¿é£¬ÍûÖ¸µã£¬Ð»Ð»£¡
ÎÒÓÃUPDATE¡¡dbm¡¡CFGÃüÁSYSADM¡¡²ÎÊýÖµ¸ü¸ÄÁË£¬µ«ÎÒÏÖÔÚÏ£ÍûËü±ä»ØÔÀ´ÎÞÖµµÄ״̬£¬Çë½ÌÓÐûÓа취£¿
±¾ÈËÊÇperlÐÂÊÖ¡£ÓÉÓÚÓõ½ÁËÒ»¸öperl³ÌÐò£¬ËùÒÔ²»µÃ²»×Ô¼º²âÊÔ¡£ ÔÚ²âÊÔ¹ý³ÌÖÐÓöµ½ÁËÒ»¸öÆæ¹ÖµÄÎÊÌ⣬ÓÃPAR´ò°üºóµÄ³ÌÐò£¬dbmopen ´ò¿ªdbmÎļþµÄʱºò£¬»áÓÐÈçϵĴíÎó£º ÏêϸÈçÏ£º [root@mailserver dbm]# cat read_queue.pl #!/usr/bin/perl -w dbmopen (%fm_queue_list, "./dbm_queue_file", 0666) or die "Couldn't open file: $!"; while (($holder, $record) = each(%fm_queue_list)) { print "$holder ,$record\...