- 论坛徽章:
- 307
|
- #!/usr/bin/perl
- use strict;
- use warnings;
- my %hData = ();
- while (<DATA>){
- my ($id, $label, $date, @aList) = split;
- my @aLabel = split (//, $label);
- $hData{$id}{'N'}++ if (@aLabel != @aList or $label =~ /0/);
- push (@{$hData{$id}{'V'}}, $_);
- }
- print @{$hData{$_}{'V'}} for grep {!defined ($hData{$_}{'N'})} keys %hData;
- __DATA__
- 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
复制代码 |
|