Need help with writing a perl script - Page 3

eliraza6 · #1 (**permalink**) 12-01-2008

yeah actually but I need it to be taken from the treshold file and not hardcoded as a text in the script you wrote...

thanks radoulov you are simply a saver...!

radoulov · #2 (**permalink**) 12-02-2008

With some assumptions:

Code:

#! /usr/bin/env perl


use warnings;
use strict;

my ($Thresholds_f, $Queue) = 
  ('/users/tibprod/scripts/EMS_Queue_List_leaiprod.ls', 
   '/users/tibprod/scripts/ShowQueues_leaiprod.sh|');
my %Thresholds_h;

open TH, '<', $Thresholds_f  or die "$Thresholds_f: $!\n";
  
while (<TH>) {
  tr/"//d;
  my @Fields = split /\s{3,}/;
  $Thresholds_h{$Fields[0]} = [@Fields[1..4]];
  }

close TH;  


open QUEUE, $Queue or die "$Queue: $!\n";

while (<QUEUE>) {
  next unless /\w+\s+/;
  my $Flag = 0;
  my @Fields = split /\s+/;
  while (my($Key, $Ref) = each %Thresholds_h) {
    my @Values = @$Ref;
    if ($Fields[0] =~ /^$Key$/) {
      if ($Values[0] =~ s/^"*-//) {
        if ($Fields[1] < $Values[0]) {
        print "\n$Fields[0] ...".
        "\n\n\t--> task threshold exceeded: \n\n\tcurrent status: ",
        $Fields[1], "\n\tthreshold:      -", $Values[0], "\n\n";
        defined $Values[2] and print $Values[2], "\n\n";
        $Flag++
          }
        }
      elsif ($Fields[1] > $Values[0]) {
        printf "\n$Fields[0] ..." unless $Flag;
        print "\n\n\t--> task threshold exceeded: \n\n\tcurrent status: ",
        $Fields[1], "\n\tthreshold:      ", $Values[0], "\n\n";
        defined $Values[2] and print $Values[2], "\n\n";
        $Flag++
        }        
      if ($Values[1] =~ s/^"*-//) {
        if ($Fields[2] < $Values[1]) {
         printf "\n$Fields[0] ..." unless $Flag;
         print "\n\t--> listeners threshold exceeded: \n\n\tcurrent status: ",
        $Fields[2], "\n\tthreshold:      -", $Values[1], "\n\n";
        defined $Values[3] and print $Values[3], "\n\n";
        $Flag++
        }
      }
      elsif ($Fields[2] > $Values[1]) {
        printf "\n$Fields[0] ..." unless $Flag;
        print "\n\n\t--> listeners threshold exceeded: \n\n\tcurrent status: ",
        $Fields[2], "\n\tthreshold:      ", $Values[1], "\n\n",
        defined $Values[3] and print $Values[3], "\n\n";
      }      
    }
  }
}  
  
close QUEUE;

eliraza6 · #3 (**permalink**) 12-02-2008

well now i'm not getting any results as an output...

i think there is a problem with the split...

Code:

  my @Fields = split /\s{3,}/;

radoulov · #4 (**permalink**) 12-02-2008

What you have between "pl-it_prod.GW.Sync.reply.*" and "500"?
Space(s), tab(s)? How many?

radoulov · #5 (**permalink**) 12-02-2008

Try changing this:

Code:

my @Fields = split /\s{3,}/;

to:

Code:

my @Fields = split /"\s+"/;

eliraza6 · #6 (**permalink**) 12-02-2008

I have tabs...

now i'm getting only the second word in the text:

Code:

[root@leaiprod1 scripts]# ./temp7.pl

pl-it_prod.GW.Sync.reply.SCPROD.Upd_Soc_List ...
        --> listeners threshold exceeded:

        current status: 2
        threshold:      -10

for

radoulov · #7 (**permalink**) 12-02-2008

Quote:

Originally Posted by eliraza6

I have tabs...
[...]

Then it's easier:

Code:

my @Fields = split /\t/;

or (if more than one tab):

Code:

my @Fields = split /\t+/;

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
help for a perl script - writing to a data file	meghana	Shell Programming and Scripting	2	02-04-2008 05:05 PM
Perl Unix Script Writing	Dinkster	UNIX for Dummies Questions & Answers	1	02-01-2008 04:09 PM
Writing CGI scripting using perl	alma	Shell Programming and Scripting	7	04-23-2007 09:46 PM
help for writing a script	amodha	UNIX for Dummies Questions & Answers	2	04-10-2006 06:21 AM
Writing perl module	jo_aze	Shell Programming and Scripting	4	08-06-2003 11:10 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread: