小编Nav*_*pak的帖子

我正在尝试获取主机的所有IP地址.

这是nslookup输出:

>>nslookup site.com

Server:         8.8.8.8
Address:        8.8.8.8#53

Non-authoritative answer:
Name:   site.com
Address: 1.1.1.1
Name:   site.com
Address: 2.2.2.2

我试过这段代码:

use Socket;
use Data::Dumper;
my $name = "site.com";
@addresses = gethostbyname($name)   or die "Can't resolve $name: $!\n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
print Dumper(\@addresses);

这是输出:

['1.1.1.1'];

无论如何得到两个1.1.1.1和2.2.2.2？

我(/usr/local/perl528)使用以下选项在自定义路径中从Source编译了Perl 5.28 ：

config_args='-des -Dprefix=/usr/local/perl528'

然后在perl528中编译B：CC并hello.pl使用以下代码创建一个：

#!/usr/local/perl528/bin/perl

use Socket;

print "Hello world";

下一步：

/usr/local/perl528/perlcc -o hello hello.pl

在执行./hello之后，我得到以下代码：

panic: corrupt saved stack index -1414812757 at (eval 12) line 26.
panic: corrupt saved stack index -1414812757 at (eval 12) line 26.
panic: corrupt saved stack index -1414812757 at (eval 12) line 26.
panic: corrupt saved stack index -1414812757 at (eval 12) line 26.
panic: corrupt saved stack index -1414812757 at (eval 12) line 26.
panic: corrupt saved …