Oops. BTW line 16 is my $source = $parser->parse_file( '/usr/local/twikixconf/tmpxconf/epace/src/conf/epace.xconf' );
Tony > -----Original Message----- > From: Tony Heal [mailto:[EMAIL PROTECTED] > Sent: Monday, May 14, 2007 8:40 PM > To: beginners@perl.org > Subject: LibXML help > > 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"; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
