使用perl脚本调用socat监控haproxy状态

2017-03-06 18:41:23来源:CSDN作者:tpiperatgod人点击

举个栗子

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 ',' 'NR==1 { print NF }'`;  # 将每个类型的状态参数分别存储到数组变量items中  for (my $i = 1; $i < $items_number; $i++){    $_ = `echo "show stat" | /usr/bin/socat $stat_file stdio|awk -F ',' '!/^/$/ { print /$$i }'`;    $items[$i-1] = $_;  }  # 遍历数组items,将其中的参数项处理并格式化打印  foreach (@items){    @item = split('/n', $_);    foreach (@item){      $_ =~ s/^$/-/g;      if (@item[0] =~ /# /){        my @first_line = split(" ", @item[0]);        @item[0] = @first_line[-1];      }    }    my $state_format = "  %-20s %-40s %-40s %-40s/n";    printf($state_format, @item[0], @item[1], @item[2], @item[3]);  }}

perl的一些实用写法

  • 格式化打印(以下表示格式化打印数组item中的前四项元素):
my @item = ("a", "b", "c", "d");my $state_format = "  %-20s %-40s %-40s %-40s/n";printf($state_format, @item[0], @item[1], @item[2], @item[3]);
  • 替换字符串中的某个字符(以下表示替换标量key中一个或多个“-”号为一个空格,且“-”号不位于开头或末尾):
$key =~ s/(?<=.)-+(?=.)/ /g;
  • 判断字符串中是否含有某个字符或字符串(以下表示判断数组item中第一个元素中是否含有“# ”这个字符串):
if (@item[0] =~ /# /){    ***;}
  • 在perl中执行shell命令(以下表示将shell命令下的echo “hello”结果存储到标量items中;”ls”等命令的结果需要用到数组来存储):
$items = `echo "hello"`;
  • 遍历数组时,使用默认变量代替当前遍历值(以下表示使用“$_”代替了每次遍历的数组items中的元素):
foreach (@items){    $_ .= "/n";}
  • 根据特定字符分隔字符串(以下表示将标量string以空格分隔,分隔的结果存储在数组first_line中,此时first_line的内容为(“a”, “b”, “c”, “d”),再将first_line的最后一个元素赋值给数组item的第一个元素):
my $string = "a b c d";my @first_line = split(" ", $string);@item[0] = @first_line[-1];

备份地址

  • 使用perl脚本调用socat监控haproxy状态

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台