之前我们已经看过了IP和主机名之间的转换，现在我们来看以下协议，端口号，服务名之间的转换方法。

首先我们看几个函数的功能及使用：

  2. $number = getprotobyname($protocol)
  3. ($name,$aliases,$number) = getprotobyname($protocol)

getprotobyname() 函数将指定的协议转换为对应的协议号，如果协议未知，则返回undef或空的列表

  2. $name = getprotobynumber($protocol_number)
  3. ($name,$aliases,$number) = getprotobyname($protocol_number)

getprotobynumber() 函数将指定的协议号转换为对应的字符串类型的协议名称，如果协议名称未知，则返回undef或者是一个空的列表

  2. $port = getservbyname($service,$protocol)
  3. ($name,$aliases,$port,$protocol) = getservbyname($service,$protocol)

getservbyname()函数将指定的协议和服务名转换为对应的端口号。这个函数在使用的时候需要指定两个参数，一个协议名称，另外一个就是服务名，应为同一个服务如果通过不同的协议传输，对应的端口号是不同的。如果服务名未知，则返回一个空的列表。

  2. $name = getservbyport($port,$protocol)
  3. ($name,$aliases,$port,$protocol) = getservbyport($port,$protocol)

函数getservbyport() 刚好是函数getservbyname()的逆向操作，将对应的端口号和协议名转换为对应的服务名。

下面我们通过一个程序来了解以下这几个函数的使用：

  2. #! /usr/bin/perl
  3. use strict;
  4. use warnings;
  5. use Socket;

  7. use constant DEFAULT_ADDR => '127.0.0.1';
  8. my $packed_addr = gethostbyname(shift || DEFAULT_ADDR) or die "can't look up host:$!";
  9. my $protocol = getprotobyname('tcp');
  10. my $port = getservbyname('daytime','tcp') or die "can't look up port:$!";
  11. my $destination = sockaddr_in($port,$packed_addr);
  12. socket(SOCK,PF_INET,SOCK_STREAM,$protocol) or die "can't make socket:$!";
  13. connect(SOCK,$destination) or die "can't connect:$!";
  14. print <SOCKET>;