Hello All, I have a file that has the following array format from a nagios .cfg file. 

define service {
       host_name                       kr-cont00
       service_description             PING
       check_command                   check_host
       max_check_attempts              1
       check_interval                  1
       retry_interval                  2
       check_period                    24x7
       check_freshness                 1
       contact_groups                  admins
       notification_interval           60
       notification_period             24x7
       notifications_enabled           1
       register                        1
 }

define service {
       host_name                       KT
       service_description             Check SSH
       check_command                   check_ssh
       max_check_attempts              1
       check_interval                  1
       retry_interval                  2
       check_period                    24x7
       check_freshness                 1
       contact_groups                  admins
       notification_interval           60
       notification_period             24x7
       notifications_enabled           1
       register                        1
 }
 
 define service {
      host_name                       KT
      service_description             Controller Load
      check_command                   check_nrpe!check_load
      max_check_attempts              1
      check_interval                  1
      retry_interval                  2
      check_period                    24x7
      check_freshness                 1
      contact_groups                  admins
      notification_interval           60
      notification_period             24x7
      notifications_enabled           1
      register                        1
 }

[download]

I have a lot of this files that I need to modify the contact_groups for certain services (for example the define service for PING should be skipped). Below is the code below: 

#!/usr/bin/perl


$input_file="kt.txt";


open FT, "$input_file";

@input = <FT>;

close FT;

$check = "check_nrpe";
$con = "contact_groups";


foreach $list (@input) {
        if ($list =~ /PING/) {
        next;
        }
                if ($list =~ /$check/ && $list =~ /$con/) {
                        print "$list\n";
                }
}

[download]

I get no output when I run the script. but if I use the || instead of &&, the output I get contains contact_group output from PING which does not require modification. Thank you for your envisaged response.

In reply to && comparison not working by catalyst_list

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.