用Perl语言进行Socket编程之二

时间： 2021-07-31 作者：daque

connect(socket,name) 试图与仍旧挪用了accept()因变量并等候创造贯穿的其余一个过程举行对话. 即使胜利,则归来真;要不归来假.name该当是对应socket句柄精确典型的收缩地方典型： connect(sock,$address) || die "can’t connect with remote host: $!"; gethostbyaddr(address,type) 将收缩情势的搜集地方变换为更容易人观赏领会的名字与地方. 当只领会长机的ip地方时,不妨运用本因变量查问长机名及其余搜集消息.它归来一个列表，包括如次消息： ($name, $alias, $addrtype, $length, $address) 　　个中, $name是与ip地方对应的长机名, $alias是对应$name的其余别号， $addrtype是搜集地方的典型, $length是地方的长度，而$address则是收缩情势ip地方的列表. 典型： $packedaddress = pack("c4", $ipaddr); ($name, $alias, $addrtype, $length, $address) =gethostbyaddr($packedaddress,2); gethostbyname(name) 与上头的gethostbyaddr()因变量一致,然而在这边长机名是动作参数.归来的消息方法实足沟通. 典型： $host = "stuff.com"; ($name, $alias, $addrtype, $length, $address) =gethostbyname($host); @ip = unpack("c4",$address[0]); $hostip = join(".", @ip);

用Perl语言进行Socket编程之二

相关推荐

推荐下载

热门阅览

最新排行