Re: how do I test against each element in an array


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

Re: how do I test against each element in an array

by kilinrax (Deacon)

on Nov 07, 2000 at 22:45 UTC ( [id://40383]=note: print w/replies, xml )

Need Help??

in reply to how do I test against each element in an array

This works on my system, (linux, so you'll need to tweak the locations of things), though it's a bit of a kludge.

#!/usr/bin/perl -w

open NAMES, "names.txt" or die "Cannot open names file";

while (<NAMES>) {
    chomp;
    my $ping = `ping -c 1 $_`;

    if ($ping =~ /\((\d+\.\d+\.\d+\.\d+)\)/) {
    my $ip = $1;
    open TESTED, '>>tested.txt';
    print TESTED "$ip\n";
    close TESTED;
    } else {
    warn "Cannot deciper result of \"ping $_\"";
    }
}

close NAMES;
exit 0;
[download]

Originally posted as a Categorized Answer.