Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

That's not a simple parser

by wee (Scribe)
on Jan 29, 2015 at 19:19 UTC ( #1114965=note: print w/replies, xml ) Need Help??

in reply to XML::Parser Tutorial

I know this is a very old post, but in case anyone arrives here via Google, I wanted to note that this tutorial is misguided. There's absolutely no reason whatsoever to use XML::Parser, and the code above is needlessly complex. There's also about three times as much code as you need for something this simple. So why not use XML::Simple? It's pretty straightforward:

use warnings; use strict; use XML::Simple; # Just an example. You'd use LWP to get the actual CB. my $xml = '<CHATTER><INFO site="" sitename="Perl M +onks">Rendered by the Chatterbox XML Ticker</INFO> <message author="OeufMayo" time="20010228112952">test</message> <message author="deprecated" time="20010228113142">pong</message> <message author="OeufMayo" time="20010228113153">/me test again; : +)</message> <message author="OeufMayo" time="20010228113255">&lt;a href="#"&gt +;please note the use of HTML tags&lt;/a&gt;</message></CHATTER>'; my $ref = XMLin($xml); foreach my $msg (@{$ref->{'message'}}) { my $h = substr($msg->{'time'}, 8, 2); my $n = substr($msg->{'time'}, 10, 2); my $author = $msg->{'content'} =~ s/^\/me// ? $msg->{'author'} : "<$ +msg->{'author'}>"; print "$h:$n $author: $msg->{'content'}\n"; }
Now you have a complete a simple parser. And no dodgy regexes, either.

Replies are listed 'Best First'.
Re: That's not a simple parser (nor is XML:Simple)
by toolic (Bishop) on Jan 29, 2015 at 19:33 UTC
    So why not use XML::Simple?
    Because the module author advises against it. From the XML::Simple POD (STATUS OF THIS MODULE):
    The use of this module in new code is discouraged. Other modules are available which provide more straightforward and consistent interfaces. In particular, XML::LibXML is highly recommended.
    The major problems with this module are the large number of options and the arbitrary ways in which these options interact - often with unexpected results.
    Patches with bug fixes and documentation fixes are welcome, but new features are unlikely to be added.
Re: That's not a simple parser
by karlgoethebier (Monsignor) on Feb 01, 2015 at 13:07 UTC

      Please see also XML::LibXML::Simple for a handy replacement for XML::Simple:

      :) nope, XML::Rules is a handy replacement for XML::Simple

        Sure yes, from the view of Jenda ;-)

        BTW, i didn't know XML::Rules, thank you for the hint.

        Best regards, Karl

        «The Crux of the Biscuit is the Apostrophe»

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1114965]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2020-08-08 21:11 GMT
Find Nodes?
    Voting Booth?
    Which rocket would you take to Mars?

    Results (53 votes). Check out past polls.