Re^3: WxPerl Next button

[stefbv]

in reply to Re^2: WxPerl Next button
in thread WxPerl Next button

I second the use of Wx::SingleChoiceDialog or Wx::MultiChoiceDialog like jmlynesjr sugested.

Parsing XML like you do is not a good choice, use a dedicated module, something like this:

use strict;
use warnings;

use XML::Simple;
use Data::Printer;

my $data = do { local $/; <DATA> };          # slurp DATA

my $ref = XMLin(
    $data,
    #KeyAttr    => { Question => 'questionId' }, # unordered data
    ForceArray => ['item'],
    ContentKey => '-content'
);

p $ref;

__DATA__
<Questions>
   <Question>
       <questionId>TNHSCS010001</questionId>
       <question>Jenkins is primiary used of ...</question>
       <Answers correct="no">Nightly Builds</Answers>
       <Answers correct="yes">CI Builds</Answers>
       <Answers correct="no">Report Generation</Answers>
       <Answers correct="no">All the above</Answers>
   </Question>
   <Question>
       <questionId>TNHSCS010002</questionId>
       <question>CI builds are setup to ...</question>
       <Answers correct="yes">Catch potentail build errors</Answers>
       <Answers correct="no">Find bugs</Answers>
       <Answers correct="no">Reduce build time</Answers>
       <Answers correct="no">None of the above</Answers>
   </Question>
</Questions>

Notice that a valid XML must have a root tag. I also changed a little the structure...

Regards, Stefan