Perl getservbyport()函數

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

語法

getservbyport PORT, PROTO

定義和用法

轉換服務號端口的協議PROTO，返回標量上下文的名稱和相關信息在列表環境中的服務名稱：

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

此調用返回基礎/etc/services文件的這些值。

返回值

• 在標量上下文上的錯誤返回undef，否則服務號碼

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

例子

試一試以下實例:

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

($name, $aliases, $port_number, 
     $protocol_name) = getservbyport(21, "tcp");

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

It will produce following result

Name = ftp
Aliases =
Port Number = 21
Protocol Name = tcp