Hi.

I have recently used XML::DTDParser for a project and I found that it was exactly what I was looking for. It provides a convenient Perl datastructure representing a DTD which does exactly what you want: parses a DTD. There is no extra "fluff" or additional functionality which gets in the way of achieving what you want.

This said, I was not concerned with performance, nor was I writing code which I expected to be extensively reused in other projects (or reviewed by other developers). I was just writing a quick and dirty script to solve a problem, which is I believe exactly what XML::DTDParser's author (Jenda) had in mind when writing this module.

If you want something simple, I would recommend XML::DTDParser. If you are after a more complete XML library, I would look into XML::LibXML.

I hope this helps.

$q=[split+qr,,,q,~swmi,.$,],+s.$.Em~w^,,.,s,.,$&&$$q[pos],eg,print