Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl --
use strict;
...
        print "\tContent:\t$doc->{INNERSUB}->{INNERSUB1}->{$element}[0
+]->{content}\n";
}
exit(0);
  2. or download this
    <SUB CLASSNAME="SUB1">
   <INNERSUB CLASSNAME="INNERSUB1">
...
        <Element2 Type="Type2">Content</element2>
   </INNERSUB>
</SUB>
  3. or download this
    $VAR1 = {
          'INNERSUB' => {
...
Element1
        Type:   Type1
        Content:        Content