Re: [問題] 關於字串
※ 引述《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)
推
09/28 16:13, , 1F
09/28 16:13, 1F
討論串 (同標題文章)