Perl-endnetent
提供:Dev Guides
Perl endnetent関数
説明
この関数は、getnetentを使用してネットワークリストからエントリを読み取る必要がなくなったことをシステムに伝えます。
構文
以下は、この関数の簡単な構文です-
endnetent
戻り値
この関数は値を返しません。
例
以下は、その基本的な使用法を示すコード例です-
#!/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";
}
setnetent(1); # Rewind the database;
while ( ($name, $aliases, $addrtype, $net) = getnetent() ) {
print "Name = $name\n";
print "Aliases = $aliases\n";
print "Addrtype = $addrtype\n";
print "Net = $net\n";
}
endnetent(); # Closes the database;
上記のコードが実行されると、次の結果が生成されます-
Name = default
Aliases =
Addrtype = 2
Net = 0
Name = loopback
Aliases =
Addrtype = 2
Net = 2130706432
Name = link-local
Aliases =
Addrtype = 2
Net = 2851995648
Name = default
Aliases =
Addrtype = 2
Net = 0
Name = loopback
Aliases =
Addrtype = 2
Net = 2130706432
Name = link-local
Aliases =
Addrtype = 2
Net = 2851995648