i've written the following test script:

##########
# this line inputs the number 1..1000
open IN, qq(perl -e "print join(qq(\\n), (1..1000))" |);

for (1..10) {
  $_=<IN>;
  print $_;
}

system("");

for (1..10) {
  $_=<IN>;
  print $_;
}

close IN;

##########

i would expect it to print the numbers 1..20, but instead it prints:
1
2
3
4
5
6
7
8
9
10

842
843
844
845
846
847
848
849
850

can anyone explain this? i've tried a variety of pipe inputs and system
commands and they all show the same type of behavior.

i'm running perl 5.8 on win2k. i've tested the script on an old version of
perl (5.005_03) and it displays the expected 1..20.

thanks
--ken

_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to