使用perl脚本调用socat监控haproxy状态
举个栗子my @items;my @item;my $stat_file = "/×××××/haproxy_stats.sock";my $items_number;sub get_haproxy_stat{ # 获取状态类型的总数 $items_number = `echo "show stat" | /usr/bin/socat $stat_file stdio|awk -F '
