02-26-2009
So instead of sleep 140 in the above mentioned script.....can I put it like this..will it work?:
cd $MMHOME/log
while
do
more $(ls -ltr|tail -1|cut -c 55-70)|grep "saimptlogi"|tail -2f|perl -ne '/PID=([0-9]+):/ && { $pid{$1}++; if ($pid{$1} >= 2)'
sleep 60
done
Last edited by satyajit007; 02-26-2009 at 05:11 AM..
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
Is there any other command echo does.
if
I am doing this operation for each line in my file. So its taking very long time to process more than 1000 records.
Is there any alternative way to write the above if statement (5 Replies)
Discussion started by: senthil_is
5 Replies
2. Shell Programming and Scripting
Hi all,
I am parsing command line options using getopts.
The problem is that mandatory argument options following ":" is taking next option as argument if it is not followed by any argument.
Below is the script:
while getopts :hd:t:s:l:p:f: opt
do
case "$opt" in
-h|-\?)... (2 Replies)
Discussion started by: gurukottur
2 Replies
3. Shell Programming and Scripting
Hi,
I'm new to Unix. I want to read the all the lines from a text file and write the alternate lines into another file. Please give me a shell script solution.
file1
-----
one
two
three
four
five
six
seven
newfile(it should contain the alternate lines from the file1)
-------
one... (6 Replies)
Discussion started by: pstanand
6 Replies
4. Shell Programming and Scripting
This is a very crude attempt in Bash at something that I needed but didn't seem to find in the 'sleep' command. However, I would like to be able to do it without the need for the temp file. Please go easy on me if this is already possible in some other way:
How many times have you used the... (5 Replies)
Discussion started by: deckard
5 Replies
5. Shell Programming and Scripting
To find all the files in your home directory that have been edited in some way since the last tar file, use this command:
find . -newer backup.tar.gz
Is anyone familiar with an older solution?
looking to identify files older then 15mins across several directories.
thanks,
manny (2 Replies)
Discussion started by: mr_manny
2 Replies
6. Shell Programming and Scripting
Fairly new to the System Admin world, and this is my first post here, hoping to get some clarification.
I am using a BASH script to automate some Logfile Archiving (into .tars). The actual logfiles are accessed through an SSH, so I have used the following EXPECT sub-script within my main BASH... (8 Replies)
Discussion started by: Goatfarmer03
8 Replies
7. UNIX for Dummies Questions & Answers
I need alternate command as pwdx does not work on
HP-UX mymachine B.11.31 U ia64 3223107173 unlimited-user license (6 Replies)
Discussion started by: mohtashims
6 Replies
8. HP-UX
Hi,
Whats the alternate for wget in HP-UX ? (4 Replies)
Discussion started by: mohtashims
4 Replies
9. Solaris
Hi,
I installed some packages required by an app built with python.
But when I try python setup.py install, I get the following error:
/opt/csw/lib/gcc/sparc-sun-solaris2.10/5.2.0/../../../../sparc-sun-solaris2.10/bin/as: unrecognized option `-m32'
Could anyone tell me what's wrong... (4 Replies)
Discussion started by: Kimkun
4 Replies
LEARN ABOUT DEBIAN
file::pid
File::Pid(3pm) User Contributed Perl Documentation File::Pid(3pm)
NAME
File::Pid - Pid File Manipulation
SYNOPSIS
use File::Pid;
my $pidfile = File::Pid->new({
file => '/some/file.pid',
});
$pidfile->write;
if ( my $num = $pidfile->running ) {
die "Already running: $num
";
}
$pidfile->remove;
DESCRIPTION
This software manages a pid file for you. It will create a pid file, query the process within to discover if it's still running, and remove
the pid file.
new
my $pidfile = File::Pid->new;
my $thisfile = File::Pid->new({
file => '/var/run/daemon.pid',
});
my $thisfileandpid = File::Pid->new({
file => '/var/run/daemon.pid',
pid => '145',
});
This constructor takes two optional paramters.
"file" - The name of the pid file to work on. If not specified, a pid file located in "File::Spec->tmpdir()" will be created that matches
"(File::Basename::basename($0))[0] . '.pid'". So, for example, if $0 is ~/bin/sig.pl, the pid file will be /tmp/sig.pl.pid.
"pid" - The pid to write to a new pidfile. If not specified, $$ is used when the pid file doesn't exist. When the pid file does exist, the
pid inside it is used.
file
my $pidfile = $pidfile->file;
Accessor/mutator for the filename used as the pid file.
pid
my $pid = $pidfile->pid;
Accessor/mutator for the pid being saved to the pid file.
write
my $pid = $pidfile->write;
Writes the pid file to disk, inserting the pid inside the file. On success, the pid written is returned. On failure, "undef" is returned.
running
my $pid = $pidfile->running;
die "Service already running: $pid
" if $pid;
Checks to see if the pricess identified in the pid file is still running. If the process is still running, the pid is returned. Otherwise
"undef" is returned.
remove
$pidfile->remove or warn "Couldn't unlink pid file
";
Removes the pid file from disk. Returns true on success, false on failure.
program_name
This is a utility method that allows you to determine what "File::Pid" thinks the program name is. Internally this is used when no pid file
is specified.
SEE ALSO
perl.
AUTHOR
Casey West, <casey@geeknest.com>.
COPYRIGHT
Copyright (c) 2005 Casey West. All rights reserved.
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
perl v5.8.8 2008-04-05 File::Pid(3pm)