Help for this page

Select Code to Download

Select or download this

xml_split -l 1 tsplit.xml \
&& perl -e'my @src= glob( "tsplit-*.xml"); \
          foreach my $target (`xml_grep -t name tsplit-*.xml`) \
...
              warn "rename $src, $target.xml\n"; \
              rename $src, "$target.xml";
            }'