作者dryman (dryman)
看板Perl
標題Re: [問題] 關於字串
時間Mon Sep 27 23:52:28 2010
※ 引述《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
1F：推 sqrt1089:那我執行完關閉再開啟，我如果輸入wang,他會印出steve 09/28 14:36
2F：→ dryman:執行完程式都從記憶體中消失了 ~"~ 09/28 15:00
3F：推 sqrt1089:囧!因為我不知道lee的，我想要的是隨意輸入，lee只是個 09/28 15:14
4F：→ sqrt1089:例子 09/28 15:15
5F：→ sqrt1089: 只要("知道"是打錯的) 09/28 15:15
6F：→ kornelius:那就自己再改一下就好啦 09/28 15:34
7F：→ dryman:改成用open的，然後互動輸入來找是否有在hash裡面 09/28 15:40