为什么多输出一行？

pony2001mx

大家好：请教一个简单，但对我很不解的问题。我的脚本为什么输出三行，为什么不是两行？谢谢！！

文件file

1. first
   
2. 
   
3. 
   
4. second
   

复制代码

perl脚本

1. #!/usr/bin/perl
   
2. open F, 'file';
   
3. %list = map {
   
4.         /\S+/;
   
5.         chomp;
   
6.         $_, 1
   
7. } <F> ;
   
8. close F;
   
9. 
   
10. for $i (keys %list){
    
11.         print $i, "end\n";
    
12. }

复制代码

输出结果是

1. end
   
2. firstend
   
3. secondend

复制代码

jason680

回复 1# pony2001mx

空字符串 也 是字符串
   

q1208c

/\S+/ 是匹配没有空白就可以吧?

那 "" 算不算 ?

yestreenstars

你脚本的第4行是没有任何意义的

pony2001mx

谢谢大家的回复，我终于明白空字符串也匹配\S+，所以脚本的第4行没有任何意义。但我还有一个问题，我把脚本改成以下内容，为什么还不行？谢谢！

1. #!/usr/bin/perl
   
2. open F, 'file';
   
3. %list = map {
   
4.         chomp;
   
5.         $_ ne '';
   
6.         $_, 1
   
7. } <F> ;
   
8. close F;
   
9. 
   
10. for $i (keys %list){
    
11.         print $i, "end\n";
    
12. }

复制代码

substr函数

亲，
你脚本的第5行是没有任何意义的！

pony2001mx

第五行的目的是不输出空字符串，为什么还不行？ 请教请教！

felix0608

1. #!/usr/bin/perl
   
2. 
   
3. open F, $ARGV[0];
   
4. %list = map{chomp;/^\S+$/? ($_,1) : ()}<F> ;
   
5. close F;
   
6. for $i (keys %list){        
   
7.         print $i, "end\n";
   
8. }

复制代码

回复 7# pony2001mx


   

yeahnoob

这个地方没必要用map吧？？
完成LZ那个功能，下面这小段就可以，

1. #!/usr/bin/env perl
   
2. use Modern::Perl;
   
3. use warnings;
   
4. use autodie;
   
5. 
   
6. open my $file, "<", $ARGV[0];
   
7. for(<$file>) {
   
8.     chomp;
   
9.     say "$_ end" if /\w+/;
   
10. }

复制代码

pony2001mx

谢谢felix0608,  yeahnoob的回复!