perl - 使用给定的错误

Question

我几乎完成了一个 nagios 插件，我正在使用这个 guide. 虽然我遇到了错误，但我不知道为什么。

#!/bin/perl
use strict;
use warnings;

my $warn = 20;
my $crit = 50;
my $percent_down = 10;
my $percent_up = 90;
my $err = "error";

given ($percent_down) {
        when ($percent_down lt $warn) { print "OK - $percent_up% UP"; exit 0;}
        when ($percent_down ge $warn && lt $crit ) { print "WARNING - $percent_down% DOWN"; exit (1);}
        when ($percent_down ge $crit) { print "CRITICAL - $percent_down% DOWN"; exit (2);}
        default { print "UNKNOWN - $err "; exit (3);}
}

我在") {" 处出现语法错误，从given ($percent_down) { 开始，然后在之后的每一行都出现在";}"。

Answer 1

要使用given，您需要

no if $] >= 5.018, warnings => "experimental::smartmatch";
use feature qw( switch );

---

还有，

$percent_down ge $warn && lt $crit

应该是

$percent_down ge $warn && $percent_down lt $crit

---

现在说说你没有问的问题。

lt 和 ge 用于比较字符串。使用< 和>= 比较数字。 （例如，9 ge 10 为真。）

---

最后，你不应该使用given-when。这是一项实验性功能， 将来会以向后不兼容的方式删除或更改。

---

一旦你解决了上述问题并删除了多余的检查，你就会得到以下结果：

if ($percent_down < $warn) {
   print "OK - $percent_up% UP";
   exit(0);
}

if ($percent_down < $crit) {
   print "WARNING - $percent_down% DOWN";
   exit(1);
}

print "CRITICAL - $percent_down% DOWN";
exit(2);

Answer 2

出于多种原因，您最好避免使用given 和when。即使您正确启用了该功能，您也会收到另一条警告消息，告诉您该功能是实验性的，并且在任何情况下您都没有使用该功能有用的设施——主要是智能匹配，这也是实验性的

最后的when 块永远无法进入，因为前面的条件涵盖了所有可能性

我建议您使用像这样的ifelsifelse 序列来编写它。我相信这种方式更具可读性

#!/bin/perl

use strict;
use warnings 'all';

my $warn = 20;
my $crit = 50;

my $percent_down = 10;
my $percent_up   = 100 - $percent_down;

if ( $percent_down < $warn ) {
    print "OK - $percent_up% UP";
    exit 0;
}
elsif ( $percent_down < $crit ) {
    print "WARNING - $percent_down% DOWN";
    exit 1;
}
else {
    print "CRITICAL - $percent_down% DOWN";
    exit 2;
}

Answer 3

感谢cmets，我知道了。

if ($percent_down lt $warn) {
        print "OK - $percent_up% UP";
        exit 0;
        } elsif ($percent_down ge $warn && $percent_down lt $crit ) {
        print "WARNING - $percent_down% DOWN";
        exit 1;
        } elsif ($percent_down ge $crit) {
        print "CRITICAL - $percent_down% DOWN";
        exit 2;
        } else {
        print "UNKNOWN - $err ";
        exit 3;
        }