Perl 的 gethostbyaddr 使用方法介绍

概述Perl 的 gethostbyaddr 使用方法介绍

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

# The Syntax is (name,altnames,addrtype,len,addrs) = # gethostbyaddr (inaddr,inaddrtype); #!/usr/local/bin/perl $machine ="123.1.1.1"; @bytes = split (/\./,$machine); $packaddr = pack ("C4",@bytes); if (!(($name,$altnames,$addrtype,$len,@addrList) = gethostbyaddr ($packaddr,2))) {     dIE ("Address $machine not found.\n"); } print ("Principal name: $name\n"); if ($altnames ne "") {     print ("Alternative names:\n");     @altList = split (/\s+/,$altnames);     for ($i = 0; $i < @altList; $i++) {         print ("\t$altList[$i]\n");     } } 

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的Perl 的 gethostbyaddr 使用方法介绍全部内容，希望文章能够帮你解决Perl 的 gethostbyaddr 使用方法介绍所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。