If conditional checks

[kitkit201]

I want to do some conditional checks with respect to hostname and the following status history hash as shown below.. $host is the input variable . I want the IF condition to either check if the host is a red-type-alert, or and orange-type-alert with the first two status_history to be 1,1 or any other alert with status_history be 1,1,1 Here's what I have now..

@redAlert =  ( "db" );
@orangeAlert = ("c", "sm" );
        'status_history' => {
                                                'status' => [
                                                              1,
                                                              1,
                                                              1,
                                                              1,
                                                              1,
                                                              0,
                                                              0,
                                                              0,
                                                              0,
                                                              0
                                                            ],

 if ( ( $redAlert =~ $host ) || ( $orangeAlert =~ $host && $status_his
+tory =~ /1,1/) || ( $status_history =~ /1,1,1/ ) )

Would that work? Thanks kit

[Kenosis]

Here's one way to do it, using the same logic you've used:

use strict;
use warnings;
use List::Util qw/sum/;

my $host = 'db';

my @redAlert = ("db");
my @orangeAlert = ( "c", "sm" );
my %status =
  ( 'status_history' => { 'status' => [ 1, 1, 1, 1, 1, 0, 0, 0, 0, 0 ]
+ } );

my $statusHist01  = sum @{ $status{status_history}{status} }[ 0 .. 1 ]
+;
my $statusHistTot = sum @{ $status{status_history}{status} };

if (   $host ~~ @redAlert
    or ( $host ~~ @orangeAlert and $statusHist01 == 2 )
    or $statusHistTot == 3 )
{
    print "We've got a winner!";
}

The alerts are contained in arrays, so Perl's (v5.10+) smart operator (~~) can be used to check whether the value of $host is an element of either array. List::Util's sum is used to sum the relevant values from the status list.

[kitkit201]

Thanks Superdoc, but I dont have perl 5.10 installed on my production system. is there any other way to do it? without the smart operator

[tobyink]

If you don't have Perl 5.10, you could try Perl 5.12, or Perl 5.14, or Perl 5.16. Or wait 6 months and try Perl 5.18.

[Kenosis]

You can use grep instead of the smart match operator (~~):

...

if (
    grep /^$host$/, @redAlert
    or ( grep /^$host$/, @orangeAlert and $statusHist01 == 2 )
    or $statusHistTot == 3
  )
{
    print "We've got a winner!";
}

...

grep iterates through all array elements, and in scalar context (as in this case), it returns the number of times an expression is true. Each expression in the greps is a regex that requires an exact match between the value of $host and an array element (contained in the default scalar, $_) to be evaluated as true.