Help for this page

Select Code to Download


  1. or download this
    # Obtain the @input_A array from %LINK
my @input_A_from_link = keys %{$LINK{'input_A'}};
die Dumper(\@input_A_from_link);
  2. or download this
    # get all input_A for nand, not, and, etc..
my @all_input_A = map { my $g = $_; @_=keys $GATE{$g}; map {$GATE{$g}{
+$_}->{'A'}} @_ } keys %GATE;
die Dumper(\@all_input_A);
  3. or download this
    #!/usr/bin/perl
use warnings;
...
nand nand2_5 (N22,N10,N16);
nand nand2_6 (N23,N16,N19);
nor NOR2_1 (N6875, N6722, N6476);