perl 中执行 dig的输出问题

whn3375

$cmd = "/usr/bin/dig $fqdn | awk '/ANSWER SECTION/{getline;print}'|awk '{print $5}'";
$ip = system($cmd);
print "$ip\n";

得到的结果，显示在屏幕上的结果为

222.222.22.22
0
222.222.22.22
0

如何让屏幕上显示的ip地址，正常的赋给变量$ip 呢？

flw

$ip = system($cmd);
改成
$ip = `$cmd`;

whn3375

太谢谢斑竹啦！

txh_zyy

观摩学习

zuerrong

$cmd = "/usr/bin/dig $fqdn | awk '/ANSWER SECTION/{getline;print}'|awk '{print $5}'";
$ip = system( ...
whn3375 发表于 2011-04-15 12:42

    这个dig用的真差~~~

1. 使用Net::DNS::Resolver
2. 或者resolveip:

$ resolveip -s www.126.com
121.14.228.43

3. 非dig的话，可以+short:

1. dig +short www.126.com

复制代码