3 if (m/^\s*(Pin|Via)\[\-?\d+ \-?\d+ (\d+) (\d+) (\d+) (\d+) .*\]$/) {
4 $have{ sprintf "%s %05d %05d %05d %05d",
7 PCB | Grid | Cursor | Thermal | DRC |
8 Flags | Groups | Styles |
9 Layer | Line | Text | Arc | Polygon |
11 Element | ElementLine | ElementArc |
12 NetList | Net | Connect ) \s* (?: \( | \[ ) /x ||
15 m/^ (?: \s* \[ \d+ \s \d+ \] )+ \s* $/x) {
21 @i= qw(Pv Pad Poclr Rsist Drill PaRs DrPa Count);
22 $ix=0; map { $i{$_}= $ix++; } @i;
24 printf "%-3s %5s %5s %5s %5s %6s %6s %5s\n", @i
27 foreach $k (sort keys %have) {
29 $v[$i{Count}]= $have{$k};
30 $v[$i{PaRs}]= 0.005 * ($v[$i{Rsist}]-$v[$i{Pad}]);
31 $v[$i{DrPa}]= 0.005 * ($v[$i{Pad}]-$v[$i{Drill}]);
32 printf "%-3s %5d %5d %5d %5d %6.2f %6.2f %5d\n", @v