Help for this page

Select Code to Download


  1. or download this
    print Dumper ( $xst->{cmts}{STBDSG}{dsg} );
print Dumper ( $xst->{cmts}{STBDSG}{dsg}[0] );
print Dumper ( $xst->{cmts}{STBDSG}{dsg}[0]{tag1} );
  2. or download this
    $VAR1 = [
          {}
        ];
$VAR1 = {};
$VAR1 = undef;
  3. or download this
    my $xst;        

...
    $xst = eval { $xs->XMLin($xml,KeyAttr=>1) };
    &printXMLErr($@) if($@);
}