6 our(@e12) = qw(10 12 15 18 22 27 33 39 47 56 68 82);
7 our(@ex24) = qw(11 13 16 20 24 30 36 43 51 62 75 91);
8 our(@e24)= sort @e12, @ex24;
9 our(@list) = ([ \@e12, [qw(xrx)] ],
10 [ \@e24, [qw(xxr xx0r xkx xxk xx0k)] ],
11 [ [qw(10)], [qw(xmx)] ]);
14 my ($values,$decades) = @_;
17 foreach $decade (@$decades) {
18 foreach $value (@$values) {
20 s/x/ substr($value,0,1) /e;
21 s/x/ substr($value,1,1) /e;
23 printf "\tstd %s \t%d=\n", $_, $qty or die $!;
30 print "Resistors\n" or die $!;
32 addm($e->[0], $e->[1]);