Re: If conditional checks

[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.

[kitkit201]

Thank you for the comment. One more thing about this is the host string. I see the host scalar to only work on the hostname if it only with db, but no other characters behind it, like db4323, how would you include it to have any other characters like periods and numbers, behind it? some example hostnames would be dbwindows822.tp.com db726.tp.com