Root/
| 1 | #!/usr/bin/perl |
| 2 | while (<>) { |
| 3 | @f = split(/\s+/); |
| 4 | $ref = shift @f; |
| 5 | for ($i = 0; $i != @f; $i++) { |
| 6 | next unless $f[$i] eq "FIC" || $f[$i] eq "MISSING" || |
| 7 | $f[$i] eq "DIGI-KEY"; |
| 8 | splice(@f, $i, 2); |
| 9 | $i--; |
| 10 | } |
| 11 | next if @f < 3; |
| 12 | push(@{ $multi{join(" ", @f)} }, $ref); |
| 13 | } |
| 14 | for (sort keys %multi) { |
| 15 | print "$_ -- ", join(" ", @{ $multi{$_} }), "\n"; |
| 16 | } |
| 17 |
Branches:
master
