chomp为什么无效？

laohuanggua

数据文件
cat c629
http://www.baidu.com/index.html
http://www.baidu.com/1.html
http://post.baidu.com/index.html
http://mp3.baidu.com/index.html
http://www.baidu.com/3.html
http://post.baidu.com/2.html

最后一行是空格和tab。不是空白！

输出每行的长度

1. #!/usr/bin/perl
   
2. 
   
3. open(INFILE,"c629")||die "";
   
4. my @array01=<INFILE>;
   
5. 
   
6. foreach(@array01){
   
7.     chomp($_);
   
8. #if(length($_)) print "$_\n";
   
9. my $len=rindex $_."\$","\$";
   
10.     print "$len\n";
    
11. }
    
12. close(INFILE);

复制代码

chomp居然无效！！！！结果是
31
27
32
31
27
28
4



当然用awk可以很方便的完成。

1. awk 'NF{print length($0);}' c629

复制代码

结果是：
31
27
32
31
27
28

toniz

1. perl -ne 'print length($_)-1;print "\n";' t.t

复制代码

laohuanggua

回复 2# toniz

木有用！

perl -ne 'print length($_)-1;print "\n";' c629
31
27
32
31
27
28
4

yybmsrs

chomp是做什么的？

laohuanggua

修改了一下：
perl -ne 'print length($_)."\n" unless(/^\s+$/)' c629

结果是
32
28
33
32
28
29

问题是我要把长度-1，该如何在单行内完成？

我不想用这种
perl -ne 'my $a=length($_)-1;print $a."\n" unless(/^\s+$/)' c629

因为如果有大量空行，就白白做了一次-1操作。

q15928

The chomp() function only removes the last character if it is a newline. It will only remove a single newline per string.