ansaurus

Question

Is it possible to print from a perl CGI before the process exits?

Answer 1

+1 A:

# Tell Perl not to buffer our output
$| = 1;

David Dorward 2010-08-11 21:11:13

awesome! thanks!

Dr.Dredel 2010-08-11 21:15:53

It should be noted that `$|` is global and will effect all file handles (unrelated file IO). You're almost always better off not doing that... `use IO::Handle; STDOUT->autoflush(1)` instead.

Evan Carroll 2010-08-11 21:20:19

@Evan "`$|` If set to nonzero, forces a flush right away and after every write or print on the currently selected output channel." I have always assumed that meant `STDOUT` is the one and only handle that will be affected if I do not select some other handle first.

Sinan Ünür 2010-08-11 22:26:59

@Sinan `currently selected output channel` means afaik the one you're outing to, not the one you're providing to `$|`, if `$|` is set to `1`, and you `print $fh "foobar"`, then `$fh` -- the selected output channel will be unbuffered for that call.

Evan Carroll 2010-08-11 22:31:19

I don't like that verbiage: `s/, not the one you're providing to $|//`.

Evan Carroll 2010-08-11 22:43:42

@Evan If you put it like that, `perldoc -f select` does not make any sense: `$oldfh = select(STDERR); $| = 1; select($oldfh);` to set `$|=1` for `STDERR`.

Sinan Ünür 2010-08-11 22:54:53

My understanding about the behavior of `$|` is the same as Sinan's, but I agree with Evan that `STDOUT->autoflush(1);` is the better way to set autoflush for STDOUT.

daotoad 2010-08-12 06:31:35

ansaurus

tags:

views:

answers:

Is it possible to print from a perl CGI before the process exits?

related questions