五月2

[Perl] Port Scanner

這是課堂上練習的程式,可以掃瞄某主機哪些 Port 有開放。
利用 Perl::Socket 建立 socket 後 connent() 主機,如果回應 true 表示連線正確 (Port 有開啟)。
使用方法:
portscan.pl


四月14

用文言文寫 Perl

詳情請看這篇討論串
真是服了這位高人,讓 Perl 可以用文言文寫
目前這個 module 已經放上 CPAN,名稱為「Lingua::Sinica::PerlYuYan」
有興趣的可以試看看。
不過我想對現代人來說,英文應該是比文言文好懂吧!

三月14

[作業­2] 由檔案讀取成績並計算平均 - Perl

功能說明:
讀取成績檔內容並計算平均,最後寫入新檔。
成績資料檔:testdata.txt (檔名改為 testdata)
實作:

三月14

[作業­1] 串列與陣列練習 - Perl

題目:
1. 試著把串列 (24, 33, 65, 42, 58, 24, 87) 放入陣列中,並讓使用者輸入索引值 (0…6),然後印出陣列中相對應的值。
2. 把剛剛的陣列進行排序,並且印出排序後的結果。
3. 取出陣列中大於40的所有值。
4. 將所有陣列中的值除以 10 後印出。
實作: