Re: [問題] 關於字串

[dryman (dryman)]

※ 引述《petertc (PTC)》之銘言：
: ※ 引述《sqrt1089 (李崩子)》之銘言：
: : 假設我讀入一個檔案
: : lee  David
: : wang steve
: : lee  eric
: : wu   hunry
: : ..   ..
: : ..   ..
: : ..   ..
: : 是個兩行的檔案，一行是姓，一行是名。
: : 想要結果
: : 輸入：lee
: : 會印出：
: : David
: : eric
概念很簡單：弄一個hash of arrays
要把hash value當成array，只要用@{$my_hash{key}}就可以了
所以strs的第一個值就當key，第二個值推入array中

#!/usr/bin/perl
while(<>){
    @strs=split;
    push @{ $name_hash{$strs[0]}}, $strs[1];
}
print $_ . "\n" for @{ $name_hash{'lee'}};

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.112.46.30
推 sqrt1089:那我執行完關閉再開啟，我如果輸入wang,他會印出steve
→ dryman:執行完程式都從記憶體中消失了 ~"~
推 sqrt1089:囧!因為我不知道lee的，我想要的是隨意輸入，lee只是個
→ sqrt1089:例子
→ sqrt1089:           只要("知道"是打錯的)
→ kornelius:那就自己再改一下就好啦
→ dryman:改成用open的，然後互動輸入來找是否有在hash裡面