flush unter windows - #149329 (Allgemeines zu Perl)

Gast wer

2011-05-31 21:37

Vermutung zum Problem:

Code (perl): (dl )

#!/usr/bin/perl

my $file='test.txt';
my $txt=join("\n",map{rand(1000)}(1..1000000));

open(my $fh, '>', $file) or die("$file $!");
print $fh $txt;
exec(q Xperl -le 'open($fh, q(<), $ARGV[0]) or die(qq($ARGV[0] $!)); $i=0; while(<$fh>){$i++}; print $i' -- X.$file);

Unter Windows kommen nicht immer alle Zeilen an?

Oder das ist das Problem:

Code (perl): (dl )

#!/usr/bin/perl

my $file='test.txt';
my $txt=join("\n",map{rand(1000)}(1..1000000));

open(my $fh, '>', $file) or die("$file $!");
print $fh $txt;
system(q Xperl -le 'open($fh, q(<), $ARGV[0]) or die(qq($ARGV[0] $!)); $i=0; while(<$fh>){$i++}; print $i' -- X.$file);