Select Code to Download

use XML::Simple qw(:strict);

use strict;
use XML::Simple qw(:strict);
...
  print "$book->{title}\n";
  print "  $_\n" foreach(@{$book->{author}});
}

No value specified for 'forcearray' option in call to XMLin() at ./str
+icttest.pl line 26

my $library = XMLin($xml, forcearray => [ qw(book author) ]);

No value specified for 'keyattr' option in call to XMLin() at ./strict
+test.pl line 26

my $library = XMLin($xml,
  forcearray => [ qw(book author) ],
...
);

print $library->{book}->{1565922204}->{title}, "\n";

my $library = XMLin($xml, forcearray => [ qw(book author) ], keyattr =
+> [] );

Learning Perl, 3rd Edition
  Randal L. Schwartz
...
Guitar for Dummies
  Mark Phillips
  John Chappell

my $library = XMLin($xml,
  forcearray => [ qw(author) ],
...
);

print $library->{book}->{1565922204}->{title}, "\n";

<book> set in keyattr but not in forcearray at ./stricttest.pl line 26