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

发表于 更新于 分类于

举个栗子

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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中的前四项元素）：

    1
    2
    3
    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中一个或多个“-”号为一个空格，且“-”号不位于开头或末尾）：

    1
    $key =~ s/(?<=.)-+(?=.)/ /g;

  • 判断字符串中是否含有某个字符或字符串（以下表示判断数组item中第一个元素中是否含有“# ”这个字符串）：

    1
    2
    3
    if (@item[0] =~ /# /){
        ***;
    }

  • 在perl中执行shell命令（以下表示将shell命令下的echo “hello”结果存储到标量items中；”ls”等命令的结果需要用到数组来存储）：

    1
    $items = `echo "hello"`;

  • 遍历数组时，使用默认变量代替当前遍历值（以下表示使用“$_”代替了每次遍历的数组items中的元素）：

    1
    2
    3
    foreach (@items){
        $_ .= "\n";
    }

  • 根据特定字符分隔字符串（以下表示将标量string以空格分隔，分隔的结果存储在数组first_line中，此时first_line的内容为(“a”, “b”, “c”, “d”)，再将first_line的最后一个元素赋值给数组item的第一个元素）：

    1
    2
    3
    my $string = "a b c d";
    my @first_line = split(" ", $string);
    @item[0] = @first_line[-1];