26. 網路程式設計

本章介紹 Perl 網路程式設計。

26.1 偵測主機存活

這一節我們要來寫一支簡單的網路程式,用來偵測您所管理的主機是否存活。

程式分成二部份:

  1. 偵測程式

  2. 觀看程式,以 CGI 程式來呈現。

首先是偵測程式,這支程式需用到 Net::Ping 這個模組。

先來看一下,系統中是否已安裝 Net::Ping? 檢查的方法如下:

#! /usr/bin/perl

use Net::Ping;


以上存成 ping.pl,chmod +x ping.pl,執行 ./ping.pl

若沒有出現任何錯誤訊息,則表示該模組已經有安裝了,否則,表示沒有安裝。

若出現錯誤訊息,則要先來裝一下 Net::Ping,安裝方法如下:

perl -MCPAN -e shell

cpan>install Net::Ping


請參考第 10 章模組的安裝說明。