Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl script help
Top Forums Shell Programming and Scripting Perl script help Post 302545827 by jacki on Tuesday 9th of August 2011 05:26:07 PM
Old 08-09-2011
Perl script help
HI All,

Have a perl script which parses a file (FILE1 has a list of alerts) and sends an email in certain format.

Only thing I need is that for VIPS/hosts having the word test in it should append test to the subject title..

FILE1:

Code:
***** Alert *****

Notification Type: PROBLEM

Service: Appsname_2333_env1_region
Host: vip-scv.corp.foobar.com
Address: x.x.x.x
State: CRITICAL

Date/Time: Mon Aug 8 15:50:02 EDT 2011

Additional Info:

CRITICAL - Socket timeout after 3 seconds

Console http://foobar.com/nagios/index.php
 ***** Alert *****

Notification Type: PROBLEM

Service: DiffAppsname_8552_env2_region2
Host: vip2-scv.corp.foobar.com
Address: x.x.x.x
State: CRITICAL

Date/Time: Mon Aug 8 15:50:02 EDT 2011

Additional Info:

CRITICAL - Socket timeout after 3 seconds

Console http://foobar.com/nagios/index.php

PERL SCRIPT:

Code:
#!/usr/bin/perl -w

use strict;

my ($apps,$email,$host);
open(HM,"<","/var/tmp/email") or die "Fail- $!\n";
open(WM,">","/var/tmp/email_text") or die "Fail- $!\n";

while(<HM>) {
        chomp;
        $apps = $1 if /Service:(.*)/;
        $host = $1 if /^Host:(.*)/;
        if (/Date\/Time:(.*)/) {
                printf WM "%s:%s:%s\n",$apps,$host,$1;  
        }
}
seek HM,0,0;
print WM <HM>;

$email='mail -s "alerts from past 4 mins" user@foobar.com < /var/tmp/email_text 2>/var/tmp/email_err';
system($email);

if ( $? ne 0 ) {
         die "Failure - while sending email. Please check file /tmp/email_err \n";
}

close(WM);
close(HM);

unlink "/tmp/email" or warn "Could not unlink email: $!";;
unlink "/tmp/email_text" or warn "Could not unlink email_text: $!";;

Thanks,
Jacki.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Run perl script in the current process

I have a question regarding running perl in the current process. I shall demonstrate with an example. Look at this. sh-2.05b$ pwd /tmp sh-2.05b$ cat test.sh #! /bin/sh cd /etc sh-2.05b$ ./test.sh sh-2.05b$ pwd /tmp sh-2.05b$ . ./test.sh sh-2.05b$ pwd /etc sh-2.05b$ So... (10 Replies)
Discussion started by: vino
10 Replies

2. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies

3. Shell Programming and Scripting

perl/unix: script in command line works but not in perl

so in unix this command works works and shows me a list of directories find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt but when i try running a perl script to run this command my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Discussion started by: kpddong
2 Replies

4. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

5. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

6. Shell Programming and Scripting

calling a perl script with arguments from a parent perl script

I am trying to run a perl script which needs input arguments from a parent perl script, but doesn't seem to work. Appreciate your help in this regard. From parent.pl $input1=123; $input2=abc; I tried calling it with system("/usr/bin/perl child.pl $input1 $input2"); and `perl... (1 Reply)
Discussion started by: grajp002
1 Replies

7. Shell Programming and Scripting

executing perl script from another perl script : NOT WORKING

Hi Folks, I have 2 perl scripts and I need to execute 2nd perl script from the 1st perl script in WINDOWS. In the 1st perl script that I had, I am calling the 2nd script main.pl =========== print "This is my main script\n"; `perl C:\\Users\\sripathg\\Desktop\\scripts\\hi.pl`; ... (3 Replies)
Discussion started by: giridhar276
3 Replies

8. Shell Programming and Scripting

Perl : embedding java script with cgi perl script

Hi All, I am aware that html tags can be embedded in cgi script as below.. In the same way is it possible to embed the below javascript in perl cgi script ?? print("<form action="action.htm" method="post" onSubmit="return submitForm(this.Submitbutton)">"); print("<input type = "text"... (1 Reply)
Discussion started by: scriptscript
1 Replies

9. Shell Programming and Scripting

Excuting perl script from within a perl script with variables.

Not sure what I am doing wrong here, but I can print the list with no issue. Just a blank screen with the 'do'. #!/usr/bin/perl open FILE, "upslist.txt"; while ($line=<FILE>){ if ($line=~/^(.*?),(.*?)$/){ #print "ups:$1 string:$2\n"; do 'check_snmp_mgeups-0.1.pl -H $1 -C $2'; } ... (1 Reply)
Discussion started by: mrlayance
1 Replies

10. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies

LEARN ABOUT PHP

apc_cas

APC_CAS(3)								 1								APC_CAS(3)

apc_cas - Updates an old value with a new value

SYNOPSIS

       bool apc_cas (string  $key, int	$old, int  $new)

DESCRIPTION

       apc_cas(3)  updates  an	already existing integer value if the $old parameter matches the currently stored value with the value of the $new
       parameter.

PARAMETERS

	      o $key
		- The key of the value being updated.

	      o $old
		- The old value (the value currently stored).

	      o $new
		- The new value to update to.

RETURN VALUES

	Returns TRUE on success or FALSE on failure.

EXAMPLES

       Example #1

	      apc_cas(3) example

	      <?php
	      apc_store('foobar', 2);
	      echo '$foobar = 2', PHP_EOL;
	      echo '$foobar == 1 ? 2 : 1 = ', (apc_cas('foobar', 1, 2) ? 'ok' : 'fail'), PHP_EOL;
	      echo '$foobar == 2 ? 1 : 2 = ', (apc_cas('foobar', 2, 1) ? 'ok' : 'fail'), PHP_EOL;

	      echo '$foobar = ', apc_fetch('foobar'), PHP_EOL;

	      echo '$f__bar == 1 ? 2 : 1 = ', (apc_cas('f__bar', 1, 2) ? 'ok' : 'fail'), PHP_EOL;

	      apc_store('perfection', 'xyz');
	      echo '$perfection == 2 ? 1 : 2 = ', (apc_cas('perfection', 2, 1) ? 'ok' : 'epic fail'), PHP_EOL;

	      echo '$foobar = ', apc_fetch('foobar'), PHP_EOL;
	      ?>

	      The above example will output something similar to:

	      $foobar = 2
	      $foobar == 1 ? 2 : 1 = fail
	      $foobar == 2 ? 1 : 2 = ok
	      $foobar = 1
	      $f__bar == 1 ? 2 : 1 = fail
	      $perfection == 2 ? 1 : 2 = epic fail
	      $foobar = 1

SEE ALSO 
apc_dec(3), apc_store(3).
PHP Documentation Group 														APC_CAS(3)
All times are GMT -4. The time now is 05:14 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy