farnell/bulkres-select-gen.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 our($qty) = 50;
   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)] ]);
  12
  13 sub addm ($$) {
  14     my ($values,$decades) = @_;
  15     my ($decade,$value);
  16
  17     foreach $decade (@$decades) {
  18         foreach $value (@$values) {
  19             $_= $decade;
  20             s/x/ substr($value,0,1) /e;
  21             s/x/ substr($value,1,1) /e;
  22             s/0$//;
  23             printf "\tstd %s \t%d=\n", $_, $qty or die $!;
  24         }
  25     }
  26 }
  27
  28 sub main () {
  29     my ($e);
  30     print "Resistors\n" or die $!;
  31     foreach $e (@list) {
  32         addm($e->[0], $e->[1]);
  33     }
  34 }
  35
  36 main();