Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^3: Odd number of elements in anonymous hash!

by NetWallah (Abbot)
on Aug 19, 2012 at 19:07 UTC ( #988352=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Odd number of elements in anonymous hash!
in thread Odd number of elements in anonymous hash!

It is not clear if you are trying to push a SCALAR or HASHREF into @data.

If you want a SCALAR, take out the outermost {}, and use an assignment instead of my recommended =>.

You may want to remove the "push" statement from the code entirely, because with it, you are entering the same information twice, into @data.

             I hope life isn't a big joke, because I don't get it.
                   -SNL


Comment on Re^3: Odd number of elements in anonymous hash!
Re^4: Odd number of elements in anonymous hash!
by Anonymous Monk on Aug 19, 2012 at 19:44 UTC
    I am trying to do is to add extra data in there "report_date". At the end I would like to have my file looked like this:
    $VAR1 = [ { 'xml_api_reply' => { '-version' => '1', 'weather' => { 'report_date' => { '-d +ata' => '08-19-2012 @ 15:40:26' }, '-row' => '0', 'current_conditions' = +> { + 'icon' => { + '-data' => '/ig/images/weather/mostly_cloudy.gif' + }, + 'temp_f' => { + '-data' => '70' + }, + 'temp_c' => { + '-data' => '21' + }, + 'wind_condition' => { + '-data' => 'Wind: E at 7 mph' + }, + 'humidity' => { + '-data' => 'Humidity: 65%' + }, + 'condition' => { + '-data' => 'Mostly Cloudy' + } + }, } } }, ];

    Thanks!

      Hello Anonymous Monk,

      I don’t see how the code you gave in your original question can be what you are really using, since you have:

      ... open (FILE, ">data.txt") or die "can't open file: $!"; my $weather_data = do "data.txt"; ...

      which first opens the file for writing — thereby truncating it! — and only then reads in its (now empty) contents.

      In any case, it is simpler (and therefore less error-prone) to read and write the file in wholly separate steps. Here is a script which does that:

      #! perl use strict; use warnings; use Data::Dumper; use Date::Format; { my $file = 'data.txt'; my $today = get_timezone(); my $weather_data = do $file; ${ $weather_data->[0]{xml_api_reply}{weather} }{report_date} = { ' +-data' => $today }; open(my $out, '>', $file) or die "Cannot open file '$file' for wri +ting: $!"; print $out Dumper($weather_data); close($out) or die "Cannot close file '$file': $!"; } sub get_timezone { $ENV{'TZ'} = 'America/New_York'; return time2str('%m-%d-%Y @ %H:%M:%S', time); }

      This outputs:

      $VAR1 = [ { 'xml_api_reply' => { '-version' => '1', 'weather' => { 'report_date' => { '-d +ata' => '08-20-2012 @ 18:50:16' }, '-row' => '0', 'current_conditions' = +> { + 'icon' => { + '-data' => '/ig/images/weather/mostly_cloudy.gif' + }, + 'temp_f' => { + '-data' => '70' + }, + 'temp_c' => { + '-data' => '21' + }, + 'wind_condition' => { + '-data' => 'Wind: E at 7 mph' + }, + 'condition' => { + '-data' => 'Mostly Cloudy' + }, + 'humidity' => { + '-data' => 'Humidity: 65%' + } + } } } } ];

      as required.

      Hope that helps,

      Athanasius <°(((><contra mundum

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://988352]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2014-09-02 01:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (18 votes), past polls