#! /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 );