Getting XML::Simple Module Error

perladdict has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks,
As i am trying to learn xml with perl, i implemented a simple script which reads the input xml and modifies the few attributes values to CAPS letter.Below is the xml sample

<?xml versions="1.0"?>
<spam-document version="3.5" timestamp="2001-05-13 15:33:45">
<!--Autegenarated by RAJPATIL-->
<customer>
<first-name>Raj</first-name>
<surname>Patil</surname>
<address>
  <street>4th block tajajinagar</street>
  <city>Bangalore</city>
</address>
<age>30</age>
</customer>
<customer>
<first-name>Vedanth</first-name>
<surname>R.Patil</surname>
<address>
  <street>4th block tajajinagar</street>
  <city>Bangalore</city>
</address>
<age>2</age>
</customer>
</spam-document>
[download]

#!/usr/bin/perl -w

use strict;
use warnings;

use XML::Simple;

my $cust_xml = XMLin('./customers.xml',forcearray=>1);

for my $customer(@{$cust_xml->{customer}})

  {
   
    foreach (qw(first-name surname)) {

         $customer->{$_}->[0] = uc($customer->{$_}->[0]);

         }
   }

      print XMLout($cust_xml);
      print "\n";
[download]

The Error message i got after running the script as:
XML or text declaration not at start of entity at line 2, column 0, byte 1 at C: /Perl64/lib/XML/Parser.pm line 187
In order to work this script do i need to install the module manually or is there any error in sample script? Monks, help to fix the issue, so that i will continue my tour of xml with perl

Comment on Getting XML::Simple Module Error Select or Download Code

Replies are listed 'Best First'.
Re: Getting XML::Simple Module Error by rovf (Priest) on Feb 23, 2012 at 12:18 UTC
I don't know whether this is the reason for the error, but the attribute in `<?xml ...>` should be version, not versions. -- Ronald Fischer <ynnor@mm.st>	[reply] [d/l] [select]
Re: Getting XML::Simple Module Error by runrig (Abbot) on Feb 23, 2012 at 15:48 UTC
It might be the version of the expat library (I have 2.0.1), but I get: `XML declaration not well-formed at line 1, column 6, byte 6 at ... /XM +L/Parser.pm line 187` [download] which points towards your "versions=", and is fixed by changing it to "version=".	[reply] [d/l]
Re: Getting XML::Simple Module Error by ww (Archbishop) on Feb 23, 2012 at 13:30 UTC
While I find rovf's analysis entirely plausible, /me (admittedly, knowing next to nothing about this topic) wonders about: `<spam-document...` at line 2, closed at 22 "<spam ...." ? (emphasis supplied) Apologies in advance if this is irrelevant, but your error message does mention line 2.	[reply] [d/l]

Back to Seekers of Perl Wisdom