I'm not sure why 'hard code the tags' is a hurdle to using modules, but Yes, even you can use CPAN may provide some options.
Generating simple XML with clean data (nothing that needs to be encoded as entities) ought be simple. For example (neglecting error checking and the XML header):
use strict; use warnings; print "<views>\n"; my $currId; while (<DATA>) { my ($viewId, $viewName, $paramId, $paramName) = split; print " </view>\n" if defined $currId && $currId ne $viewId; if (! defined $currId || $viewId ne $currId) { print qq( <view id="$viewId" name="$viewName">\n); $currId = $viewId; } print qq( <parameter id="$paramId">$paramName</parameter>\n +); } print " </view>\n</views>\n"; __DATA__ 123456 all 123 Param 1 123456 all 124 Param 2 123457 detail 125 Param 3 123457 detail 126 Param 4 123457 detail 127 Param 5 123457 detail 128 Param 6
Prints:
<views> <view id="123456" name="all"> <parameter id="123">Param</parameter> <parameter id="124">Param</parameter> </view> <view id="123457" name="detail"> <parameter id="125">Param</parameter> <parameter id="126">Param</parameter> <parameter id="127">Param</parameter> <parameter id="128">Param</parameter> </view> </views>
In reply to Re: Creating simple XML from a DB query
by GrandFather
in thread Creating simple XML from a DB query
by joec_
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |