五月2
[Perl] Port Scanner
這是課堂上練習的程式,可以掃瞄某主機哪些 Port 有開放。
利用 Perl::Socket 建立 socket 後 connent() 主機,如果回應 true 表示連線正確 (Port 有開啟)。
使用方法:
portscan.pl
這是課堂上練習的程式,可以掃瞄某主機哪些 Port 有開放。
利用 Perl::Socket 建立 socket 後 connent() 主機,如果回應 true 表示連線正確 (Port 有開啟)。
使用方法:
portscan.pl
詳情請看這篇討論串
真是服了這位高人,讓 Perl 可以用文言文寫
目前這個 module 已經放上 CPAN,名稱為「Lingua::Sinica::PerlYuYan」
有興趣的可以試看看。
不過我想對現代人來說,英文應該是比文言文好懂吧!
題目:
1. 試著把串列 (24, 33, 65, 42, 58, 24, 87) 放入陣列中,並讓使用者輸入索引值 (0…6),然後印出陣列中相對應的值。
2. 把剛剛的陣列進行排序,並且印出排序後的結果。
3. 取出陣列中大於40的所有值。
4. 將所有陣列中的值除以 10 後印出。
實作:
近期留言