Daten aus einer JSON-Response referenzieren (Perl/CGI)

[thread]20627[/thread]

Daten aus einer JSON-Response referenzieren

Tags: perl5 CGI Array JSON Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+6 replies

guest NickHatBoecker

2019-06-17 10:22

Hallo zusammen,

ich hoffe ich habe hier in den richtigen Bereich geschrieben.
Ich beschäftige mich erst seit Kurzem mit der Programmierung in Perl, da das verwendete Kunden CMS größtenteils darauf basiert. Ich bin eigentlich in der Frontend-Entwicklung und Backend-Entwicklung in PHP Zuhause, daher hoffe ich, dass ihr mir bei meinem Problem helfen könnt.

Situation

Im Backend des CMS soll der Nutzer eine Länderauswahl in einem Select-Feld angezeigt bekommen. Die Länder sollen dynamisch via PERL von einer JSON-Schnittstelle abgefragt werden.
Die JSON-Response sieht folgendermaßen aus (runtergebrochen auf 2 Länder):

Code: (dl )

{
    "countries": [
        {"id":190,"label":"Afghanistan"},
        {"id":2,"label":"\u00c4gypten"}
    ]
}

Das Problem

Ich schaffe es nicht diese Struktur nun in einfache HTML-Options umzuwandeln, weil ich es nicht schaffe die Daten aus dem Array zu referenzieren.
Ich habe es mit foreach Schleifen versucht, da wurde dann aber nicht durchgelaufen und mit for Schleifen, da kriege ich aber einfach nicht die Array-Länge raus. Siehe folgender Code.

Der Perl-Code

Mein aktueller Code sieht so aus. Ich habe dort nun die for-Schleife auf 1000 Durchläufe gesetzt, weil ich um die 200 Länder habe.
So kann ich sicherstellen, dass kein Land unterschlagen wird. Schöner wäre es aber natürlich, wenn ich einfach die Länge des Länder-Arrays prüfen könnte und dementsprechend die Durchläufe setzen könnte. Das genau funktioniert aber nicht. Ich habe es mit length und scalar und und und probiert, aber nichts funktioniert.

Code (perl): (dl )

#!/bin/false
#
# This code include is used to load countries for the flexmodule daad_country_facts.htms from the API.

use strict;
use vars qw(@parameters $new $mode $metainfo);

use Project::Util::Api;

sub main
{
    if ($mode ne 'EDIT') {
        return;
    }

    my @items = _getData();
    if (scalar @items == 0 || ! defined \@items) {
        return "";
    }

    my $html = "";

    # @TODO replace 1000 with actual array length
    for ($a = 0 ; $a <= 1000 ; $a++) {
        if (defined @items[0]->[$a]->{"id"}) {
            # option selection will be automatically set by Imperia
            $html .= sprintf(
                '<option value="%s">%s</option>',
                @items[0]->[$a]->{"id"},
                encode_utf8(@items[0]->[$a]->{"label"}),
            );
        }
    }

    return $html;
}

sub _getData
{
    my $url = sprintf(
        "%s%s",
        $ENV{'API_BASE_URL'},
        "/ajax/imperia/countrylist/de"
    );
 
    my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 1 });
    my $header = HTTP::Request->new(GET => $url);
    my $request = HTTP::Request->new('GET', $url, $header);
    my $response = $ua->request($request);

    if (!$response || $response->is_error || !$response->is_success) {
        return;
    }

    my $response = decode_json($response->content);
    my @items = $response->{"countries"};

    return @items;
}

$new = main();

Ich hoffe sehr, dass ihr mir helfen könnt und bedanke mich schonmal im Voraus.

Viele Grüße
Nick
Last edited: 2019-06-17 11:40:11 +0200 (CEST)

+2 replies

rosti

2019-06-17 11:52

User since
2011-03-19
3463 articles
BenutzerIn

Quote
Ich schaffe es nicht diese Struktur nun in einfache HTML-Options umzuwandeln, weil ich es nicht schaffe die Daten aus dem Array zu referenzieren.

Zunächst musst Du es verstehen: Dekodiert liefert der JSON ein Array mit Hashreferenzen. Und dieses Array kannst Du direkt einer Template-Engine wie CPAN:

HTML::Template oder CPAN:

Template::Mustache übergeben. Ganz einfach.

