Re: something is killing my perl script
[email protected] (Claude) 03 Jun 2004 11:28:58 +0300
| Newsgroups | perl.debugger |
|---|---|
| Organization | http://www.nokia.com |
| Message-ID | <[email protected]> |
>>>>> "Parker" == Parker Richard-A19798 <[email protected]> writes: [...] Parker> What happens is that for no particular reason that I can find, Parker> the program dies. Parker> What do I put in to find out what killed it or what it died from? I have no idea, but I thought this code is more conventional: open KERNFIFO, "/dev/log.fifo" or die "Cannot open file, $!\n"; while ( my $line = <KERNFIFO> ) { print "$line"; } Parker> #!/usr/bin/perl Parker> open (KERNFIFO, "cat /dev/log.fifo |"); Parker> while ( <KERNFIFO> ) { [...] -- Claude