bojan.blog » Programming

XML parsing with Perl using XPath

Bojan — Mon, 21 Aug 2006 22:01:43 +0000

use strict;
use XML::LibXML;

# data source
my $xml_filename = "xml/data.xml";

my $parser = XML::LibXML->new;
my $doc = $parser->parse_file($xml_filename);

my $xpath = "//word/entry[\@src=\"pr\"]/..";
my @words = $doc->findnodes($xpath);

foreach my $word (@words) {
	print $word->findvalue("\@id");
	print "\n";
}

File modified timestamp with Perl

Bojan — Mon, 21 Aug 2006 21:43:29 +0000

This is how to quickly get the timestamp of when the file was last modified in Perl:

$lastmod = (stat($filename))[9];

XSLT transform with Perl

Bojan — Mon, 21 Aug 2006 21:27:11 +0000

Here is a Perl snippet that transforms an XML file with XSLT:

use strict;
use XML::XSLT::Wrapper;

my $xml_input_filename = "xml/data.xml";
my $xml_output_filename = "xml/out.xml";
my $xsl_filename = "xml/transform.xslt";

my $xslt = XML::XSLT::Wrapper->new(
		ProcessorList => [
			'libxslt',
			'sablotron',
			'xslt'
		],
	);
my $result = $xslt->transform(
		OutFile => $xml_output_filename,
		xml => $xml_input_filename,
		xsl => $xsl_filename,
	);
$xslt->dispose();

Values given to [code]]czo2OlwieG1sID0+XCI7e1smKiZdfQ==[[/code] and [code]]czo2OlwieHNsID0+XCI7e1smKiZdfQ==[[/code] can be either file names, or xml/xslt code passed as a string.

If [code]]czo3OlwiT3V0RmlsZVwiO3tbJiomXX0=[[/code] is ommited, then the result of the transformation is returned to the variable [code]]czo3OlwiJHJlc3VsdFwiO3tbJiomXX0=[[/code].