When I run this, I get 'No such file or directory at 
/usr/lib/perl5/XML/LibXML.pm line 518.

 at ./temp.pl line 16'. I have confirmed that the file exists and is readable. 
How do I T/S this?

 

 

Tony

 

#!/usr/bin/perl

 

use warnings;

use strict;

use XML::LibXSLT;

use XML::LibXML;

 

sub goforit

{

            my $object = "Development.ActivityObject";

            

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

            

            my $xslt = XML::LibXSLT->new();

 

            my $source = $parser->parse_file( 
'/usr/local/twikixconf/tmpxconf/epace/src/conf/epace.xconf' );

 

            my $style_doc = $parser->parse_file( 
"/usr/local/twikixconf/epace-to-twiki.xsl" );

 

            my $stylesheet = $xslt->parse_stylesheet( $style_doc );

 

        my $results = $stylesheet->transform( $source, object => "'" . $object 
. "'" );

 

            return $stylesheet->output_string( $results );

}

 

goforit;

my $stuff = goforit();

 

print "$stuff\n";

Reply via email to