XML::DT - a package for down translation of XML to strings
use XML::DT;
%xml=( 'music' => sub{"Music from: $c\n"}, 'lyrics' => sub{"Lyrics from:$c\n (the value of attribute IN is:$v{IN}\n)"}, 'title' => sub{ uc($c) }, '-default' => sub{"$q:$c"}, '-outputenc' => 'ISO-8859-1'); print dt($filename,%xml);
print dtstring("<arq> <title>Vejam Bem</title> <music>Zeca Afonso</music> </arq>",%xml);
inctxt('music/lyrics') inctxt('music.*')
Down translation function dt
receives a filename and a set of expressions (functions) defining the
processing and associated values for each element.
dtstring
is similar but takes input from a string instead of a file.
inctxt
function
inctxt(pattern)
is true if the actual element path matches the provided pattern. This
function is ment to be used in the element functions in order to achive
context dependent processing.
$q
, the element content $c
and the atribute values hash %v
.
All those global variables are defined in $main::
.
Each time an element is find the associated function is called.
Content is calculated by concatenation of element contents strings and interior elements return values.
-default
function
-default
called. If no -default
function is defined the default function returns a XML like string for the
elemente.
-outputenc
option
-outputenc
defines the output encoding (default is Unicode UTF8).
-inputenc
option
-inputenc
forces a input encoding type. Whenever that is possible, define the input
encoding in the XML file:
<?xml version='1.0' encoding='ISO-8859-1'?>
-pcdata
function
-pcdata
function is used to define tranformation over the contents. Typically this
function should look at context (see inctxt
function)
The default -pcdata
function is the identity
-begin
function
Example of use: inicialization of sife-effect variables
-end
function
$c
content value. The value returned by -end
will be the dt
return value.
Example of use: post-processing of returned contents
$q %v $c
are defined in main. So you may have to write $::c
... if you are outside main.
http://www.di.uminho.pt/~jj/perl/XML/
lat1.pm
- module for unicode utf8 -> latin1 translation of strings
$latin1string = lat1::utf8($utf8string)