空值的判断

LT2016

小白想请教大家，我的文件有几列的字段是空的，怎么跳过有空值的行呢？
比如:
1   2   3
1        3
1   1   1
第二行的第二列是空值，
while循环文件时怎么跳过第二行啊？谢谢大家
每列是tab分割的

523066680

1. use Modern::Perl;
   
2. 
   
3. my @a;
   
4. my $s;
   
5. while ( $s =  <DATA>)
   
6. {
   
7.     @a = $s=~/(\d+)/g;
   
8.     next if ($#a < 2);
   
9.     say @a;
   
10. }
    
11. 
    
12. __DATA__
    
13. 1   2   3
    
14. 1        3
    
15. 1   1   1

复制代码

或者针对处理，如果空格都是固定的，那就略过存在3个空格以上的行

1. use Modern::Perl;
   
2. 
   
3. my $s;
   
4. while ( $s =  <DATA>)
   
5. {
   
6.     next if ( $s=~/\s{4,}/ );
   
7.     print $s;
   
8. }
   
9. 
   
10. __DATA__
    
11. 1   2   3
    
12. 1        3
    
13. 1   1   1

复制代码

LT2016

不用模块，有没有别的方法啊？