📄 程嶏清单16-8.txt
字号:
程序清单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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -