Help for this page

Select Code to Download


  1. or download this
    #!e:/Perl/bin/Perl.exe -w
use strict;
...
(my $label= shift) =~ s/^(.+)+$/$1->/;
#print $label . "\n";
print walk $label, shift||0, $xml;
  2. or download this
    xmlrefs.pl C:\test\items.xml "" 1 >itemlist.refs
  3. or download this
    xml->{Category1} := General
xml->{Origin} := Canada
...
xml->{Width} := 3.56
xml->{Circa} := Early 20th Century
xml->{Dimensions} := 3.56 x 5.18m