XML::Parser is often used to read in an XML blob so you can do something interesting with it. Its a good idea to validate the XML, etc, but if you just want the blob un-XML'd try something like this:
use XML::Parser;
my $filename="justdownloaded.xml";
die "The filename specified in this script ($filename)doesnt exist..?"
+ if (! -e $filename);
my $parser = new XML::Parser(ErrorContext => 2);
$parser->setHandlers(Start => \&XMLStartHandler,
Char => \&XMLCharHandler);
$parser->parsefile($file);
sub XMLStartHandler {
my ($expat, $element, $attr, $value) = @_;
print "Attribute: $attr\n";
print "Value: $value\n";
}
sub XMLCharHandler {
my ($p, $data) = @_;
print "Data: $data\n";
}
..or something along those lines..
-Vlad
