Jeff Pang schreef:

> for (my $i=0;$i<2;++$i) {

Alternative:

  for my $i (0 .. 1) {


>     my $pid = open CHILD,"|-";

One should always check the return value of open().


>     select CHILD;$|++;select STDOUT;

Alternative:

      select((select(CHILD),$|=1)[0]);

(from perldoc -q flush)

-- 
Affijn, Ruud

"Gewoon is een tijger."

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to