Re^2: Perl 5.8 to 5.16 and HASH error

Dumper data below. Hope it helps

$VAR1 = {
          'Table' => 'siclonesites',
          'Site' => 'admin_eventres',
          'Pwd' => 'woev1',
          'e21' => 'siclone',
          'Action' => 'Update',
          'data' => [
                      {
                        'SCSS' => {},
                        'Revisit' => {},
                        'DefStyle' => {},
                        'TransLinks' => {},
                        'Styles' => 'woe_v1~woe_v1_login',
                        'FixedPath' => {},
                        'SClass' => {},
                        'HTags' => {},
                        'SDesc' => 'WhatsOnEverywhere.com',
                        'Product' => 'siclone',
                        'Sitemap' => {},
                        'SSite' => 'WOEV1',
                        'Links' => {},
                        'SFolder' => 'C:\\e21software\\Web\\whatsoneve
+rywhere\\v1',
                        'RobotsTxt' => {},
                        'OnlineDB' => 'APIPass|7XDX5X2X9X6XEX7XCX6X9X9
+X4X2XBXBX~DBUser|6XBX1023BF05E76E8B9CD42B2B2CBE08~DBPass|EXB9A1X5B553
+09965FD463CAC928A089~Server|example.com~SiteCode|admin_eventres',
                        'ReplyTo' => {},
                        'Dist' => {},
                        'SFTP' => 'www.example.com~someuser~somepass~h
+ttpdocs,templates~',
                        'OtherRef' => {},
                        'SCharset' => {},
                        'SMenuType' => 'Horizontal List~~~~~~~~~~~~~~~
+~~~~',
                        'Vars' => 'eng|$MENUNO=01',
                        'SAuthor' => 'Rob Jones',
                        'Language' => 'eng',
                        'ImageOff' => '/images',
                        'SMenuOpt' => {},
                        'SRating' => {},
                        'SCopyright' => 'Copyright 2012 Example.com. A
+ll Rights Reserved',
                        'SServer' => 'U',
                        'SRoot' => 'index.php',
                        'SMenu' => '01$Lang^HomePage^->index.php~01$La
+ng^Venues^->venues.php~01$Lang^Artists / Acts^->artists_acts.php~01$L
+ang^AbtUs^->about-us.php~01$Lang^ContactButton^->contact.php',
                        'Languages' => 'eng,deu,esp,fra~../en|../de|..
+/es|../fr~H~F',
                        'SRobots' => {}
                      },
                      {
                        'XxX' => 'eod'
                      }
                    ]
        };
[download]

Thanks for your help

Rob

Comment on Re^2: Perl 5.8 to 5.16 and HASH error Download Code

Replies are listed 'Best First'.
Re^3: Perl 5.8 to 5.16 and HASH error by ig (Vicar) on Sep 12, 2012 at 20:00 UTC
From your Dumper output you can see that `$Xml->{data}` is a reference to an array, not a hash. You can either change your code to produce the hash reference as it did before or change your code to work with the array as you are getting now. Which will be easier for you I can't say, having seen so little of your code. I would look carefully to see why the second hash in the array appears: the one with a single key 'XxX'. That key looks a little odd to me. Perhaps someone added some 'test' data to the input? One option would be to ignore the second and any other hashes that might appear in the array and process only the first one. This would be an easy next step at least, and you could always make further changes later. To process the first hash, you can change your loop to something like: foreach $key (keys %{$Xml->{data}->[0]}){ $sql1.="`$key`,";$sql2.="`$key`=?,";$sql3.='?,'; } [download]	[reply] [d/l] [select]
Re^4: Perl 5.8 to 5.16 and HASH error by robsgoingmad (Initiate) on Sep 14, 2012 at 18:15 UTC
Hi I am going to go away and check the data. Thanks for all the useful help. The XxX is ok, but I need to investigate myself its exact purpose. Back in touch when I have checked Have a good weekend Regards Rob	[reply]