[root@smokeping ping_analisis]# ping -c3 8.8.8.8; ping -c3 8.8.4.4
PING 8.8.8.8 (8.8.8.8) 56(84) bytes of data.
64 bytes from 8.8.8.8: icmp_seq=1 ttl=117 time=5.92 ms
64 bytes from 8.8.8.8: icmp_seq=2 ttl=117 time=6.76 ms
64 bytes from 8.8.8.8: icmp_seq=3 ttl=117 time=5.87 ms

--- 8.8.8.8 ping statistics ---
3 packets transmitted, 3 received, 0% packet loss, time 2003ms
rtt min/avg/max/mdev = 5.873/6.184/6.760/0.417 ms
PING 8.8.4.4 (8.8.4.4) 56(84) bytes of data.
64 bytes from 8.8.4.4: icmp_seq=1 ttl=116 time=8.56 ms
64 bytes from 8.8.4.4: icmp_seq=2 ttl=116 time=8.46 ms
64 bytes from 8.8.4.4: icmp_seq=3 ttl=116 time=8.71 ms

--- 8.8.4.4 ping statistics ---
3 packets transmitted, 3 received, 0% packet loss, time 2006ms
rtt min/avg/max/mdev = 8.460/8.578/8.715/0.129 ms

##</code><code>##

#!/usr/bin/perl

        @hosts=("8.8.8.8","8.8.4.4");

        foreach(@hosts){
                $command .= "ping -c 3 $_; ";
        }

        my @lines = qx/$command/;

        foreach(@lines){
                if(/PING/){

                        foreach $host(@hosts){
                                if(/PING ($host).*/){

                                        $host_key = $host;

                                }
                        }

                }elsif(/rtt min\/avg\/max\/mdev = (.*)\/(.*)\/(.*)\/(.*) .*/){
                        print "$host_key min:$1 avg:$2 max:$3 mdev:$4\n";
                }

        }