yeah ok whatever.... I want to use perl not ksh...as simple as that.
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
"Jayakumar Rajagopal" <[EMAIL PROTECTED]>
05/07/2004 01:16 PM
To: <[EMAIL PROTECTED]>, "Bob Showalter" <[EMAIL PROTECTED]>
cc: "Beginners Perl" <[EMAIL PROTECTED]>
Subject: RE: process signals
Mr Smith,
I saw your elementary question at about 8:50 AM. I did not answer
it, since it was not clear to me too. I have seen Bob ( who I have never
spoken with or by no means friend of me) answering good, difficult
questions very legibly. If you think you have know better unix, then you
may kindly let us know :
1) why were you not able to use unix system("kill..") command, than
waiting for perl group to answer?
2) how you can print "\n" while 'command' has already been writing
the log file. (in case 'command was in background')
3) don't you think you contradict either in (2) or in trying to
signal the process that is already over before print "\n" (in case not in
background)
If you want to send singal hangup the process use : kill HUP => $PID
with regards,
Jay
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Friday, May 07, 2004 12:36 PM
To: Bob Showalter
Cc: Beginners Perl
Subject: RE: process signals
If you dont understand my question then I assume you do not know unix or
tail -f ? I want to after a sleep of 5-8 seconds, send a kill signal to
the previous command then increment the counter. thank you!
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
Bob Showalter <[EMAIL PROTECTED]>
05/07/2004 10:57 AM
To: "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]>,
Beginners Perl
<[EMAIL PROTECTED]>
cc:
Subject: RE: process signals
[EMAIL PROTECTED] wrote:
> I have an application system command that is like tail -f in UNIX and
> I want to say
>
> x=1
> while x < 10
> do
> 'command' append to log
> print "\n" append to log
> issue HANGUP or KILL SIGNAL
> x+=1
> done
>
> How do I issue a hangup signal to this process using perl?
I'm not sure I understand your problem, but the perl way to send a signal
is
with the kill() function. The way to catch a signal is by installing a
handler using the %SIG hash.
perldoc -f kill
perldoc perlipc
