1
0
mirror of git://projects.qi-hardware.com/eda-tools.git synced 2024-11-18 02:36:17 +02:00
eda-tools/old-boom/pardup.pl

17 lines
368 B
Perl
Raw Normal View History

2012-05-02 05:09:24 +03:00
#!/usr/bin/perl
while (<>) {
@f = split(/\s+/);
$ref = shift @f;
for ($i = 0; $i != @f; $i++) {
next unless $f[$i] eq "FIC" || $f[$i] eq "MISSING" ||
$f[$i] eq "DIGI-KEY";
splice(@f, $i, 2);
$i--;
}
next if @f < 3;
push(@{ $multi{join(" ", @f)} }, $ref);
}
for (sort keys %multi) {
print "$_ -- ", join(" ", @{ $multi{$_} }), "\n";
}