Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl script logging via Shell script
Homework and Emergencies Emergency UNIX and Linux Support Perl script logging via Shell script Post 302473523 by zedex on Sunday 21st of November 2010 03:09:17 AM
Old 11-21-2010
From my understanding your perl script should run all the time and if its gets killed your shell script should start it.

If above understanding is right then, i have some comments

Code:
#!/bin/sh

# Try to find PID of thing which starts with perl , check the count 
# if count is greater than 0 then kill whatever is running... 

# Bit risky unless you are 100% sure anything running with perl is 
# your script, too generic.

pidcheck=`pidof perl | grep -c [0-9][0-9][0-9][0-9]`
while [ $pidcheck -ne 0 ]
do
        kill -9 `pidof perl`
done
echo "\n------------------------------\n" >> log.txt
date >> log.txt
echo "\n------------------------------\n" >> log.txt

# i am not sure why are you running this script 
# without checking if script is running or not .. if that logic in the perl script
# then really bad coding to start another process every time , there is not 
# even sleep of 1-2 sec 

while [ 1 -eq 1 ]
# if you want to run while loop in infinite loop 
# use "while :" 
do
        # in perl to execute system command you use backticks 
        # where as in shell script you run directly 
        # like perl handler.pl >> log.txt
        # to get date did you do `date >> log.txt` ? 
        `perl handler.pl >> log.txt`
        echo "Perl-Script crashed, restarting..." >> log.txt
done

Here are my script 1 shell wrapper & 1 perl script both works fine i dont have *nix terminal @ my place so its on cygwin ..it works there so shouldnt be a problem on *nix

Code:
# cat a.sh
#! /bin/bash
echo "------------------\n">> /tmp/log.txt
date >>/tmp/log.txt
echo "------------------\n">> /tmp/log.txt

while :
do
    echo "Running perl script again ..."
    perl a.pl >> /tmp/log.txt 2>&1
    echo "Running Perl script for fun ...\n" >> /tmp/log.txt
done

# cat a.pl
#! /bin/env perl
  print "Fun Perl Script ....\n" ;
  sleep 10 ;
exit ;

# bash a.sh
Running perl script again ...
Running perl script again ...
Running perl script again ...

# cat /tmp/log.txt
------------------\n
Sun Nov 21 13:29:01 IST 2010
------------------\n
Fun Perl Script ....
Running Perl script for fun ...\n
------------------\n
Sun Nov 21 13:37:32 IST 2010
------------------\n
Fun Perl Script ....
Running Perl script for fun ...\n
Fun Perl Script ....
Running Perl script for fun ...\n

Last edited by zedex; 11-21-2010 at 04:11 AM.. Reason: spelling mistakes corrected
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

shell script error logging

Hi, I am writing a shell script (ksh, solaris 5.8). Script is X.sh variables declared: LOGFILE=X.log the script is removing a file: /usr/bin/rm "$DUMP_FILE1".Z >> $LOGFILE If I kick off the script from the command line as follows: ./X.sh > X.con 2<& 1 (1 Reply)
Discussion started by: niamh
1 Replies

2. Shell Programming and Scripting

logging in Shell script

How to I write to a log file all the output that is displaying on the screen? with time stamp. thankx. (3 Replies)
Discussion started by: laila63
3 Replies

3. Shell Programming and Scripting

Have a script running even with the shell logging out

Hi all, I wish to have a script running even if my session is disconnected. I've tried calling another session within it and using sudo to a different user, but it didn't work - as it was expected to do so :rolleyes: I guess I'll have to work with "nohup" command, right ? trying with the... (4 Replies)
Discussion started by: 435 Gavea
4 Replies

4. Shell Programming and Scripting

Logging OWB mapping execution in Shell script

Hi, I am executing a OWB mapping from a shell script like this $OWB_SQLPLUS MY_WAREHOUSE plsql MY_MAPPING "," "," I want to log this mapping execution process into a file. Please let me know if this will work: $OWB_SQLPLUS MY_WAREHOUSE plsql MY_MAPPING "," "," >> LOGFIL.log I will... (1 Reply)
Discussion started by: npn
1 Replies

5. Shell Programming and Scripting

Logging into oracle or SQL from shell script

