Perl getservbyname()函數

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

語法

getservbyname NAME, 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) = getservbyname("ftp", "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