Perl Magic
Karthik
ORielly
Perl for Dummies
Mark
ORielly
####
$file="books.xml";
my $xp = XML::XPath->new(filename => $file);
##
##
open(INFO3, ">$file.doc");
##
##
print INFO3 "Perl Xpath\n\n";
print INFO3 "BOOK INFORMATION:\n\n";
##
##
use XML::XPath;
$file="books.xml";
my $xp = XML::XPath->new(filename => $file);
open(INFO3, "+>$file.doc");
print INFO3 "Perl Xpath\n\n";
print INFO3 "BOOK INFORMATION:\n\n";
foreach my $book ($xp->find('//Books/Book')->get_nodelist){
print INFO3 "TITLE:";
print INFO3 $book->find('title')->string_value."\n";
print INFO3 "AUTHOR:";
print INFO3 $book->find('author')->string_value."\n";
print INFO3 "\n\n";
}
print "Converted XML file into WORD file\n\n";
print $file." WORD document generated";
close(INFO3);