Not a HASH reference using YAML

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

Hi there Monks!
I am trying to open a file(YAML) and it is giving an Software Error "Not a HASH reference at", what am I doing wrong here?

...
open my $fh, '<', 'data.txt' 
  or die "can't open config file: $!";

my @config = YAML::LoadFile($fh);
#print Dumper(@config);

 for my $record (@config) {
     my $cities = "$record->{'xml_api_reply'}{'weather'}{'forecast_inf
+ormation'}{'city'}->{'-data'}";
     my $currwind ="$record->{xml_api_reply}->{weather}->{current_cond
+itions}->{wind_condition}->{'-data'}" || '';
     #for my $subrecord (@{$record->{Field2}}) {
         #print "\t$subrecord->{Key} = $subrecord->{Val}\n";
     #}
     print "**$cities*$currwind*\n";
}
[download]

Thanks for looking!

Comment on Not a HASH reference using YAML Download Code

Replies are listed 'Best First'.
Re: Not a HASH reference using YAML by tobyink (Canon) on Aug 17, 2012 at 06:12 UTC
You are trying to treat something as a hash reference (i.e. doing this: `->{foobar}`) but it's not a hash reference; it's some other kind of reference. (Given that the source of the data is YAML, I'd put my money on it being an array reference.) `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l]
Re^2: Not a HASH reference using YAML by Anonymous Monk on Aug 17, 2012 at 14:39 UTC
How would you do it if it is an array reference? Thanks!	[reply]
Re^3: Not a HASH reference using YAML by tobyink (Canon) on Aug 17, 2012 at 15:10 UTC
Array refs use square brackets rather than curly braces; and numeric indices rather than strings. So something like `->[0]`. Of course, I haven't seen your data, so it's impossible for me to say at what point you need to do this. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l]
Re: Not a HASH reference using YAML by rpnoble419 (Pilgrim) on Aug 17, 2012 at 05:53 UTC
The Loadfile function will open and read the file for you. See the code below.... `#!/usr/bin/perl use YAML qw(LoadFile); my %Config; %Config=LoadFile("YAMLFile.txt"); print $Config{Item1}{SubItem1};` [download]	[reply] [d/l]