Help for this page

Select Code to Download


  1. or download this
    #!/opt/local/bin/perl -w
    
    ...
    $struct2->print;
    print "END of struct2\n\n";
    
  2. or download this
            sub addInnerObj {
                    my ($self, $index, @obj) = @_;
    ...
                    push @{ $self->arr2d->[$index] }, @obj;
            }