Re: [問題] 請教程式內容?
全部的程式碼如下：
#!/usr/bin/perl-w
$file="test.txt";
open(LINE,$file) or die "error can't open file";
while(<LINE>){
s/(\w+)/$w{lc($1)}++/eg; END{print $w{$_}," $_\n" foreach (sort keys %w)}
}
close(LINE);
我沒看到任何一個BEGIN @@
所以才會想問為何使用END 及其用意在哪呢?
※ 引述《reizarc (零式札克)》之銘言：
: ※ 引述《Yaowei (成就你的大事)》之銘言：
: : while(<LINE>){
: : s/(\w+)/$w{lc($1)}++/eg;
: : END{print $w{$_}," $_\n" foreach (sort keys %w);}
: : }
: : 其中 為什麼使用END呢?
: : 發現如果將END拿掉的話，則會跑很多次出來
: : 而若有END的話 ，則是只會出現一次結果?
: : 先謝過各位囉^^
: 雖然我不知道它為什麼要放在那裡 ...
: 但是
: BEGIN{ blahblah... }
: 這個 block 會在程式開始時先執行
: END{ blahblah }
: 同樣的 結束時執行
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.96.202
推
04/02 23:09, , 1F
04/02 23:09, 1F
→
04/02 23:10, , 2F
04/02 23:10, 2F
→
04/02 23:11, , 3F
04/02 23:11, 3F
→
04/02 23:14, , 4F
04/02 23:14, 4F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
