Re: If conditional checks

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!";
}
[download]

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.

Comment on Re: If conditional checks Select or Download Code

Replies are listed 'Best First'.
Re^2: If conditional checks by kitkit201 (Initiate) on Dec 09, 2012 at 05:14 UTC
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	[reply]
Re^3: If conditional checks by tobyink (Canon) on Dec 09, 2012 at 11:06 UTC
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. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply]
Re^3: If conditional checks by Kenosis (Priest) on Dec 09, 2012 at 05:45 UTC
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!"; } ...` [download] `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 `grep`s 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.	[reply] [d/l] [select]
Re^4: If conditional checks by kitkit201 (Initiate) on Dec 12, 2012 at 20:13 UTC
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	[reply]
Re^5: If conditional checks by Kenosis (Priest) on Dec 12, 2012 at 21:46 UTC
Re^6: If conditional checks by kitkit201 (Initiate) on Dec 13, 2012 at 00:16 UTC
Some notes below your chosen depth have not been shown here