XML::Parser::Expat is just the lower level interface to Expat used by XML::Parser. It is no more venerable than XML::Parser.

XML::Parser is an object factory. Every time an XML::Parser object calls its parse or parsefile method, it calls XML::Parser::Expat to create a new parser object. So it does just what you do. And if you don't need any handler there is no need to call setHandlers, there will be no handler set by default.

As XML::Parser is kinda the official interface to XML::Parser::Expat, and although your code might be marginally faster, I would prefer a slightly improved version of davorg's code, where the creation of the XML object is pulled out of the loop:

  my $p = XML::Parser->new;           # needs to be done only once
  foreach (@list_of_20_000_files) {
    eval { $p->parsefile($_) };       # creates a new XML::Parser::Exp
+at object
    if ($@) {
      print "$_ is bad\n";
    } else {
      print "$_ is good\n";
    }
  }

[download]

In reply to Re: Re: well formed xml by mirod
in thread well formed xml by marvell

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.