JSON ausgabe mit Perl verarbeiten (solved) (sonstige Sprachen, auch PHP)

[thread]20604[/thread]

JSON ausgabe mit Perl verarbeiten [solved]

Tags: perl JSON hashref Similar Threads

Readers: 13

Articles: hide open all | hide show old branches

+6 replies

Haselnuss992

2019-04-11 11:06

User since
2018-06-28
9 articles
BenutzerIn
[default_avatar]

Hallo zusammen,

ich bin da auf ein blödes Problem gestoßen...
Und zwar greife ich über ein Perlscript auf eine REST API zu, um bestimmte Datensätze anzufragen.
Diese Datensätze werden mir in JSON übergeben und sehen nach der Aufbereitung mit decode & dumper so aus :

Code: (dl )

$VAR1 = { 
'components' => [
{
'name' => 'ABC',
'self' => 'https://123',
'isAssigneeTypeValid' => bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' ),
'id' => '123456789'
},
{
'name' => 'BBB',
'self' => 'https://11223',
'id' => '456789',
'isAssigneeTypeValid' => $VAR1->{'components'}[0]{'isAssigneeTypeValid'}
},
]
}

Jetzt kann ich normalerweise auf die Hashreferenzen zugreifen.
In diesem Fall kann ich über 'components' auf die darunterliegenden Daten zugreifen bspw. :
(Ich benutze das REST::Client und JSON - Modul in meinem Script um die Verbindung aufzubauen und die Daten anzufragen.)

Code (perl): (dl )

...
...
my $client = REST::Client->new();
$client->addHeader('Content-Type', 'application/json');
$client = $client->GET( $url, ($headers));
chomp(my $json = $client->responseContent());  
my $ref = JSON->new->utf8->decode($json);
for my $zeile( @{$ref->{components}} ){
   print"$zeile->{name}\n";
}

Ausgabe :

Code: (dl )

1
2

ABC
BBB

Alles schön und gut... nun zu meinem Problem :
Bei manchen Abfragen erhalte ich keine Schlüsselwörter, um auf die Werte zugreifen zu können.
Um beim selben Beispiel zu bleiben :

Code: (dl )

$VAR1 = { 
{
'name' => 'ABC',
'self' => 'https://123',
'isAssigneeTypeValid' => bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' ),
'id' => '123456789'
},
{
'name' => 'BBB',
'self' => 'https://11223',
'id' => '456789',
'isAssigneeTypeValid' => $VAR1->{'components'}[0]{'isAssigneeTypeValid'}
},
}

hat da jemand eine Idee, wie ich jetzt an die namen & die ids komme?

Ich hoffe ich konnte mich verständlich artikulieren =D
Last edited: 2019-04-11 11:29:40 +0200 (CEST)

+5 replies

haj

2019-04-11 12:17

User since
2015-01-07
551 articles
BenutzerIn

user image

"Standards sind was feines. Jeder sollte seinen eigenen haben." - nun, bei JSON ist der Wunsch in Erfüllung gegangen.

Nun, ganz so schlimm ist es glücklicherweise nicht. JSON erlaubt als obersten Level entweder ein "Object" oder ein "Array" (und seit RFC7493 auch "einfache Werte", aber das spielt hier keine Rolle).

Kann es sein, dass Dein letztes Beispiel nicht ganz richtig wiedergegeben ist? $VAR1 = { { %HASH1 }, { %HASH2 } } ist eine seltsame Konstruktion, in der der "stringifizierte" Wert von %HASH1, also so etwas wie "HASH(0x56440b2b5420)" als Key für die Referenz auf %HASH2 benutzt wird.

Sieht es vielleicht wie folgt aus (hier wurde nur ein geschweiftes durch ein eckiges Klammerpaar ersetzt)?

Code (perl): (dl )

$VAR1 = [
{
'name' => 'ABC',
'self' => 'https://123',
'isAssigneeTypeValid' => bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' ),
'id' => '123456789'
},
{
'name' => 'BBB',
'self' => 'https://11223',
'id' => '456789',
'isAssigneeTypeValid' => $VAR1->[0]{'isAssigneeTypeValid'}
},
];

