作者Yaowei (成就你的大事)
看板perl
标题[问题] 请教程式内容?
时间Mon Apr 2 22:29:25 2007
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