Auf Hashslice eines anonymen Arrays zugreifen (gelöst) (Allgemeines zu Perl)

[thread]16030[/thread]

Auf Hashslice eines anonymen Arrays zugreifen [gelöst]

Leser: 28

Articles: hide open all | hide show old branches

+13 replies
suresh

2011-03-03 17:34
User since
2010-10-12
109 Artikel
BenutzerIn
Hi all,
mir ist im Moment nicht so wirklich klar, wie ich und ob ich anonymous arrays "at once" auslesen kann (slices) und eben nicht per index jedes Element einzeln.

im moment:
Code: (dl )

1 2

$_->[1]{item1}; $_->[2]{item2};
modedit Editiert von GwenDragon: Titel verständlicher gemacht
Last edited: 2011-03-04 13:22:51 +0100 (CET)
- GwenDragon
  
  2011-03-03 17:50
  
  User since
  2005-01-17
  14761 Artikel
  Admin1
  
  Ach du schreibst doch deutsch!? Ich hatte eine anglophone Person erwartet.
  Könntest du das bitte auf deutsch ausdrücken? Der Titel sagt mir gerade nichts. ;)
  
  Dein Besipiel bezieht sich auf Arrays aus Hashes, nicht auf Arrays.
  Last edited: 2011-03-03 17:51:28 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- BernhardSchmalhofer
  
  2011-03-03 18:47
  User since
  2009-03-26
  56 Artikel
  BenutzerIn
  Hallo,
  
  ich fasse die Frage folgendermassen auf:
  
  Kann man aus einer Referenz auf einen Array ein Teilstück des Arrays extrahieren, ohne jedes Element einzeln zu benennen?
  
  Die Antwort ist ja. Mann muss dazu einfach die Referenz derreferenzieren.
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $reihe_ref = [ 'A', 'B', 'C', 'D', 'E' ]; # Teilstück nach Dereferenzierung my @die_ersten_drei = @{$reihe_ref}[0 .. 2]; print Dumper( \@die_ersten_drei ); # das liefert eine Warnung und das erste Element my @die_letzten_drei = $reihe_ref->[2 .. 4]; print Dumper( \@die_letzten_drei );
  - +2 replies
  - suresh
    
    2011-03-03 21:28
    User since
    2010-10-12
    109 Artikel
    BenutzerIn
    
    Hallo,
    offensichtlich habe ich mich schlecht ausgedrückt, Entschuldigung dafür.
    
    Wichtig war mir bei meiner Frage, dass es um ein anonymous array geht.
    Genauergesagt um ein anonymous array gefüllt mit hashes.
    
    Was ich erreichen möchte ist folgendes:
    - auf bestimme Key/Values (item1, item2) aller hashes in dem array mit einer Anweisung zugreifen und dies dann in einem neuem hash abspeichern
    
    in dem unteren Beispiel mache ich das leider nur für ein Element des arrays:
    
    Code: (dl )
    
    %hash = map (s/\s//g, $_->[1]{item1} => $_->[1]{item2})@{$ref->{array}};
    
    Last edited: 2011-03-03 21:30:24 +0100 (CET)
    - clms
      
      2011-03-04 12:53
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      2011-03-03T20:28:09 suresh
      Wichtig war mir bei meiner Frage, dass es um ein anonymous array geht.
      Genauergesagt um ein anonymous array gefüllt mit hashes.
      
      Was ich erreichen möchte ist folgendes:
      - auf bestimme Key/Values (item1, item2) aller hashes in dem array mit einer Anweisung zugreifen und dies dann in einem neuem hash abspeichern
      
      Wenn ich es richtig verstanden habe, hat Dein Problem mit "anonym" nichts zu tun. Bei einem benannten Array hättest Du das gleiche Problem.
      
      Du kannst zwar in Perl5 ein Array- oder Hashslice selektieren,
      aber wenn Du die Elemente des Slices dereferenzieren willst um auf die
      dort enthaltene Datenstruktur zuzugreifen, musst Du das einzeln machen,
      also z.B. mit map oder for den Slice durchgehen.
      
      In Deinem Fall könnte das etwa so aussehen:
      
      Code (perl): (dl )
      
      my %hash = map {$_->{item1} => $_->{item2}} @{$_};
      
      Da wird der Hash jetzt für jedes Element im Array @{$_} mit einem
      Paar gefüllt, das aus dem Value von item1 als Key und dem Value von item2 als Value besteht.
      
      Aufgedröselt wäre das
      
      Code (perl): (dl )
      
      1 2 3
      
      my %hash = ($_->[0]{item1} => $_->[0]{item2}, $_->[1]{item1} => $_->[1]{item2}, ...);
      
      Aber evtl. willst Du ja auch ganz andere Daten...
- +8 replies
- pq
  
  2011-03-03 22:45
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  kannst du mal ein kurzes beispiel deiner datenstruktur geben, und ein beispiel für das endergebnis?
  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
  - +7 replies
  - suresh
    
    2011-03-05 00:40
    User since
    2010-10-12
    109 Artikel
    BenutzerIn
    
    Meine Datenstruktur, auf die ich zugreifen möchte sieht so aus und kommt aus einer XML Datei:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    [ { ID1.1 => Wert1.1 ID2.1 => Wert2.1 ID3.1 => Wert3.1 }; { ID1.2 => Wert1.2 ID2.2 => Wert2.2 ID3.2 => Wert3.2 }; { ID1.3 => Wert1.3 ID2.3 => Wert2.3 ID3.3 => Wert3.3 }; ];
    
    Ergebnis soll dann folgendes sein:
    
    Code: (dl )
    
    1 2 3 4 5
    
    %hash = { ID2.1 => Wert2.1 ID2.2 => Wert2.2 ID2.3 => Wert2.3 };
    - +6 replies
    - pq
      
      2011-03-05 11:35
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      du hast also eine liste von hashes, und du willst aus jedem dieser hashes das key-value-paar, dessen key mit ID2 anfängt, ja? denn hashes haben keine reihenfolge (sonst würde man ja arraus nehmen). du kannst also nur über die elemente der hashes drüberlaufen und gucken, ob der key mit ID2 anfängt.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      my %hash; for my $item (@$list_of_hashes) { for my $key (keys %$item) { if ($key =~ m/^ID2\./) { $hash{ $key } = $item->{ $key }; last; } } }
      
      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
      - +5 replies
      - suresh
        
        2011-03-05 13:47
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        OK,
        nur damit ichs verstehe...
        
        Code: (dl )
        
        $item
        
        ist eine hash Referenz und
        
        Code: (dl )
        
        keys %$item
        
        könnte man auch
        
        Code: (dl )
        
        keys %{ $item }
        
        schreiben?
        
        Grüße
        
        +4 replies
        
        suresh
        
        2011-03-07 08:18
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Hallo,
        ich habe mein Problem jetzt wie folgt lösen können:
        
        Code: (dl )
        
        1 2 3
        
        for my $list (@array) { my %hash = map { s/\s//g; $_->{ID2} => $_->{ID3} } @{ $list }; }
        
        Wobei meine Struktur noch nicht ganz richtig war:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        @array= [ { ID1 => Wert1.1 ID2 => Wert1.2 ID3 => Wert1.3 }; { ID1 => Wert2.1 ID2 => Wert2.2 ID3 => Wert2.3 }; { ID1 => Wert3.1 ID2 => Wert3.2 ID3 => Wert3.3 }; ];
        
        Ich bin mir immernoch nicht sicher wie man diese Struktur beschreibt. Vielleicht als ein array of array of hashes.
        
        Danke für eure Hilfe! :)
        
        Grüße
        
        +3 replies
        
        clms
        
        2011-03-07 10:53
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2011-03-07T07:18:30 suresh
        Ich bin mir immernoch nicht sicher wie man diese Struktur beschreibt. Vielleicht als ein array of array of hashes.
        
        Nein, nur "Array of hashes".
        Du hast ja nur ein Array. In der zweiten Ebene kommen schon die Hashes.
        
        +2 replies
        
        pq
        
        2011-03-07 11:15
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        stimmt nicht. er schreibt:
        
        Code: (dl )
        
        1 2 3
        
        @array= [ { ...
        
        somit ist @array ein array of array(s) of hashes.
        
        wobei in seinem beispiel @array selbst nur ein element hat, was als beispiel für solch eine datenstruktur natürlich weniger sinnvoll ist.
        aber da suresh sich selber gar nicht sicher über seine datenstruktur ist und mir eine komplett falsche gegeben hat und dazu noch ein falsches ergebnis, habe ich aufgehört, mir darüber gedanken zu machen...
        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
        
        suresh
        
        2011-03-07 12:28
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Hallo nochmal,
        die Datenstruktur hatte ich selbst nicht richtig verstanden weil sie eben so wenig Sinn macht in diesem Zusammenhang(leider liegt mir diese aber als XML output vor den ich nicht ändern kann).
        Allerdings hab ich durch eure Einschätzungen und Anregungen dahinter steigen können. Danke!

View all threads created 2011-03-03 17:34.