Mehrdimensionale Arrays (Allgemeines zu Perl)

[thread]14165[/thread]

Mehrdimensionale Arrays

Leser: 30

Articles: hide open all | hide show old branches

+9 replies
tacheles

2009-10-21 16:10
User since
2009-10-15
7 Artikel
BenutzerIn
Hallo zusammen,

ich bin noch bei meinen Perl Anfängerskripten und dort bei den mehrdimensionalen Arrays hängen geblieben. Ich muss gestehn ich verstehs noch nicht.

Ich habe folgendes Array
Code (perl): (dl )

1 2 3 4 5

my @werte = ( ['name1', 'adresse1'], ['name2', 'adresse2'], ['name3', 'adresse3'], );
Von diesem möchte ich auf die einzelnen Werte zugreifen, später per foreach Schleife. Wie stell ich das an?
Laut diesem hier soll das so funktionieren, also wie auch in PHP.
print $werte[1][1]; funktioniert aber nicht nicht, bzw es kommt keine Ausgabe.

Was fehlt bei mir noch?

Dank vorab

Grüße
- +3 replies
- Taulmarill
  
  2009-10-21 16:23
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Entweder du hast ein anderes perl als ich, oder ich hab dein Problem nicht verstanden. Folgendes:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  use strict; use warnings; my @werte = ( ['name1', 'adresse1'], ['name2', 'adresse2'], ['name3', 'adresse3'], ); print $werte[1][1] . "\n";
  
  Liefert bei mir die Ausgabe "adresse2".
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +2 replies
  - tacheles
    
    2009-10-21 16:42
    User since
    2009-10-15
    7 Artikel
    BenutzerIn
    
    Sorry war ein Fehler meinerseits, funktioniert jetzt auch wie beschrieben.
    
    Was aber nicht funktioniert ist die Schleife durch dieses Array. Und zwar mach ich das im Moment so:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    foreach my $elm (@werte) { print $elm[0]; }
    
    Was mach ich da falsch?
    - pq
      
      2009-10-21 16:44
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      da fehlt der pfeil. es ist eine arrayref, und wie ich schon schrieb, muss da ein pfeil hin. $elm->[0]
      
      edit: steht übrigens auch in dem buch.
      Last edited: 2009-10-21 16:46:50 +0200 (CEST)
      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
- pq
  
  2009-10-21 16:25
  User since
  2003-08-04
  12208 Artikel
  Admin1
  funktioniert hier wunderbar:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  perl -wl my @werte = ( ['name1', 'adresse1'], ['name2', 'adresse2'], ['name3', 'adresse3'], ); print $werte[1][1]; __END__ adresse2
  
  aber IMHO ist $werte[1]->[1] mit pfeil schöner, da man da gleich sieht, dass es ein zugriff auf eine referenz ist. (der pfeil gehört da eigentlich hin, ist aber optional bei mehreren verschachtelungen.)
  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
- +2 replies
- RPerl
  
  2009-10-21 16:28
  
  User since
  2006-11-26
  384 Artikel
  BenutzerIn
  
  Falls das mehr als eine Uebung ist und du Adressdaten / Kundendaten verwalten willst, wuerde ich dir zu einem Array of Hashes raten.
  Schau mal in perldsc rein (perldoc perldsc).
  Dort findest auch auch noch ein bisschen mehr zu Mehrdimensionalen Arrays.
  Last edited: 2009-10-21 16:30:31 +0200 (CEST)
  - sid burn
    
    2009-10-21 17:40
    
    User since
    2006-03-29
    1520 Artikel
    BenutzerIn
    
    Wenn es mehr als eine Übung ist, würde ich gleich zu einer Klassen Raten. ^^
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
- GwenDragon
  
  2009-10-21 16:28
  User since
  2005-01-17
  14538 Artikel
  Admin1
  Das was du hier zeigst ist eine Liste aus Arrayreferenzen.
  
  So geht es. ;)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  $multi_arry = [ [1, 'test'], [99, 'ENde'], [2,'Mitte'] ]; print $multi_arry->[0]->[0], "\n"; # sollte 1 ausgeben. print $multi_arry->[1]->[1], "\n"; # sollte 'ENde' ausgeben.
  
  Schau dir mal perllol
  
  //EDIT: Da war jemand schneller und mein Internet zu langsam.
  Last edited: 2009-10-21 16:30:51 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- renee
  
  2009-10-21 19:54
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Zum Thema Referenzen ist das hier auch lesenswert: perlreftut
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/

View all threads created 2009-10-21 16:10.