程嶏清单16-8.txt

< linux网络编程工具>>配套源码

程序清单16-8：dbm.pl
use AnyDBM_File;
# 打开数据库文件，与％hash数值关联，如果文件不操作，就创建
tie %hash, “DB_FILE”, $FileName
   or die “ Can’t open $FileName: $!\n”;
# 请输入要查找的字符串
$searchfor = <STDIN>;
chop $searchfor;
$I = 0;
while ( ($key,$val) = each(%hash)  )
{
    if ($key = ~/$searchfor/)
    {
        $i++;
print  “$I:    $key的电话号码是 $val\n”;
    }
}
# 关闭DBM数据库
untie %hash;