Perl利用WMIC 获取本机所有IP地址

#!/usr/bin/perl -w
use strict;
use DBI;
use Data::Dumper;

my $dbh = DBI->connect('dbi:WMI:');
my $sth = $dbh->prepare("select * from Win32_NetworkAdapterConfiguration where IPEnabled = TRUE");
$sth->execute();
my %hash;

my $i=1;
while ( my $row = $sth->fetchrow ) {
    my $commandline = $row->{IPAddress};
    foreach (@{$commandline}){
       if ($_ =~ /\d+\.\d+.\d+.\d+/){
          $hash{$i} = $_;
          $i++;
       }
    }
}

print Dumper \%hash;