Perl getservent()函數

perl getservent()函數，getservent()函數學習例子，getservent()函數實例代碼，getservent()函數教學等

語法

getservent

定義和用法

獲取下一個項目從列表中的服務條目，返回：

($name, $aliases, $port_number, $protocol_name)

調用itrate通過處理/etc/services文件。

返回值

• 在標量上下文錯誤返回undef，否則服務名稱。

• 在列表上下文中的空列表上的錯誤，否則服務記錄 (name, aliases, port number, protocol name).

實例

試試以下例子:

#!/usr/bin/perl
#by www.gitbook.net

while(($name, $aliases, $port_number, 
     $protocol_name) = getservent()){

   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Port Number = $port_number\n";
   print "Protocol Name = $protocol_name\n";

}