Reading haproxy statistics via Perl

From: Maria <vmwaretest09#gmail.com>
Date: Thu, 19 Feb 2009 11:08:22 +0100

Hi once again,

Sorry for my previous weired posting. Now I formulated my code cleaner. My question was:

I am trying to read the information logged from haproxy (e.g. show info, show stat) from the socket using perl.
My intention is read out the information in a similar manner as the command so

 with a perl script in order to get a similar result when using the socat command. The problem is that I am not able to read something. I see also a similar example in the sources in the contrib folder, but somehow I don't get the point how to read and print this information.

This is my perl program.

Thanks for any help

############### begin ###################

use strict;
use IO::Socket;
use lib "/usr/local/nagios/libexec";

my $sock = new IO::Socket::UNIX (

     LocalAddr => "/var/run/haproxy.socket",
     Type => SOCK_STREAM,
     Timeout => 1)

or die 'error on connectin.';

next if !$sock;

print $sock "show info\n";
# here i would like to read out the information from the socket while(<$sock>){

        chomp;
        print;

}
$sock->close;

############### end #########################
Received on 2009/02/19 11:08