In dem Fall reicht eine Untersuchung des Typs von $VAR1 aus:

Code (perl): (dl )

my $ref = JSON->new->utf8->decode($json);
my @components = ref $ref eq 'HASH' ? @{$ref->{components}} : @$ref;
for my $zeile( @components} ){
   print"$zeile->{name}\n";
}

+4 replies

Haselnuss992

2019-04-11 15:04

User since
2018-06-28
9 articles
BenutzerIn
[default_avatar]

Hallo haj, danke für deine schnelle Antwort!

Quote
Kann es sein, dass Dein letztes Beispiel nicht ganz richtig wiedergegeben ist? $VAR1 = { { %HASH1 }, { %HASH2 } } ist eine seltsame Konstruktion, in der der "stringifizierte" Wert von %HASH1, also so etwas wie "HASH(0x56440b2b5420)" als Key für die Referenz auf %HASH2 benutzt wird.

Das stimmt, da hatte ich aus dem falschem Fenster kopiert...

Quote
In dem Fall reicht eine Untersuchung des Typs von $VAR1 aus:

Vielen lieben Dank, es funktioniert!
Damit wäre mir aufjedenfall schoneinmal weitergeholfen.

Jetzt ist mir noch klar geworden, dass ich name und id in Beziehung zueinander bringen muss.
Damit ich jeder id den korrekten namen zuordnen kann, würde ich diese gerne in ein hash übergeben, sodass ich über die ID auf den Namen zugreifen kann.

In meinem Beispiel wäre das kein Problem, da ich jeden namen der jeweils folgenden id zuordnen könnte.
Nun habe ich in meiner Ausgabe aber noch verschachtelte Blöcke in welchen der schlüssel 'name' ebenfalls existiert und jetzt bin ich nochmals ratlos:

Hier nochmal ein Auszug:

Code: (dl )

$VAR1 = [
{
'name' => "wert",
'key' => 'wert',
'self' => 'wert',
'projectTypeKey' => 'wert',
'id' => 'wert',
'expand' => 'wert',
'avatarUrls' => {
'16x16' => 'wert',
'32x32' => 'wert'
},
'projectCategory' => {
'self' => 'wert',
'description' => 'wert',
'name' => 'wert',
'id' => 'wert'
}
},
{
'name' => "wert",
'key' => 'wert',
'self' => 'wert',
'projectTypeKey' => 'wert',
'id' => 'wert',
'avatarUrls' => {
'32x32' => 'wert',
'16x16' => 'wert'
},
'expand' => 'wert',
'projectCategory' => {
'id' => 'wert',
'self' => 'wert',
'description' => 'wert',
'name' => 'wert'
}
},
{
'name' => "wert",
'key' => 'wert',
'self' => 'wert',
'projectTypeKey' => 'wert',
'id' => 'wert',
'expand' => 'wert',
'avatarUrls' => {
'32x32' => 'wert',
'16x16' => 'wert'
},
...
];

Benötigen tu ich lediglich die namen->ids, welche oberhalb des Parameters 'expand' gelistet sind.

Gibt es hier auch eine effiziente Lösung über die Hashreferenzen oder muss ich mir hier doch nochmal etwas zusammenbasteln, um die Ausgabe von den nichtbenötigten blöcken zu bereinigen?

Vielen Dank, schonmal für die Unterstützung, die eigentliche Frage wurde ja bereits gelöst =) (Y);

+3 replies

Linuxer

2019-04-11 15:33

User since
2006-01-27
3890 articles
HausmeisterIn

user image

Iteriere über die Elemente in @$VAR1 und hole die Werte von name und id raus und speichere sie in einem Hash:

Code (perl): (dl )

#! /usr/bin/perl
use strict;
use warnings;

use 5.010;
use Data::Dumper;

