Re^2: Applying XSL stylesheet specified in XML file to the XML

Hi, Thanks for the reply. I realized that I need libxslt. But unless I am missing something I don't see how to pull the xsl uri out of the xml and feed it to libxslt (XML::LibXSLT). (Maybe I just need to grep for it.) That is my problem. Can you show me some code?

Here is my code:

use lib qw|/home/blm/perl/lib|;

use strict;

use WWW::Mechanize;
use XML::LibXML;
use XML::LibXSLT;

my $mech = WWW::Mechanize->new(agent => 'Mozilla/5.0 (X11; U; Linux i6
+86; en-US;+ rv:1.9.0.1) Gecko/2008070206 Firefox/3.0.1' );

my $url = 'https://some.url.here/';
$mech->delete_header('accept-encoding');
$mech->get($url);

$mech->update_html($mech->content());

print $mech->content;
my $parser = XML::LibXML->new();
my $style_parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();

my $doc = $parser->parse_string($mech->content());
print $doc->toString();
my $stylesheet_location = ***Here is my problem***
$mech->get($stylesheet_location);
my $stylesheet_string = $mech->content();
my $styledoc = $style_parser->parse_string($stylesheet_string);
my $stylesheet = $xslt->parse_stylesheet($styledoc);
my $results = $xslt->transform($doc);
print $results;
[download]

Comment on Re^2: Applying XSL stylesheet specified in XML file to the XML Download Code

Replies are listed 'Best First'.

Re^3: Applying XSL stylesheet specified in XML file to the XML
by dHarry (Abbot) on Mar 24, 2009 at 14:23 UTC

Ah, I see. And I have to disappoint you, I use XML::Twig for XML processing in Perl and my own tools for XSLT stuff. I would not grep for it, instead there must be more XML-ish way of doing things. After all it's just a Node of a specific type, i.e. NodeType 'processing-instruction'. So I imagine parsing the file and retrieving the information should do the trick, i.e. walk the DOM tree. Suddenly the grepping doesn't sound so bad anymore;) Another option is to use SAX, I see a processingInstructionSAXFunc in the libxml2 API. However there is another Perl module that might come in handy: XML::LibXML::PI can't you do a getData?

Mind you, in "my" environment it's as simple as one method call: getAssociatedStylesheet()!

[reply]
[d/l]
[select]


Keep It Simple, Stupid
	PerlMonks