I'm kind of new to Perl, so please forgive the question..
I'm trying to use perl to read a file and then run a program using the
file. I also want to use the alarm(x) function to skip to the next entry
in the files if it times out. Here's what Ive go so far:
open (TESTFILE, "< regression") || die "Can't open: regression_dgd\n";
open (LOGFILE, "> regression.log") || die "Can't open: regression.log\n";
print LOGFILE "\n\n\nStart of test run - $today1 $run\n";
while ($line = <TESTFILE>)
{
alarm(62);
print "Working...\n";
$start=time;
chomp($line);
$cmd = "/node.ulm_bx";
$full_line = join("",$line,$cmd);
$jobrun = `$run $full_line`;
print LOGFILE "$jobrun";
$end = time;
$totaltime = $end - $start;
print LOGFILE "Time for test:$totaltime sec's\n\n\n";
}
close (TESTFILE);
close (LOGFILE);
It works fine, but when the alarm time gets exceeded, the script exits.
What I would like it to do is just go to the next line in the TESTFILE.
Thanks for any input you can give me..
Denis
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
