Need help with writing a perl script Post: 302259562

Sponsored Content

Top Forums Shell Programming and Scripting Need help with writing a perl script Post 302259562 by eliraza6 on Tuesday 18th of November 2008 12:05:21 PM

11-18-2008

Registered User

Quote:

Originally Posted by radoulov

Something to begin with (it will print any mismatch):

Code:

#! /usr/bin/env perl


use warnings;
use strict;

my ($Thresholds_f, $Queue) = 
  ('/path/to/thresholds_file', '/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+/;
  $Thresholds_h{$Fields[0]} = [@Fields[1,2]];
  }

close TH;  

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

while (<QUEUE>) {
  my $Flag = 0;
  my @Fields = split /\s+/;
  while (my($Key, $Ref) = each %Thresholds_h) {
    my @Values = @$Ref;
    if ($Fields[0] =~ /^$Key$/) {
      print "\nChecking queue: $Fields[0] ... ";
      if ($Fields[1] != $Values[0]) {
        print "\n\n\t--> queue threshold mismatch: \n\n\tcurrent status: ",
        $Fields[1], "\n\tthreshold:      ", $Values[0], "\n";
        $Flag++
        }
      if ($Fields[2] != $Values[1]) {
         print "\n\t--> listeners threshold mismatch: \n\n\tcurrent status: ",
        $Fields[2], "\n\tthreshold:      ", $Values[1], "\n";
        $Flag++
        }
      print "OK\n\n" unless $Flag;    
      }
    }
  }  
  
close QUEUE;

WOW! that's look like you put a lot of work in to it!
actually i'm not in the office right now but i'll check this and let you know first thing!

thanks alot m8!

eliraza6

View Public Profile for eliraza6

Find all posts by eliraza6

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Writing perl module

Hi, I'd like to create perl functions in separate file from my scripts. Does somebody know if it's possible to create and use a perl module without compiling it ? Thanks.

2. UNIX for Dummies Questions & Answers

Hi Folks, I posted a few days ago, thanks for the responses. My original question was for renaming files of sort 3p2325294.dgn in a directory containing multiple files. I need to drop the first 2 characters and the last in a unix script using Perl. How does it differ from using the Unix...

3. Shell Programming and Scripting

help for a perl script - writing to a data file

Hi, Here is my problem.. i have 2 files (file1, file2).. i have wrote the last two lines and first 4 lines of "file2" into two different variables .. say.. my $firstrec = `head -4 $file2`; my $lastrec = `tail -2 $file2`; and i write the rest of the file2 to a tmpfile and cat it with head...

4. UNIX for Dummies Questions & Answers

help in writing perl module

Hi i have written a perl script which was then converted to perl module by me. it works as expected. but i have to put it on many servers so i want to build a package for it. i dont know how to do that. just to check i copied perl module in "lib" directory which is working. ( directly copied...

5. Shell Programming and Scripting

Writing a Perl Script that processes multiple files

I want to write a Perl script that manipulates multiple files. In the directory, I have files 250.*chr$.ped where * is from 1 to 1000 and $ is from 1-22 for a total of 22 x 10,000 = 22,000 files. I want to write a script that only manipulates files 250.1chr*.ped where * is from 1 to 22....

6. Programming

REQUIRE HELP IN WRITING A PERL SCRIPT

Hi everyone I am a beginner in perl and I am trying to write a perl script. Basically I want to separate gene entries from phenotype entries in a text file which contains huge number of records and copy them in a separate file. The gene entries will have * symbol after the line FIELD TI. A...

7. Shell Programming and Scripting

Perl script for Calling a function and writing all its contents to a file

I have a function which does awk proceessing sub mergeDescription { system (q@awk -F'~' ' NR == FNR { A = $1 B = $2 C = $0 next } { n = split ( C, V, "~" ) if...

8. UNIX for Dummies Questions & Answers

Writing an HTML file in perl

I'm writing a perl script that writes an html file. use Tie::File; my ($dir) = @ARGV; open (HTML,">","$dir/file.html") || die $!; #-----Building HTML file--------------------------- print HTML "<!DOCTYPE html> <html> <head> <title>Output</title> <link...

9. Shell Programming and Scripting

Need help in writing perl script

Hi, I am new to perl. I am trying to write a small perl script for search and replace in a file : ======================================================== #!/usr/bin/perl my $searchStr = "register_inst\.write_t\("; my $replaceStr = "model\.fc_block\."; open(FILE,"temp.sv") ||...

10. Shell Programming and Scripting

Writing xml from excel sheet .xls using perl script

Hi all. I am working on the below requirement of generating .xml file from .xls file which i have , can someone please help me or in writing the perl script for the same: The xls file format is as below which has two columns and number of rows are not fixed: Fixlet Name ...

LEARN ABOUT OPENSOLARIS

imqadmin

imqadmin(1M)						  System Administration Commands					      imqadmin(1M)

NAME

       imqadmin - launch the Message Queue administration console

SYNOPSIS

       /usr/bin/imqadmin [-javahome path]

       /usr/bin/imqadmin -h

       /usr/bin/imqadmin -v

DESCRIPTION

       imqadmin  launches the graphical user interface application that performs most Message Queue administration tasks. These tasks include man-
       aging broker instances (including physical destinations) and administered objects.

OPTIONS

       The following options are supported:

       -h		 Display usage help. The application is not launched.

       -javahome path	 Specify a path to an alternate Java 2 compatible runtime.

       -v		 Display version information.

ENVIRONMENT VARIABLES

	The following environment variables affect the execution of this command:

       IMQ_JAVAHOME    Specify the Java 2 compatible runtime. When this environment variable is not set it defaults to /usr/j2se.

EXIT STATUS

       The following exit values are returned:

       0     Successful completion.

       >0    An error occurred.

FILES

       $HOME/.imq/admin/brokerlist.properties

	   Contains user settings, a list of broker instances being managed.

       $HOME/.imq/admin/objectstorelist.properties

	   Contains user settings, a list of object stores being managed.

ATTRIBUTES

       See attributes(5) for descriptions of the following attributes:

       +-----------------------------+-----------------------------+
       |      ATTRIBUTE TYPE	     |	    ATTRIBUTE VALUE	   |
       +-----------------------------+-----------------------------+
       |Availability		     |SUNWiqu			   |
       +-----------------------------+-----------------------------+

SEE ALSO

       imqbrokerd(1M), imqcmd(1M), imqdbmgr(1M), imqkeytool(1M), imqobjmgr(1M), imqusermgr(1M), attributes(5)

       Sun Java System Message Queue Administrator's Guide

SunOS 5.11							    11 Mar 2004 						      imqadmin(1M)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Writing perl module

Discussion started by: jo_aze

2. UNIX for Dummies Questions & Answers

Perl Unix Script Writing

Discussion started by: Dinkster

3. Shell Programming and Scripting

help for a perl script - writing to a data file

Discussion started by: meghana

4. UNIX for Dummies Questions & Answers

help in writing perl module

Discussion started by: zedex