Kan man gennemtvinge en close()?

[<sslug@sslug>]

Hej liste,

Jeg har åbnet et program for at grabbe linier fra dets output, men programmet bliver aldrig færdigt (er et program der monitorerer en TSM server) og man kan ikke sende komandoer til det. Derfor kan jeg ikke lukke min "pipe" igen, da close() venter på at programmet skal lukke.

Er der en måde jeg kan tvinge close() til at lukke min pipe selv om programmet ikke er lukket?

Sample kode her:
---
$username = "********";
$password = "********";
$execute = "dmsamdc";
open(CONSOLE, "$execute -id=$username -pass=$password -console |");
while (<CONSOLE>)
{
  .
  ...Mere kode her...
  .
  if (/^(ANR0985I Process $process_id)/)
  {
    close(CONSOLE);
  }
}
---

Er der mon nogen der kan hjælpe en stakkels perl ignorant?


Mvh

Christian

-------------------------------------------------
WebMail fra Tele2 http://www.tele2.dk
-------------------------------------------------