http://qs1969.pair.com?node_id=552769


in reply to "close" failing

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
Re^2: "close" failing
by derby (Abbot) on May 31, 2006 at 12:52 UTC

    That's not really a wait issue. When closing a piped open filehandle, if the opened command exits with a non-zero and that's the only issue with the command, then $! is set to 0. So the code above is using the tertiary operater to check that condition. I thought that might be the issue too but the OP said it worked fine from the command line so more than likely there's either a path or permisssion issue.

    -derby
Re^2: "close" failing
by liverpole (Monsignor) on Oct 16, 2006 at 12:39 UTC
    The code jesuashok posted was simply copied verbatim from the example section of perldoc entry for close, even to the point of including the comment containing the ellipses "#...":
    open(OUTPUT, '|sort >foo') # pipe to sort or die "Can't start sort: $!"; #... # print stuff to output close OUTPUT # wait for sort to finish or warn $! ? "Error closing sort pipe: $!" : "Exit status $? from sort"; open(INPUT, 'foo') # get sort's results or die "Can't open 'foo' for input: $!";

    Refer to this node for further discussion of jesuashok's posting habits.


    s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/