Re: [問題] 關於字串
※ 引述《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
推
09/28 14:36, , 1F
09/28 14:36, 1F
→
09/28 15:00, , 2F
09/28 15:00, 2F
推
09/28 15:14, , 3F
09/28 15:14, 3F
→
09/28 15:15, , 4F
09/28 15:15, 4F
→
09/28 15:15, , 5F
09/28 15:15, 5F
→
09/28 15:34, , 6F
09/28 15:34, 6F
→
09/28 15:40, , 7F
09/28 15:40, 7F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