Und das Template zu erstellen ist auch ganz einfach.

MFG

PS: Mustache gibt es auch für JavaScript. Falls Du es mit AJAX machen willst.
Last edited: 2019-06-17 11:54:37 +0200 (CEST)

rosti

2019-06-17 18:31

User since
2011-03-19
3463 articles
BenutzerIn

Beispiel mit CPAN:

Template::Mustache:

Code (perl): (dl )

use strict;
use warnings;
use Template::Mustache;

my $countries = [
    {id => 190, label => "Afghanistan"},
    {id => 2,   label => "Ägypten"}
];

my $template = q(
    <select name="countries">
    {{#countries}}
        <option id="{{id}}" value="{{& label}}">{{& label}}</option>
    {{/countries}} 
    </select>
);

print Template::Mustache->render($template, {countries => $countries});

Ausgabe:

    <select name="countries">
        <option id="190" value="Afghanistan">Afghanistan</option>
        <option id="2" value="Ägypten">Ägypten</option>
    </select>

Last edited: 2019-06-17 18:33:30 +0200 (CEST)

+3 replies
Linuxer

2019-06-17 13:07
User since
2006-01-27
3890 articles
HausmeisterIn
Wie rosti schon schrieb, könntest Du die Datenstruktur direkt in ein Template-System geben.
Wenn Du es per Hand machen willst:

1. Die Variablen $a und $b sind für perlfunc sort vordefiniert und sollten auch nur im sort benutzt werden; gewöhn es Dir nicht an, sie anderweitig zu verwenden... Das kann je nach Verwendung Probleme machen.

2. Den letzten Index eines Array erhälst Du mit der Schreibweise $#array.

3. Unter "countries" steht eine Array-Referenz, kein Array. Ich würde das nicht in ein Array @items schieben, sondern direkt verwenden.

4. Ein Zugriff auf @items[0] sollte Dir eine Warnung ausgeben, wenn Du ~~diese~~Warnungen eingeschaltet hast.
Bei Zugriff auf ein Element schreibt man ein $; also $items[0]; bei mehreren dann das @; z.B. @items[0,1,2].

5. Verwende bitte immer use strict und use warnings. Die beiden helfen Dir beim Programmieren.

Hier ein ungetesteter Fix-Versuch Deines Codes:
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 40 41 42 43 44 45 46 47

sub main { if ($mode ne 'EDIT') { return; } # Receive an array reference my $countries = _getData(); if ( 0 == scalar @$countries ) { return ""; } my $html = ""; # $#{$countries} is last index of array reference $countries for (my $i = 0 ; $i <= $#{$countries} ; $i++) { if (defined $countries->[$i]->{"id"}) { # option selection will be automatically set by Imperia $html .= sprintf( '<option value="%s">%s</option>', $countries->[$i]->{"id"}, encode_utf8($countries->[$i]->{"label"}), ); } } return $html; } sub _getData { my $url = sprintf( "%s%s", $ENV{'API_BASE_URL'}, "/ajax/imperia/countrylist/de" ); my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 1 }); my $header = HTTP::Request->new(GET => $url); my $request = HTTP::Request->new('GET', $url, $header); my $response = $ua->request($request); if (!$response || $response->is_error || !$response->is_success) { return; } my $response = decode_json($response->content); return $response->{"countries"}; }
edit: kleinere Textänderung
Last edited: 2019-06-17 17:07:52 +0200 (CEST)
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
- guest NickHatBoecker
  
  2019-06-18 13:09
  
  Vielen Dank für die Vorschläge mit Mustache. Zum aktuellen Zeitpunkt kann ich mit dem derzeitigen Setup aber kein Template-Framework einbinden.
  
  Von daher vielen vielen Dank an [Linuxer] für seine ausführliche Antwort mit der es nun wunderbar funktioniert hat und ich habe sogar noch was dazu gelernt.
  Last edited: 2019-06-18 13:29:00 +0200 (CEST)
  - rosti
    
    2019-06-18 13:49
    
    User since
    2011-03-19
    3463 articles
    BenutzerIn
    
    Mustache ist kein Framework. Das ist eine Datei Mustache.pm mehr ist das nicht.
    
    Und abgesehen davon sollte HTML::Template auch verfügbar sein.
    
    MFG

View all threads created 2019-06-17 10:22.