太神奇了！？

太神奇了！？
在我的程序里有这样一段代码
print "hspsfor:\n";
输出了“hspfor”但不换行？？？
改写为
print "hspfor:\r\n";
才换行？
为啥啊？难道是perl的bug，觉得不可能啊

有人遇到这样的问题吗？ 有人遇到这样的问题吗？

你的操作系统是什么--.
你的操作系统是什么

可以肯定是程序中间出了问.
可以肯定是程序中间出了问题。使用的是cygwin，unix，editplus编辑器
原因找到了，但不能理解。你能帮我看一下不？发email给你，不是太复杂

不能贴这儿么？.

#!/usr/bin/perl--use s.
#!/usr/bin/perl
use strict;
my $infile=shift;
open(IN,$infile) || die "fail $infile";
$/=">";<IN>;$/="\n";
while (<IN>) {
my $header=$_;
my ($seqid)=$header=~/^(\S+)/;
print "$seqid\n\n";
$/=">";
my $seq=<IN>;
chomp $seq;
$/="\n";

my @lines=split(/\n/,$seq);
foreach my $k (0..$#lines) {print $lines[$k],"\n"}
print "end:\n";
print "end:\n";
}
[color=red][/color][color=red][/color][color=red][/color][color=#DC143C][/color]

#!/usr/bin/perl--use s.
#!/usr/bin/perl
use strict;
my $infile=shift;
open(IN,$infile) || die "fail $infile";
$/=">";<IN>;$/="\n";
while (<IN>) {
my $header=$_;
my ($seqid)=$header=~/^(\S+)/;
print "$seqid\n\n";
$/=">";
my $seq=<IN>;
chomp $seq;
$/="\n";

my @lines=split(/\n/,$seq);
print $lines[0],"\n";
print "end:\n";
print "end:\n";
}

>TA25532_3702 --ATG.
>TA25532_3702
ATGAGGAGAGGAAGAGGCTCTTCCGCCGTCGCCGGACCTACCGTCGTTGC
CGCCATCAACGGATCTGTAAAAGAAATCAGATTCAGAGGCGTAAGGAAGA
GACCTTGGGGACGATTCGCAGCTGAGATCCGTGATCCATGGAAAAAAGCT
CGTGTTTGGTTAGGTACTTTCGATTCCGCCGAAGAAGCTGCTCGCGCTTA
CGACTCCGCCGCTCGTAACCTCCGTGGTCCTAAAGCCAAAACTAATTTCC
TCTTCACTGTACCGATCTACGTCTCTAA
>TA25533_3702
ATGAGGAGAGGAAGAGGCTCTTCCGCCGTCGCCGGACCTACCGTCGTTGC
CGCCATCAACGGATCTGTAAAAGAAATCAGATTCAGAGGCGTAAGGAAGA
GACCTTGGGGACGATTCGCAGCTGAGATCCGTGATCCATGGAAAAAAGCT
CGTGTTTGGTTAGGTACTTTCGATTCCGCCGAAGAAGCTGCTCGCGCTTA
CGACTCCGCCGCTCGTAACCTCCGTGGTCCTAAAGCCAAAACTAATTTCC
CCATCGATTCTTCTTCTCCTCCTCCTCCCAATCTCCGATTTAATCAGATT

最下面的是输入文件-- 最下面的是输入文件

第一个程序输出，换行符不.
第一个程序输出，换行符不翼而飞了

第二个程序输出，换行符在