Hi all,
I'm using ActiveState Perl 5.10. Is there any way to increase pipe's
buffer size? By running the included sample script, I found that (at
least at Windows Server 2003) it is limited to 512 bytes. I am aware
that Win32::Pipe has a method which allows to alter the buffer size, but
it uses some C code to do it. Is it possible from Perl?
----- BEGIN SCRIPT -----
use strict;
use warnings;
use IPC::Open3;
my $chars = 1;
do {
my $script = <<SCRIPT
print 'x' x $chars;
SCRIPT
;
my ($stdin, $stdout, $stderr);
my $pid = open3($stdin, $stdout, $stderr, 'perl', '-e', $script);
print $chars, "\n";
$chars++;
}
while(wait);
----- END SCRIPT -----
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
