1
0
mirror of git://projects.qi-hardware.com/eda-tools.git synced 2024-11-25 17:06:15 +02:00
eda-tools/old-boom/pardup.pl
2012-05-01 23:09:24 -03:00

17 lines
368 B
Raku
Executable File

#!/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";
}