Help for this page

Select Code to Download

Select or download this

for my $row (@$records){
    if (my ($ip) = $row->{machineIP} =~ /(\d+\.\d+\.\d+\.\d+)/){
...
    }
    push @ip, $row->{machineIP};
}