看板 [ Perl ]
討論串[問題] 請教程式內容?
共 3 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#3
Re: [問題] 請教程式內容?
推噓1(1推 0噓 3→)留言4則，0人參與, 最新作者Yaowei (成就你的大事)時間18年前 (2007/04/02 23:01), 編輯資訊
0
0
0
內容預覽:
全部的程式碼如下：. #!/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
(還有3個字)
#2
Re: [問題] 請教程式內容?
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者reizarc (零式札克)時間18年前 (2007/04/02 22:48), 編輯資訊
0
0
2
內容預覽:
雖然我不知道它為什麼要放在那裡 .... 但是. BEGIN{ blahblah... }. 這個 block 會在程式開始時先執行. END{ blahblah }. 同樣的 結束時執行. --. Welcome to my .... [ Blog in LiveSpace: http://rei
(還有48個字)
#1
[問題] 請教程式內容?
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者Yaowei (成就你的大事)時間18年前 (2007/04/02 22:30), 編輯資訊
0
0
0
內容預覽:
while(<LINE>){. s/(\w+)/$w{lc($1)}++/eg;. END{print $w{$_}," $_\n" foreach (sort keys %w);}. }. 其中 為什麼使用END呢?. 發現如果將END拿掉的話，則會跑很多次出來. 而若有END的話 ，則是只會出現
首頁
上一頁
1
下一頁
尾頁