Problem mit JSON<->einer API, Ausgabe will nicht (Allgemeines zu Perl)

[thread]16528[/thread]

Problem mit JSON<->einer API, Ausgabe will nicht

Tags: perl5 JSON Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+21 replies
SCG

2011-07-14 19:43
User since
2011-07-14
9 Artikel
BenutzerIn
Hallo

Habe mich erst neu registriert da ich auf der Suche nach Hilfe bin. Hoffe das mir hier jemand helfen kann.
Ich habe von Perl keine große Ahnung, eher PHP und mache wohl deshalb alles falsch.

Mein Problem ist folgendes...
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 28 29 30 31 32 33 34 35 36 37 38 39

#!/usr/bin/perl -w use LWP; use JSON; use strict; use warnings; use Date::Calc qw(:all); use LWP::Simple; sub get_lautfm_playing($) { my $station = shift; my $url = get ("http://api.laut.fm/station/".$station."/current_song"); my $json_obj = decode_json $url; $$json_obj{'artist'} = 'unbekannt' if !defined($$json_obj{'artist'}); $$json_obj{'title'} = 'unbekannt' if !defined($$json_obj{'title'}); # Rückgabe von Artist und Title if($$json_obj{'title'}=~m/(.*?)\s*$(.*)$\s*(\d+)/) { # Artist, Titel, Version, Jahr ($$json_obj{'artist'},$1,$2,$3); } elsif($$json_obj{'title'}=~m/(.*?)\s*$(.*)$/) { # Artist, Titel, Version, Jahr = '' ($$json_obj{'artist'},$1,$2,''); } else { # Artist, Titel, Version = '', Jahr = '' ($$json_obj{'artist'},$$json_obj{'title'},'',''); } }
Als Artist bekomme ich nur einen Hash-Wert als Ausgabe und weiß einfach nicht warum. Die Ausgabe des title ist dagegen ok.

Der var_Dump von $json_obj
Code: (dl )

string(304) "{"id":943936,"title":"Body Heat (12-Inch) 1978","album":"Disco & High-Energy Tracks","genre":"Disco","releaseyear":"1978","created_at":"2011-07-11 14:10:42 +0200","started_at":"2011-07-14 19:30:33 +0200","length":309,"ends_at":"2011-07-14 19:35:42 +0200","type":"song","artist":{"name":"Alicia Bridges"}}"
Ich brauche die Ausgabe des Namens, nur sind leider alle meine Versuche gescheitert.
Wenn ich 'name' angeben bekomme ich garkeine Ausgebe, mit artist->name
wirft Perl Fehler. Ich weiß einfach nicht wie ich das Problem lösen kann.
Mit PHP ist das garkein Problem, doch ich benutze Perl nur für diese Sache weils sein muss, darum wäre es blöd jetzt nur dafür extra sich intensiv mit Perl zu beschäftigen, hoffe deshalb jemand kann mir hier helfen, auch wenn ich kein Profi bin. Danke.

p.S. dies ist nicht der ganze Code, es geht weiter, nur dieser Block macht mir Probleme alles andere is ok.
Last edited: 2011-07-16 18:33:55 +0200 (CEST)
- pq
  
  2011-07-14 20:17
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Verschoben von Perl/CGI nach Allgemeines zu Perl
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +2 replies
- pq
  
  2011-07-14 20:22
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  du brauchst $json_obj->{artist}->{name}
  
  denn $json_obj->{artist} ist ein hash, sieht man auch am json selbst: "artist":{"name":"Alicia Bridges"}
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - SCG
    
    2011-07-14 20:37
    
    User since
    2011-07-14
    9 Artikel
    BenutzerIn
    
    Tatsache, mein Gott, ob du es glaubst oder nicht, ich hatte das auch schon FAST so nur die {} hatte ich vergessen, bzw. immer die PHP Schreibweise
    ->artist->name was dort ja auch so funktioniert. Nun gut, Perl ist nicht PHP.
    
    Vielen Dank!
