Re^6: If conditional checks

Hi Kenosis, So here is the code that I have that is not working with what you did, maybe it's just me being silly again..

#!/usr/local/bin/perl

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

my $host = 'db201.tp.mud';

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 (
        grep /^\Q$host\E/i, @redAlert
            or ( grep /^$host/i, @orangeAlert and $statusHist01 == 2 )
            or $statusHistTot == 3
          )
          {
                  print "We've got a winner!";
            }
[download]

Comment on Re^6: If conditional checks Download Code

Replies are listed 'Best First'.
Re^7: If conditional checks by Kenosis (Priest) on Dec 13, 2012 at 00:48 UTC
Ah! We just need to do something a little different with the partial match: #!/usr/local/bin/perl use strict; use warnings; use List::Util qw/sum/; my $host = 'db201.tp.mud'; 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 ( grep $host =~ /^$_/i, @redAlert or ( grep $host =~ /^$_/i, @orangeAlert and $statusHist01 == 2 ) or $statusHistTot == 3 ) { print "We've got a winner!"; } [download] The earlier `grep` worked because we were looking for an exact match. In this case, however, we want a partial match of the alert elements with the host. Also, since the alerts don't contain any 'special' characters, escaping isn't necessary.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^7: If conditional checks
by Kenosis (Priest) on Dec 13, 2012 at 00:48 UTC

Ah! We just need to do something a little different with the partial match:

#!/usr/local/bin/perl

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

my $host = 'db201.tp.mud';

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 (
    grep $host =~ /^$_/i, @redAlert
    or ( grep $host =~ /^$_/i, @orangeAlert and $statusHist01 == 2 )
    or $statusHistTot == 3
  )
{
    print "We've got a winner!";
}
[download]

The earlier grep worked because we were looking for an exact match. In this case, however, we want a partial match of the alert elements with the host. Also, since the alerts don't contain any 'special' characters, escaping isn't necessary.

[reply]
[d/l]
[select]