[関数の使い方･書式]

● ＝ getnetent ☆
○ ＝ setnetent
● ＝ endnetent

☆：	STAYOPEN値。
○：	ネットワーク名　･･･	そのネットワークの名前。
	エイリアス　･･･	別名(CNAME)がある場合にセット。
	アドレスタイプ　･･･	通常はAF_INET を表す 2。
	ネットワークアドレス　･･･	192.168.0.0形式ではなく、マシンバイトの順のlong値。
●：	成功時は真、失敗時は偽を返す

---

[関数の機能]

● setnetent
networks データベースをオープンし、最初の位置に移動します。

● getnetent
現在の位置の情報を取り出して返し、次の位置に移動します。

● endnetent
networks データベースをクローズします。

setnetent(1);
while ( ($netname, $alias, $addrtype, $net) = getnetent ) {
	@addr = unpack('C4', pack("N", $net));
	$netaddr = "$addr[0].$addr[1].$addr[2].$addr[3]"
	print "ネット名 = $naename:\tネットワーク：$netaddr\n";
}
endnetent;