- +17 replies
- SCG
  
  2011-07-14 21:24
  User since
  2011-07-14
  9 Artikel
  BenutzerIn
  zu früh gefreut, das will und will nicht, jetzt kommt das.
  habe auch schon was gefunden im web und auch versucht doch
  dann gibt wieder andere fehler, immer diese zeile.
  hätte nicht gedahct das perl so kompliziert sein kann.
  
  Code: (dl )
  
  Not a SCALAR reference at line 33.
  - +16 replies
  - pq
    
    2011-07-14 21:42
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    zeig mal den zugehörigen code
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +15 replies
    - SCG
      
      2011-07-14 22:23
      
      User since
      2011-07-14
      9 Artikel
      BenutzerIn
      
      Habs, ich habe anstatt einmal $ es bei zweimal belassen da ich übersehen habe das du das $ nur einmal hast. Habe es dann aber doch noch bemerkt. Sorry für den ganzen Spam hier.
      
      Eine Frage habe ich aber noch.
      Wie muss die Zeile 17 oben im Code lauten? so lassen? oder muss diese auch abgeändert werden?
      - +13 replies
      - kristian
        
        2011-07-14 22:33
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        ohne lange zu denken...
        
        $json_obj ist eine Refenz, in C+ wäre es ein Zeiger.
        In PHP, hmmm gibt es das _SO_ imho nicht, siehe es wie ein Object in PHP.
        
        Die Schreibweise in Perl ist $json_obj->{'foo'} bzw. wenn es tiefer geht $json_obj->{'foo'}->{'bar'} wenn es alles Hashes sind (assoziative Arrays)
        
        HTH
        
        Kristian
        
        Last edited: 2011-07-14 22:34:54 +0200 (CEST)
        
        +12 replies
        
        SCG
        
        2011-07-14 22:54
        
        User since
        2011-07-14
        9 Artikel
        BenutzerIn
        
        Hallo Kristian
        
        Ja das habe ich jetzt auch verstanden, danke euch.
        
        Mit Perl so ansich das was ich bis jetzt gemacht habe, rennt ja auch, nur in Verbindung mit jSon habe ich noch so meine Probleme.
        In PHP wird ja kein { oder ( benutzt, auch nicht wenns in die Tiefe geht. Aber jetzt weiß ich es, vieles ist aber gleich oder fast genauso nur etwas anders.
        
        Nur eines verstehe ich jetzt nicht, warum motzt Perl unten im Code aber nicht oben? wenn ich die Schreibweise oben in Zeile 17 anwende gibt es einen Fehler. Warum eigentlich? ich müsste doch oben auch auf name zeigen oder nicht?
        
        kristian
        
        2011-07-14 23:05
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        Referenz war klar.
        
        OK, man kann dereferenzieren.
        $ref ist die Referenz.
        
        @{$ref} wäre gut wenn $ref ein Array wäre.
        %{$ref} wäre gut wenn $ref ein Hash wäre.
        ${$ref} wäre gut wenn $ref ein Scalar wäre.
        
        In allen Fällen kann man die {} weglassen.
        
        Sorry, was bei deiner Schreibe rauskommt kann ich dir im Moment gar nicht sagen, da muss ich mich reindenken wenn nicht gerade Vollmond ist... (und so)
        
        Gruß
        Kristian
        
        PS:
        Aber morgen wenn ich wieder denken kann lache ich drüber
        Oder PQ erbarmt sich gleich unser... ;-)
        
        EDIT:
        Was dann ja auch 3 Minuten später der Fall war...
        Last edited: 2011-07-14 23:11:18 +0200 (CEST)
        
        +10 replies
        
        Linuxer
        
        2011-07-14 23:12
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Du machst es einem nicht leicht, Deine Fragen zu beantworten.
        Die unspezifische Bezeichnungen "oben" und "unten" machen nicht klar, was Du meinst.
        
        Selbst die im Lauf der Diskussion in einer Fehlermeldung erwähnte "Zeile 33" ist zu unspezifisch.
        
        Wenn Du relevanten Code zu den Fehlern und Fragen liefern würdest, käme das den Helfern nur entgegen...
        
        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!
        
        +9 replies
        
        SCG
        
        2011-07-14 23:30
        
        User since
        2011-07-14
        9 Artikel
        BenutzerIn
        
        Ich habe alles relevante gepostet, und eine nette Person hat das ganze auch verstanden, was genau benötigst du noch für Infos?
        
        Ich bezog mich mit "oben" im Code auf Zeile 17.
        
        Es geht bzw. ging aber eigentlich um Zeile 33.
        Dieses wurde abgeändert durch ...
        ($json_obj->{'artist'}->{'name'},$1,$2,$3);
        
        Weil ich den {'name'} des {'artist'} benötige, da artist alleine nur ein Hash ist.
        Das wurde jetzt behoben und alles ist bestens.
        Das was ich jetzt noch wissen wollte ist...muss die Zeile 17 auch abgeändert werden oder nicht? weil da ja {'artist'} abgefragt wird was aber nur ein Hash ist, also rein theoretisch müsste die Zeile ebenfalls geändert werden oder? weil {'artist'} ist immer defininiert oder liege ich da falsch?
        
        kristian
        
        2011-07-14 23:49
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        Hallo
        
        dein Posting ist für "uns" nicht leserlich.
        
        Wir würden es etwa so machen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        my $data = get_data_from('foo'); die('no data') unless(defined($data)); my $obj = decode_json($data); if(defined($obj)){ if(exists($obj->{'foo'}) && defined($obj->{'foo'})){ if (exists($obj->{'foo'}->{'bar'}) && defined($obj->{'foo'}->{'bar'})){ print $obj->{'foo'}->{'bar'}; } } }
        
        Bei einer Fehlermeldung des Codes, das kann bei dem blind getippten Beispiel durchaus sein, würden wir hier die komplette Fehlermeldung posten, wenn wir Hilfe brauchen.
        
        Gruß
        Kristian
        
        EDIT: da fehlten ein paar ">" im Beispiel...
        Da hätte Perl auf jeden Fall gemeckert...
        Last edited: 2011-07-14 23:59:03 +0200 (CEST)
        
        +7 replies
        
        Linuxer
        
        2011-07-15 00:10
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Ich hätte mir einfach gewünscht, dass Du als Hilfesuchender konkretere Angaben machst und relevanten Code gleich mitnennst. Ich habe manchmal so Phasen, in denen ich auf sowas hinweise.
        
        Wäre so etwas (oder ähnliches mit direkt mehr Informationen):
        
        --8<--
        Nur eines verstehe ich jetzt nicht, warum motzt Perl in Zeile 33
        
        Code: (dl )
        
        # code von zeile 33
        
        aber nicht in Zeile 17
        
        Code: (dl )
        
        # code von zeile 17
        
        ?
        --8<--
        
        soviel aufwendiger gewesen?
        
        Zeile 33 des Codes im ersten Beitrag passt übrigens nicht zur später genannten Fehlermeldung, die auf Zeile 33 verweist. Daher liegt die Vermutung nahe, dass der Code zwischenzeitlich geändert wurde.
        
        Daher wäre es schön, wenn Hilfe-Gesuche - und auch Nachfragen - konkreter wären.
        Woher soll man wissen, wie der Code mittlerweile nach 3,5 Stunden aussieht.
        
        Es gibt in der Tat hier Teilnehmerinnen und Teilnehmer, die
        1. gut in der Lage sind, zu erraten, was evtl. gesucht sein könnte
        2. erstaunliche Trefferquoten erzielen, auch das aktuell Gewünschte zu erraten
        
        Es gibt aber auch offensichtlich nicht so nette Teilnehmer, die einfach äußern, dass sie - in ihren Augen - schwammige Formulierungen nicht gut finden und sich konkretere Informationen erhoffen.
        
        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
        
        pq
        
        2011-07-15 00:36
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2011-07-14T22:10:28 Linuxer
        Es gibt in der Tat hier Teilnehmerinnen und Teilnehmer, die
        1. gut in der Lage sind, zu erraten, was evtl. gesucht sein könnte
        2. erstaunliche Trefferquoten erzielen, auch das aktuell Gewünschte zu erraten
        
        ich habe mal im IRC einem fragenden gesagt (ohne code gesehen zu haben), dass der fehler in zeile 42 liegt (mache ich ja öfter mal...), und lag damit genau richtig ;-)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        topeg
        
        2011-07-15 00:43
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ja das war ein erstaunlicher Treffer. :-)
        
        +4 replies
        
        topeg
        
        2011-07-15 00:42
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Wäre ich ehrlich würde ich sagen, dass man aus allen möglichen Interpretationen des Beitrages, unter Berücksichtigung aller bisherigen Beiträge des Autors, durch Ausschluss der Unwahrscheinlichsten die Menge der möglichen Aussagen soweit beschränken kann, dass man, wenn man die häufigsten Fehlern von Anfängern berücksichtigt, zu einer recht exakten Vermutung kommen kann was der Autor wissen wollte und wo sein Problem liegen könnte.
        
        Da sich das trocken, überheblich, belehrend und etwas beleidigend anhört, werde ich lügen ...
        
        ;-)
        
        +3 replies
        
        SCG
        
        2011-07-15 02:43
        
        User since
        2011-07-14
        9 Artikel
        BenutzerIn
        
        Scheiße, 5:1, ich glaube Ihr habt gewonnen :)
        Hat sich erledigt, ich hab es irgendwie geschafft, Perl scheint überglücklich und meine LOG ist seit ca. 4 Stunden leer - was ich so ja nie kannte ;)
        
        Muchas Gracias
        
        +2 replies
        
        kristian
        
        2011-07-15 05:18
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        Mir scheint wir haben ein Verständigungsproblem.
        Hier gibt es keine(n) Gewinner(In).
        Das ist nicht der Sinn des Forums.
        OK, wir sind nicht einfach, das gebe ich gerne zu.
        Sag uns doch einfach wo der Schuh noch drückt.
        Zeig uns den Quelltext und die Fehlermeldung dazu und wir finden gemeinsam die Lösung.
        
        SCG
        
        2011-07-16 17:57
        
        User since
        2011-07-14
        9 Artikel
        BenutzerIn
        
        2011-07-15T03:18:06 kristian
        Mir scheint wir haben ein Verständigungsproblem.
        
        Ich nicht, aber hier scheinen einige von euch nicht richtig lesen zu wollen. Dein Posting hier z.B., du gehst auf eine Sache ein - welche eher Spaß war, die andere Sache aber hast du ignoriert, also das sich das Problem erledigt hat.
        Schreibst mir stattdessen ich soll dir sagen wo der Schuh drückt? also mich drückt er nicht, ich bin mir auch nicht ganz sicher auf welchen Beitrag du dich hier überhaupt bezogen hast. Auf alle ein bisschen?
      - pq
        
        2011-07-14 23:08
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        $$json_obj{artist} ist dasselbe wie $json_obj->{artist}.
        die letztere schreibweise finde ich aber viel lesbarer, insbesondere bei mehreren verschachtelungen, da sieht man gleich, dass es sich um eine hashref handelt.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2011-07-14 19:43.