cygwin perl 没有输出

cuteorange

cygwin perl 版本是perl5 (revision 5 version 10 subversion 1)
     2  use strict;
     3  use warnings;
     4  while (<DATA>) {
     5                  print;
     6                  chomp;
     7                  print;
     8  }
     9
    10  __DATA__
    11  1
    12  2
    13  3


执行结果
1
2
3
调试发现第7行的print没有输出。
第7行改为print $_;也不行。改成print "$_\n";就可以了。
设置$|=1;也不行。

在别的机器上(非cygwin环境),没有这个问题。


有谁遇到过这个问题吗？


已经解决： dos2unix转化一下就好了