chomp的问题！！

zhou20071801

        use strict;
        use warnings;
open(RF,"<01.txt");
while(my $line=<RF>)
{
        chomp($line);
        print"$line";
}

为什么我加上chomp($line)后就只输出最后一个元素。去掉chomp($line)或者输出加上换行print"$line\n";输出就没有错？？
跪求解释！！！chomp的问题困扰我很久了

zhou20071801

另外：在windows下运行可以正确运行，但在linux下就不行。

ulovko

回复 1# zhou20071801

1. 
   
2. It works on a variable. The variable has to hold a string. And if the string ends in a newline
   
3. character, chomp can get rid of the newline. That’s (nearly) all it does.
   
4. 
   
5. chomp is actually a function. As a function, it has a return value, which is the number
   
6. of characters removed.

复制代码

RE_HASH

大概你的文件是windows格式。
试试这个
s/[\r\n]$//;

yinyuemi

回复 1# zhou20071801


    dos2unix 转下格式

sjdy521

回复 1# zhou20071801

use open IO  => ":crlf"
   

JavasBoy

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. open(RF,"<01.txt");
   
7. while(my $line=<RF>)
   
8. {
   
9.     chomp($line);
   
10.     print"$line";
    
11. }
    

复制代码

我在Debian里用vim写入，运行正常。

zhou20071801

谢谢！！这可行。但你能解释下出现这种状况的原因吗？回复 6# sjdy521


   

sjdy521

回复 8# zhou20071801


    你把\r\n中的\n去掉，只剩\r了 当然显示上会出现问题了

zhou20071801

谢谢！:wink: 回复 9# sjdy521