看板 Perl 關於我們 聯絡資訊
while(<LINE>){ s/(\w+)/$w{lc($1)}++/eg; END{print $w{$_}," $_\n" foreach (sort keys %w);} } 其中 為什麼使用END呢? 發現如果將END拿掉的話,則會跑很多次出來 而若有END的話 ,則是只會出現一次結果? 先謝過各位囉^^ -- -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.116.96.202