# deine Datenstruktur; Werte für name und id angepasst
my $VAR1 = [
        {
                'name' => "name1",
                'key' => 'wert',
                'self' => 'wert',
                'projectTypeKey' => 'wert',
                'id' => 'id1',
                'expand' => 'wert',
                'avatarUrls' => {
                        '16x16' => 'wert',
                        '32x32' => 'wert'
                },
                'projectCategory' => {
                        'self' => 'wert',
                        'description' => 'wert',
                        'name' => 'wert',
                        'id' => 'wert'
                }
        },
        {
                'name' => "name2",
                'key' => 'wert',
                'self' => 'wert',
                'projectTypeKey' => 'wert',
                'id' => 'id2',
                'avatarUrls' => {
                        '32x32' => 'wert',
                        '16x16' => 'wert'
                },
                'expand' => 'wert',
                'projectCategory' => {
                        'id' => 'wert',
                        'self' => 'wert',
                        'description' => 'wert',
                        'name' => 'wert'
                }
        },
        {
                'name' => "name3",
                'key' => 'wert',
                'self' => 'wert',
                'projectTypeKey' => 'wert',
                'id' => 'id3',
                'expand' => 'wert',
                'avatarUrls' => {
                        '32x32' => 'wert',
                        '16x16' => 'wert'
                },
        },
];

# iteriere durch @$VAR1 und erzeuge neue Zuordnung zwischen Name und ID
my %name_id = map { $_->{name} => $_->{id} } @$VAR1;

# Kontrollausgabe
say Dumper( \%name_id );

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

Haselnuss992

2019-04-12 10:23

User since
2018-06-28
9 articles
BenutzerIn
[default_avatar]

2019-04-11T13:33:02 Linuxer

Iteriere über die Elemente in @$VAR1 und hole die Werte von name und id raus und speichere sie in einem Hash:

Code (perl): (dl )

#! /usr/bin/perl
use strict;
use warnings;

use 5.010;
use Data::Dumper;

# deine Datenstruktur; Werte für name und id angepasst
my $VAR1 = [
        {
                'name' => "name1",
                'key' => 'wert',
                'self' => 'wert',
                'projectTypeKey' => 'wert',
                'id' => 'id1',
                'expand' => 'wert',
                'avatarUrls' => {
                        '16x16' => 'wert',
                        '32x32' => 'wert'
                },
                'projectCategory' => {
                        'self' => 'wert',
                        'description' => 'wert',
                        'name' => 'wert',
                        'id' => 'wert'
                }
        },
        {
                'name' => "name2",
                'key' => 'wert',
                'self' => 'wert',
                'projectTypeKey' => 'wert',
                'id' => 'id2',
                'avatarUrls' => {
                        '32x32' => 'wert',
                        '16x16' => 'wert'
                },
                'expand' => 'wert',
                'projectCategory' => {
                        'id' => 'wert',
                        'self' => 'wert',
                        'description' => 'wert',
                        'name' => 'wert'
                }
        },
        {
                'name' => "name3",
                'key' => 'wert',
                'self' => 'wert',
                'projectTypeKey' => 'wert',
                'id' => 'id3',
                'expand' => 'wert',
                'avatarUrls' => {
                        '32x32' => 'wert',
                        '16x16' => 'wert'
                },
        },
];

# iteriere durch @$VAR1 und erzeuge neue Zuordnung zwischen Name und ID
my %name_id = map { $_->{name} => $_->{id} } @$VAR1;

# Kontrollausgabe
say Dumper( \%name_id );

Hallo Linuxer, vielen Dank dafür - funktioniert super.
Statt dem

Code (perl): (dl )

@$VAR1

habe ich bei mir

Code (perl): (dl )

@$ref

verwendet.

Da habt ihr mir Wochenlanges knobeln erspart, vielen lieben Dank & ein schönes Wochenende euch allen!

rosti

2019-04-12 17:57

User since
2011-03-19
3463 articles
BenutzerIn

Vielleicht noch ein kleiner Hinweis: Du wirst in Sachen Perl/OOP sehr viel mit Referenzen und komplexen Datenstrukturen zu tun haben. Es lohnt sich also sich damit zu befassen. Aber keine Angst, ich hatte mal einen PHP Kollegen der hat keine halbe Stunde dafür gebraucht zu verstehen wie er mit Perlreferenzen umzugehen hat ;)

View all threads created 2019-04-11 11:06.