how can execute complicated linux command inside perl

Question

#!/usr/bin/perl
    @HOSTS = ("192.168.14.112", "192.168.14.90", "192.168.160.1", "192.168.160.100");
    my $COUNT = 4;
    my $date =`date`;
    for my $myHost (@HOSTS) {
        **$count = `ping  -c $COUNT $myHost | grep 'received' |awk -F',' '{ print $2 }' |awk '{ print $1 }'`;**
        if ( $count == 0 ){
            print "Host : $myHost is down (pint failed) at $date \n";
            }
        #else {
            #print "\n Host : $myHost is up at $date \n";
            #}
    }

I have set of ip, i want to check the status of given ip but i stuck in execute linux command inside the perl .

$count = ping -c $COUNT $myHost | grep 'received' |awk -F',' '{ print $2 }' |awk '{ print $1 }';

i'm not able to get proper output through given command

Format your code in a sane way. Tell us what doeesn't work excactly, with error messages etc. — Sven, May 26 '12 at 10:52

score 1 · Answer 1 · answered May 26 '12 at 11:11

1

Without really knowing what's not working, the first thing that I see when I put your code into a language sensitive editor is that the ' at the end of your line count = ... should be a `.

answered May 26 '12 at 11:11

user9517

115,471
20
215
297

how can execute complicated linux command inside perl

1 Answers1