perl 协议,端口号,服务名之间的转换方法
perl 协议,端口号,服务名之间的转换方法
2011年12月04日 ⁄ Perl进阶 ⁄ 暂无评论 ⁄ 被围观 352 次+
之前我们已经看过了IP和主机名之间的转换,现在我们来看以下协议,端口号,服务名之间的转换方法。
首先我们看几个函数的功能及使用:
-
$number = getprotobyname($protocol)
-
($name,$aliases,$number) = getprotobyname($protocol)
getprotobyname() 函数将指定的协议转换为对应的协议号,如果协议未知,则返回undef或空的列表
-
$name = getprotobynumber($protocol_number)
-
($name,$aliases,$number) = getprotobyname($protocol_number)
getprotobynumber() 函数将指定的协议号转换为对应的字符串类型的协议名称,如果协议名称未知,则返回undef或者是一个空的列表
-
$port = getservbyname($service,$protocol)
-
($name,$aliases,$port,$protocol) = getservbyname($service,$protocol)
getservbyname()函数将指定的协议和服务名转换为对应的端口号。这个函数在使用的时候需要指定两个参数,一个协议名称,另外一个就是服务名,应为同一个服务如果通过不同的协议传输,对应的端口号是不同的。如果服务名未知,则返回一个空的列表。
-
$name = getservbyport($port,$protocol)
-
($name,$aliases,$port,$protocol) = getservbyport($port,$protocol)
函数getservbyport() 刚好是函数getservbyname()的逆向操作,将对应的端口号和协议名转换为对应的服务名。
下面我们通过一个程序来了解以下这几个函数的使用:
-
#! /usr/bin/perl
-
use strict;
-
use warnings;
-
use Socket;
-
use constant DEFAULT_ADDR => '127.0.0.1';
-
my $packed_addr = gethostbyname(shift || DEFAULT_ADDR) or die "can't look up host:$!";
-
my $protocol = getprotobyname('tcp');
-
my $port = getservbyname('daytime','tcp') or die "can't look up port:$!";
-
my $destination = sockaddr_in($port,$packed_addr);
-
socket(SOCK,PF_INET,SOCK_STREAM,$protocol) or die "can't make socket:$!";
-
connect(SOCK,$destination) or die "can't connect:$!";
-
print <SOCKET>;