[関数の使い方･書式]

○ ＝ getservbyname ☆,★
● ＝ getservbyport □,★

☆：	(スカラー)	サービス名。
★：	(スカラー)	プロトコル名。
□：	(スカラー)	ポート番号。
○：	(スカラー)	ポート番号。
	(リスト)	サービス名、エイリアス、ポート番号、プロトコル名。
●：	(スカラー)	サービス名。
	(リスト)	サービス名、エイリアス、ポート番号、プロトコル名。

---

[関数の機能]

サービス名☆またはポート番号□に対応するサービス(ポート)情報を返します。

---

[書式の例]

１．($name, $alias, $port, $protocol) = getservbyname($portname, $proto);

サービス名 $portname 、プロトコル名 $port に対応したサービス情報を取得します。

２．($name, $alias, $port, $protocol) = getservbyport($portnum, $proto);

ポート番号 $portnum 、プロトコル名 $port に対応したポート情報を取得します。

# ポート番号からポート情報を取得する
$port = getservbyname('time', 'tcp');
die "ポート番号なし\n" unless $port;

# サービス名からサービス情報を取得する
$service = setservbyport(21, 'tcp');
die "サービス名なし\n" unless $name;