※ 引述《sqrt1089 (李崩子)》之铭言： : 假设我读入一个档案 : lee David : wang steve : lee eric : wu hunry : .. .. : .. .. : .. .. : 是个两行的档案，一行是姓，一行是名。 : 想要结果 : 输入：lee : 会印出： : David : eric : .. : .. : 就是所以是lee的印出来 : 以下是我初步的程式： : open FILE, "c:aa.txt"; : #print <FILE>;→这是测试是否有成功读取档案 : chomp(my$a=<>); : .. : .. : print""; : close FILE; : 中间我卡了快一个礼拜整个没头绪，骆驼书第14章有练习过，但还是不知道怎下手 : (一直很想用find,但是perl似乎没这指令.....) 自己回文 my %last_name=qw{ lee David wang steve lee eric wu hunry }; chomp(my $name=<>); print"$name $last_name{$name}.\n "; 结果: 输入lee，印出David(没有印出eric..~"~) 输入wu，印出hunry。 虽然离目标还很遥远 因为我的档案极大，要自己key档是不可能的XD 感谢各位帮助，我还正在摸索中 -- -- ▂▂ ▂▂▂ ▂▄▅▅▄▆█ ＿█◣ ◢ (●) ◣／＼＼ 丫 │◥ ￣◤ --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 140.116.215.116 ※ 编辑: sqrt1089 来自: 140.116.215.116 (09/28 15:52)