Maps in Arrays (Allgemeines zu Perl)

[thread]18529[/thread]

Maps in Arrays

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+7 replies
Gast Blub

2013-08-19 20:45
Hi,

bin recht neu in perl und habe ein Problem mit den Datentypen.
Genauer gesagt mit Arrays, die als Elemente Maps haben.
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

my @all; my %m1; $m1{'eins'} = 1; $m1{'zwei'} = 2; my %m2; $m2{'eins'} = 11; $m2{'zwei'} = 12; @all[0] = %m1; @all[1] = %m2; print $m1{'eins'} . "\n"; print $m1{'zwei'} . "\n"; my %test = @all[0]; print %test; print "\n"; print %test . "\n"; print $test{'eins'} . "\n";
Aus dem Array bekomme ich die einzelnen Maps nicht mehr heraus.
Aber noch schlimmer, der Code scheint nicht deterministisch zu sein. Wenn ich ihn mehrmals ausführe kommt manchmal in der Zeile print %test; eins, manchmal zwei raus.

Wo liegt hier das Problem/Missverständnis?
Schonmal vielen Dank für eure Mühe.

MFG
Last edited: 2013-08-19 21:06:52 +0200 (CEST)
- hlubenow
  
  2013-08-19 21:19
  User since
  2009-02-22
  876 Artikel
  BenutzerIn
  Am Anfang fehlt
  
  Code (perl): (dl )
  
  1 2 3 4
  
  #!/usr/bin/perl use warnings; use strict;
  
  Hättest Du das drin gehabt, hättest Du schonmal ein paar Hinweise auf den Fehler erhalten.
  Warum hast Du das denn nicht verwendet?
- hlubenow
  
  2013-08-19 23:31
  User since
  2009-02-22
  876 Artikel
  BenutzerIn
  Man kann in Perl 5 keinen ganzen Hash in ein Array schieben (wie etwa in Python). Man muß das mit Referenzen machen und die am Ende dereferenzieren.
  Beispiel:
  
  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
  
  #!/usr/bin/perl use warnings; use strict; my @all; my %m1; $m1{'eins'} = 1; $m1{'zwei'} = 2; my %m2; $m2{'eins'} = 11; $m2{'zwei'} = 12; $all[0] = \%m1; $all[1] = \%m2; print $m1{'eins'} . "\n"; print $m1{'zwei'} . "\n"; my %test = %{$all[0]}; my $i; foreach $i (keys(%test)) { print "$i \t $test{$i}\n"; }
- lichtkind
  
  2013-08-20 00:19
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  Code (perl): (dl )
  
  1 2
  
  $all[0] = %m1; $all[1] = %m2;
  
  Da du nur einen Wert (Skalar) aus dem Array @all ansprichst, musst du mit $ anfangen.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- +2 replies
- lichtkind
  
  2013-08-20 00:26
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  use v5.12; use warnings; my %m1 = ('eins' => 1, 'zwei' => 2 ); my %m2 = ('eins' => 11, 'zwei' => 12 ); my @all = (\%m1, \%m2); say $m1{'eins'}; say $m1{'zwei'}; my %test = %{ $all[0] }; say "%test"; say $test{'eins'};
  
  mit proper deref und say (spart das \n - gibts aber erst seit 5.10),
  
  Disclaimer: war zwischendurch weg und sah nicht gleich ganze hlubenow lösung
  Last edited: 2013-08-20 00:28:25 +0200 (CEST)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - lichtkind
    
    2013-08-20 14:17
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    noch ganz anders:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    use v5.12; use warnings; my @all = ({'eins' => 1, 'zwei' => 2 }, {'eins' => 11, 'zwei' => 12 }); my $test = $all[0]; say "%$test"; say $test->{'eins'};
    
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
- Raubtier
  
  2013-08-20 08:17
  User since
  2012-05-04
  1077 Artikel
  BenutzerIn
  Guest Blub
  Hi,
  
  bin recht neu in perl und habe ein Problem mit den Datentypen.
  Genauer gesagt mit Arrays, die als Elemente Maps haben.
  
  Code (perl): (dl )
  
  1 2
  
  @all[0] = %m1; @all[1] = %m2;
  
  Das hier: @all[0] ist ein Array-Slice (also vergleichbar mit @a[0..0] - wenn du z.B. @a[0..2] schreibst, ist das ein Slice auf die ersten 3 Elemente). Wichtig ist, dass ein Array-Slice selbst ein Array ist. Also wird die rechte Seite im Listenkontext ausgewertet. Ein Hash (wie Maps in Perl genannt werden - wenn du von C++ kommt, würde ich eher std::unordered_map sagen) im Listenkontext liefert seine Key/Values nacheinander - Key+Value immer die zusammengehörenden hintereinander, aber die Reihenfolge der Key-Value-Paare ist nicht festgelegt und kann sich auch pro Programmstart unterscheiden.
  
  Minimalbeispiel:
  perl -E'%hash = qw(key1 value1 key2 value2);say for %hash;'
  
  Das ist so seit Version 5.18: http://search.cpan.org/dist/perl-5.18.0/pod/perlde...
  
  Wie die anderen geschrieben haben: das Array-Element ist ein Skalar, also $a[0], dem du dann eine Hash-Referenz zuweisen musst. Siehe vielleicht auch perllol oder perldsc.
  Last edited: 2013-08-20 08:24:08 +0200 (CEST)

View all threads created 2013-08-19 20:45.