Bottom posted:
On Friday 07 May 2004 11:00 am, [EMAIL PROTECTED] wrote:
> 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
Hi Mr.Smith,
If you are more comfortable with shell scripting, and need to solve it urgently
, you may write small sh script like this and call it from perl script:
command &
sleep 6
kill -HUP $!
echo "\n" >> log
with regards,
Jay
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
