为什么我编写的同样的perl程序 在windows下运行和在linux下运行结果完全不同

Question

我写了一段非常简单的perl的程序但是在我的ubuntu下用perl跑出来的结果和我用windows下用activeperl跑出来的结果不一样两个编译器This is perl 5, version 20, subversion 1 (v5.20.1) built for i686-linux-gun-thread-multi-64intThis is perl 5, version 20, subversion 2 (v5.20.2) built for MSWin32-x64-multi-thread求问是哪里出了问题 万分感谢程序本体如下
#!/usr/bin/perl -wopen (FA ,"<" ,"blast.txt")||die $!;while (<FA>){ chomp; $a =$a .$_;} print "$a";

blast.txt截图如上= =windows下结果为 所有字符串成一行输出了……

linux输出只有这么一点- -望各位大佬帮助解答

Answer 1

你的目的就是要把所有行串在一起吗，下面这样就可以：

open(FD,'blast.txt');
while(<FD>){
chomp;
print;
}
close(FD);

你使用$_来串联的方法会占用大量的内存，如果只是输出不无需这么处理的。