Thread JSON ausgabe mit Perl verarbeiten (5 answers)
Opened by Haselnuss992 at 2019-04-11 11:06

Linuxer
 2019-04-11 15:33
#189955 #189955
User since
2006-01-27
3869 Artikel
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 )
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
#! /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!

View full thread JSON ausgabe mit Perl verarbeiten