Perl-getnetent

Perl getnetent関数

説明

この関数は、/etc/networksファイルから次のエントリを取得し、-（$ name、$ aliases、$ addrtype、$ net）を返します

/etc/networksファイルが空の場合、何も返されず、呼び出しは失敗します。

構文

以下は、この関数の簡単な構文です-

getnetent

Copy

戻り値

この関数は、エラーの場合はundefを、そうでない場合はスカラーコンテキストのネットワークアドレス、エラーの場合は空のリストを返します。それ以外の場合、リストコンテキストのネットワークレコード（名前、エイリアス、アドレスタイプ、ネットワークアドレス）。

例

以下は、その基本的な使用法を示すコード例です-

#!/usr/bin/perl

use Socket;

while ( ($name, $aliases, $addrtype, $net)  = getnetent() ) {

   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Addrtype = $addrtype\n";
   print "Net = $net\n";
}

Copy

上記のコードが実行されると、次の結果が生成されます-

Name = default
Aliases =
Addrtype = 2
Net = 0
Name = loopback
Aliases =
Addrtype = 2
Net = 2130706432
Name = link-local
Aliases =
Addrtype = 2
Net = 2851995648

Copy