<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2900.2912" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New" size=2>Hi
All,</FONT></SPAN></DIV>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New"
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New" size=2>I was
wondering if there is a good way to monitor a spawned process within a Perl
program. For example: I am using Perl DBI to run a SQL command.
However, I would like to give the SQL process some time to complete and at some
point break out and quit if a set time has been exceeded. Code
example:</FONT></SPAN></DIV>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New"
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New" size=2>eval
{</FONT></SPAN></DIV>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New" size=2>
$dbh->do("insert into table1 select a.col1, a.col2, b.col4 from table1 a,
table2 b");</FONT></SPAN></DIV>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New" size=2>
};</FONT></SPAN></DIV>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New"
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New" size=2>So if the
above process does not complete after 10 minutes, I was to quit out of the
program.</FONT></SPAN></DIV>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New"
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=233021823-09082006><FONT face="Courier New" size=2>Hope this
information is clear.</FONT></SPAN></DIV>
<DIV align=left><FONT face=Arial size=2></FONT> </DIV>
<DIV align=left><FONT face="Courier New" size=2>Peter</FONT></DIV></BODY></HTML>