使用perl中的系统命令来发送DNS服务器IP地址

Question

我正在尝试从命令提示符处获取我的DNS服务器IP地址，但我无法获取它。

my @ip1 = `ipconfig/all`;
open(my $fh, '>file.txt') or die "Couldn't open file file.txt, $!";
print $fh @ip1;
close($fh); 

my $row;
foreach (@ip1)
{

    if($_ =~ m/DNS Servers/)
     {  
        # print "$_";    
        $row = split(/:/,$_,1);
        print "$row\n";

     }

}

输出：
1
1

Answer 1

首先ipconfiq是一个字符串文字。

您想要执行命令并将输出存储在数组中。因此，您应该了解system，Backtick / qx和exec

之间的区别

system将执行该命令并显示结果。结果不能存储到任何变量中。

backtick或qx将执行命令，其结果可以存储到变量中。

所以你的脚本应该是

my @ip1 = `ipconfig`;
print "ip information is @ip1";