怎样除去列表中数值均为0的行

xunong

如题，A文件
name W X Y Z
a       1  0 4 5
b       0  0  0  0
c       3  9  0  7
d       0  0  0  0
.......

求大神指教！
怎样将得分均为0的行移除？例如表中的b，d两行

felix0608

1. my @arr=map{chomp;@a=split;my $c= grep{/^0$/}@a; $c eq $#a ? ():$_}<DATA>;
   
2. print $_,"\n" for@arr;
   
3. __DATA__
   
4. name W X Y Z
   
5. a       1  0 4 5
   
6. b       0  0  0  0
   
7. c       3  9  0  7
   
8. d       0  0  0  0

复制代码

回复 1# xunong


   

清泉一边

回复 1# xunong
#!/usr/bin/perl  -w
use strict;
my %hash;
my $first = <DATA>;
print $first;
while (<DATA>
{
my ($k,@v) = split /\s+/;
my $total = 0;
$total += $_ for (@v);
print $_ if $total != 0;
}


__DATA__
name W X Y Z
a       1  0 4 5
b       0  0  0  0
c       3  9  0  7
d       0  0  0  0

   

清泉一边

回复 3# 清泉一边


   

xunong

谢谢！！！！

mcshell

1.    map{print unless scalar( my  @n = /\b0\b/g) == 4}  <DATA>;

复制代码

huang6894

额。。。

1. 
   
2. map{print if /\s+[1-9]/}<DATA>;
   
3. __DATA__
   
4. name W X Y Z
   
5. a       1  0 4 5
   
6. b       0  0  0  0
   
7. c       3  9  0  7
   
8. d       0  0  0  0
   

复制代码

yestreenstars

应该用unless才对吧~而且这样会将正常的数据a 100 100 5 5也过滤掉~{:3_186:}
回复 6# mcshell


   

yestreenstars

如果数据有负数，这招就不管用了~{:3_193:}
回复 3# 清泉一边


   

yestreenstars

1. print scalar <DATA>;
   
2. map { my @a = split; print unless ( grep { /^0$/ } @a ) == $#a } <DATA>;

复制代码