not a hash reference bei JSON decode (Allgemeines zu Perl)

[thread]19513[/thread]

not a hash reference bei JSON decode

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+5 replies

Gast perl_gast

2015-02-18 00:35

Hallo,

nach vielen Versuchen komme ich nicht weiter

Code: (dl )

...  
  my $decoded = decode_json( $response->content ); 
  if ($type eq "local") {
     print Dumper(\%$decoded); #only with: use Data::Dumper;
    my $value = $decoded->{data}->{tuples}[0][1]; # < Hier kommt der Fehler: not a hash refence

Dumper output:

Code: (dl )

$VAR1 = {
          'version' => '1',
          'data' => [
                      {
                        'protocol' => 'x',
                        'tuples' => [
                                      [
                                        '1424006943281',
                                        '15098'
                                      ]
                                    ],
                        'last' => '1424006943281',
                        'interval' => 30,
                        'uuid' => '180'
                      }
                    ],
          'generator' => 'a'
        };

Wie kann ich $value mit 15098 befüllen?
Last edited: 2015-02-18 00:38:02 +0100 (CET)

+3 replies
Linuxer

2015-02-18 00:40
User since
2006-01-27
3870 Artikel
HausmeisterIn
Indem Du die Datenstruktur korrekt erkennst und derefenzierst.

Unter "data" liegt eine Array-Referenz, die Du nicht berücksichtigst. Erst darin liegt eine Hash-Referenz, in der Du den Key "tuples" findest.

Versuch es mal mit (ungetestet):
Code (perl): (dl )

my $value = $decoded->{data}->[0]->{tuples}[0][1];
PS: Wald und Bäume und so; da übersieht man das durchaus mal ;-)

edit: typo fixed
Last edited: 2015-02-18 10:15:26 +0100 (CET)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- Gast Perl_Gast
  
  2015-02-19 21:51
  
  Danke für den Wegweiser aus dem Wald.
  
  Hättest du noch einen Tipp, wie man den Komplettabsturz des Programms bei diesem Fehler verhindern kann, falls sich die Struktur ändert?
  Last edited: 2015-02-19 22:07:57 +0100 (CET)
  - Linuxer
    
    2015-02-19 22:57
    User since
    2006-01-27
    3870 Artikel
    HausmeisterIn
    
    Du kannst den Teil in ein (Block-) eval() packen und dann eine Warnung ausgeben, falls ein Fehler auftrat.
    Siehe: perlfunc eval
    
    Schema:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
    
    #! /usr/bin/perl use strict; use warnings; use 5.010.000; my $data = { foo => [ { bar => 123 }, ], }; # keep this declaration outside of the eval-block my $val = "not defined"; # this with error eval { $val = $data->{foo}->{bar}; }; warn "$@\n" if $@; # check say "I'm alive and val is: $val"; # this hopefully without error eval { $val = $data->{foo}->[0]->{bar}; }; warn "$@\n" if $@; # check again say "I'm still alive and val is: $val";
    
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
FIFO

2015-02-18 08:41
User since
2005-06-01
469 Artikel
BenutzerIn
Guest perl_gast

Code: (dl )

print Dumper(\%$decoded);
Nebenbei: print Dumper($decoded); reicht. Ist ja schon eine Referenz, die Du mit % dereferenzierst, um dann mit \ wieder eine Referenz herzustellen.
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

View all threads created 2015-02-18 00:35.