判断式文件处理如何写？

夏洛特猫

不知道周六各位大神还在不在，有一个问题不知道如何实现，麻烦各位前辈帮忙看看如何处理thanks~

问题描述：文件中有四列 用户名 标签 日期 用户信息，标签是由用户信息个数决定的，如果信息为空标签显示为0，如果有内容则标签显示为1，年份是3年
         
                查找文件中标签中含有0的用户并把这个用户的所有条数删除，同时删除记录条数不全的数据

文件内容

1 11111 2013 a b c d e
2 11011 2013 a b d c
3 11111 2013 a d c e b
1 11110 2014 a b c d
2 11111 2014 a a a a a
3 11111 2014 b b b b b
4 11111 2014 c c c c c
1 11111 2015 b b b b b
2 11111 2015 c c c c c
3 11111 2015 d d d d d
4 111111 2015

其中用户2 用户1是数据条数有缺失，用户4是总的记录条数有缺失
希望经过判断后只输出

3 11111 2013 a d c e b
3 11111 2014 b b b b b
3 11111 2015 d d d d d

cao627

1. awk 'NR==FNR{if($2~0 || NF<=3){a[$1]=1};next}{if(!a[$1])print}' filex filex
   

复制代码

moperyblue

1. awk 'NR==FNR{if($2~0||NF<8)a[$1]=1;next}!a[$1]' file file

复制代码

moperyblue

1. awk '{if($2~0||NF<8)a[$1]=1;else b[$1,++c[$1]]=$0}{d[$1]++}END{l=c[asort(c)];for(i in d)for(j=0;j++<l;)if(!a[i])print b[i,j]}' file

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData = ();
   
6. while (<DATA>){
   
7.     my ($id, $label, $date, @aList) = split;
   
8.     my @aLabel = split (//, $label);
   
9.     $hData{$id}{'N'}++ if (@aLabel != @aList or $label =~ /0/);
   
10.     push (@{$hData{$id}{'V'}}, $_);
    
11. }
    
12. 
    
13. print @{$hData{$_}{'V'}} for grep {!defined ($hData{$_}{'N'})} keys %hData;
    
14. 
    
15. __DATA__
    
16. 1 11111 2013 a b c d e
    
17. 2 11011 2013 a b d c
    
18. 3 11111 2013 a d c e b
    
19. 1 11110 2014 a b c d
    
20. 2 11111 2014 a a a a a
    
21. 3 11111 2014 b b b b b
    
22. 4 11111 2014 c c c c c
    
23. 1 11111 2015 b b b b b
    
24. 2 11111 2015 c c c c c
    
25. 3 11111 2015 d d d d d
    
26. 4 111111 2015

复制代码

jason680

回复 1# 夏洛特猫

$ awk '{a[$1]=a[$1]$0"\n";if($2~/0/||NF<4)b[$1]=1}END{for(n in a)if(!b[n])printf a[n]}' FILE
3 11111 2013 a d c e b
3 11111 2014 b b b b b
3 11111 2015 d d d d d

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = ();
   
6. while (<DATA>){
   
7.     my @aT = split;
   
8.     push (@{$aData[$aT[0]]}, [$_, $#aT]);
   
9. }
   
10. 
    
11. for (@aData){
    
12.     next unless defined;
    
13.     my @aT = sort {$a->[-1] <=> $b->[-1]} @$_;
    
14.     next if ($aT[0][-1] != $aT[-1][-1]);
    
15.     print $_->[0] for @aT;
    
16. }
    
17. 
    
18. __DATA__
    
19. 1 11111 2013 a b c d e
    
20. 2 11011 2013 a b d c
    
21. 3 11111 2013 a d c e b
    
22. 1 11110 2014 a b c d
    
23. 2 11111 2014 a a a a a
    
24. 3 11111 2014 b b b b b
    
25. 4 11111 2014 c c c c c
    
26. 1 11111 2015 b b b b b
    
27. 2 11111 2015 c c c c c
    
28. 3 11111 2015 d d d d d
    
29. 4 111111 2015

复制代码

夏洛特猫

回复 6# jason680
谢jason哥 ！！

夏洛特猫

回复 4# moperyblue

thanks~ bule!! 多谢帮助~~学习啦

夏洛特猫

回复 7# sunzhiguolu
perl的忠实用户 同样谢啦~thanks