Hi, I have a shell script where I log on to sqlplus like this log() { sqlplus -s scott/tiger <<! select count(*) from EMP; ! } log Here I have hardcoded/used the username : scott and password : tiger directly to log on to SQLPLUS. If i have my log in information in my profile file... (2 Replies)
Discussion started by: manirsendhil
2 Replies

6. Shell Programming and Scripting

Shell Script for Logging into the Website

Hi ALL, Is there any way, to login into a website using Shell/Perl command/script? I am struggling on this from quite sometime but with no luck. Can you guys help, please? My sole purpose is to login a website (Which requires Username and Password) and then extract some information from... (3 Replies)
Discussion started by: parshant_bvcoe
3 Replies

7. Shell Programming and Scripting

Perl script logging via Shell script

Hello I wrote a nice Perl script that is intended to find and copy some files when getting a TERM signal. Now I wanted to make a shell script that starts/restarts the Perl script if it crashes/ends because of errors and make a log of all output the Perl Script gives. The problem is that it won't... (1 Reply)
Discussion started by: al0x
1 Replies

8. Shell Programming and Scripting

Executing scipts after logging into a remote host using shell script

Hi All, Sorry if it is a duplicate post. I have not got any reference about this anywhere. I looked at the posts described in SSH - Passing Unix login passwords through shell scripts - Linux / UNIX Forum and it helped me till the point to connect to the host and executing the basic commands.... (3 Replies)
Discussion started by: RSC1985
3 Replies

9. Shell Programming and Scripting

shell script for multiple logging

Hi All, I am preparing a script which executes following things: 1) Logs into 8 cluster one by one. 2) After logging into each cluster,it prints the cluster name & then exit from that cluster. 3) Then it logs to next cluster & peform the same task. Here is what i have written : for... (8 Replies)
Discussion started by: d8011
8 Replies

10. Shell Programming and Scripting

Enable logging from within the shell script

Bash on Oracle Linux 6.3 I have a shell script whose output I want to redict to a log file. So, I can simply redirect the output as shown below. # cat myscript.sh #### I actually want some logging mechanism here which will redirect the output to a log file echo 'hello world' #... (3 Replies)
Discussion started by: John K
3 Replies

LEARN ABOUT CENTOS

findbin

FindBin(3pm)						 Perl Programmers Reference Guide					      FindBin(3pm)

NAME

       FindBin - Locate directory of original perl script

SYNOPSIS

	use FindBin;
	use lib "$FindBin::Bin/../lib";

	or

	use FindBin qw($Bin);
	use lib "$Bin/../lib";

DESCRIPTION

       Locates the full path to the script bin directory to allow the use of paths relative to the bin directory.

       This allows a user to setup a directory tree for some software with directories "<root>/bin" and "<root>/lib", and then the above example
       will allow the use of modules in the lib directory without knowing where the software tree is installed.

       If perl is invoked using the -e option or the perl script is read from "STDIN" then FindBin sets both $Bin and $RealBin to the current
       directory.

EXPORTABLE VARIABLES

	$Bin	     - path to bin directory from where script was invoked
	$Script      - basename of script from which perl was invoked
	$RealBin     - $Bin with all links resolved
	$RealScript  - $Script with all links resolved

KNOWN ISSUES

       If there are two modules using "FindBin" from different directories under the same interpreter, this won't work. Since "FindBin" uses a
       "BEGIN" block, it'll be executed only once, and only the first caller will get it right. This is a problem under mod_perl and other
       persistent Perl environments, where you shouldn't use this module. Which also means that you should avoid using "FindBin" in modules that
       you plan to put on CPAN. To make sure that "FindBin" will work is to call the "again" function:

	 use FindBin;
	 FindBin::again(); # or FindBin->again;

       In former versions of FindBin there was no "again" function. The workaround was to force the "BEGIN" block to be executed again:

	 delete $INC{'FindBin.pm'};
	 require FindBin;

AUTHORS

       FindBin is supported as part of the core perl distribution. Please send bug reports to <perlbug@perl.org> using the perlbug program
       included with perl.

       Graham Barr <gbarr@pobox.com> Nick Ing-Simmons <nik@tiuk.ti.com>

COPYRIGHT

       Copyright (c) 1995 Graham Barr & Nick Ing-Simmons. All rights reserved.	This program is free software; you can redistribute it and/or
       modify it under the same terms as Perl itself.

perl v5.16.3							    2013-03-04							      FindBin(3pm)
All times are GMT -4. The time now is 08:56 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy