Arrays zu Multi-Array zusammenfügen? (Fragen zu Perl-Modulen) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Fragen zu Perl-Modulen

2024-04-24 00:07:46
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]19331[/thread]

submit to reddit

Arrays zu Multi-Array zusammenfügen?

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+20 replies
Ionit

2014-10-13 10:19
User since
2006-05-16
81 Artikel
BenutzerIn
Hallo Freunde,

ich habe drei Arrays.
Code: (dl )

1 2 3

my @vorname = ('Jule', 'Claudia', 'Susi'); my @haarfarbe = ('rot', 'blond', 'schwarz'); my @figur = ('schlank', 'zierlich', 'mollig');
Diese Arrays sollen nun zu einem Multidimensionalen Array zusammengeführt werden.

Als Ergebnis muss folgendes herauskommen:
Code: (dl )

1 2 3 4 5

@multi_array = ( ["Jule", "rot", "schlank"], ["Claudia", "blond", "zierlich"], ["Susi", "schwarz", "mollig"], );
Nach langem hin und her habe ich das nun auf folgendem Weg geschafft.
Code: (dl )

1 2 3 4 5

my $i = 0; foreach (@vorname) { $multi_array[$i] = [$vorname[$i], $haarfarbe[$i], $figur[$i]]; $i++; }
Das Ergebnis ist korrekt - nur frage ich mich (als Anfänger), ob das der richtige Weg ist oder ob man das, codetechnisch sauber, besser auf anderem Wege macht.

Was meint ihr dazu?

Danke schonmal im Voraus!

Gruß Matthias
Last edited: 2014-10-13 10:23:15 +0200 (CEST)
- +6 replies
- pq
  
  2014-10-13 10:36
  User since
  2003-08-04
  12208 Artikel
  Admin1
  naja, noch eine kleinigkeit würde ich anders machen:
  
  Code (perl): (dl )
  
  1 2 3
  
  foreach my $i (0 .. @vorname - 1) { $multi_array[$i] = [ $vorname[$i], $haarfarbe[$i], $figur[$i] ]; }
  
  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
  - Ionit
    
    2014-10-13 10:54
    
    User since
    2006-05-16
    81 Artikel
    BenutzerIn
    
    Vielen Dank pq!
  - +4 replies
  - GwenDragon
    
    2014-10-13 11:22
    
    User since
    2005-01-17
    14533 Artikel
    Admin1
    
    Historisches: @vorname - 1 konnte früher kürzer auch als $#vorname ($#... Länge des Arrays - 1, letzter Index des Arrays) geschrieben werden.
    
    //EDIT: falsche Aussage gestrichen
    ~~Aber $#... als Variable ist ab Perl 5.10 bei den Perl-Entwicklern als Unerwünscht (deprecated) gekennzeichnet. Man sollte sie nicht mehr benutzen.~~
    Last edited: 2014-10-14 15:16:29 +0200 (CEST)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +2 replies
    - pq
      
      2014-10-13 11:37
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      echt, seit wann ist $#array deprecated? 5.21?
      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
      - GwenDragon
        
        2014-10-13 18:41
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        OMG *doh* Habe $# mit $#ARRAYNAME verwexelt.
        
        Kommt davon wenn eine online in die Perldoc reinsieht und falsch mit Ctrl F sucht.
        Last edited: 2014-10-13 18:42:48 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - Gast wer
      
      2014-10-13 14:43
      
      du bist in die "falle" getappt aus dem die variable "$#" ausgemustert werden soll. man kann es zu leicht mit "$#VARNAME" verwechseln.
      
      "$#" ist ein alias für "$OFMT" und das bestimmt wie zahlen zu strings gewandelt werden.
      Last edited: 2014-10-13 14:54:25 +0200 (CEST)
- +2 replies
- Gast wer
  
  2014-10-13 10:46
  falls die arrays zerstört werden dürfen:
  
  Code (perl): (dl )
  
  push(@multi_array,[shift(@vorname), shift(@haarfarbe), shift(@figur)]) while(@vornmane);
  - Ionit
    
    2014-10-13 10:54
    
    User since
    2006-05-16
    81 Artikel
    BenutzerIn
    
    Auch an Dich Gast -> Danke!
- +3 replies
- Muffi
  
  2014-10-13 11:38
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Was man sich noch fragen könnte ist, ob man ein Array oder lieber einen Hash will.
  
  dann müsste man nicht über den Index
  
  Code (perl): (dl )
  
  $array[$i][0] # 0 ist der Vorname
  
  sondern hübscher über den Key abfragen
  
  Code (perl): (dl )
  
  $array[$i]{vorname}
  
  1 + 1 = 10
  - +2 replies
  - Ionit
    
    2014-10-13 12:20
    
    User since
    2006-05-16
    81 Artikel
    BenutzerIn
    
    Danke Mufti aber über Hashes wollte ich das nicht lösen. Trotzdem danke für den Hinweis.
    - rosti
      
      2014-10-15 10:24
      
      User since
      2011-03-19
      3194 Artikel
      BenutzerIn
      
      Es lohnt sich, darüber nachzudenken, gerade hier liegen doch auch die Vorzüge von Perl, mit Hash-Referenzen arbeiten zu können. Du wirst Dir ohnehin eines von den drei Arrays ausgucken als Basis für Deine zukünftige Datenstruktur. Random Access ist das Zauberwort und das erreichst Du beispielsweise so, dass über das Array mit den Namen ein Hash erzeugt wird, welcher die Namen als Schlüssel und die dazugehörigen Eigenschaften ebenfalls als Schlüssel-Werte-Paare enthält.
      
      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
      
      my @vorname = ('Jule', 'Claudia', 'Susi'); my @haarfarbe = ('rot', 'blond', 'schwarz'); my @figur = ('schlank', 'zierlich', 'mollig'); my %merged = map{ $vorname[$_] => { hair => $haarfarbe[$_], body => $figur[$_] } }0 .. scalar @vorname - 1; print Dumper \%merged; # ausgabe $VAR1 = { 'Jule' => { 'body' => 'schlank', 'hair' => 'rot' }, 'Claudia' => { 'body' => 'zierlich', 'hair' => 'blond' }, 'Susi' => { 'body' => 'mollig', 'hair' => 'schwarz' } };
      
      Die Eigenschaften sind damit direkt adressierbar, wahlfreier Zugriff eben, what willste mehr ;)
- +7 replies
- rosti
  
  2014-10-13 11:59
  User since
  2011-03-19
  3194 Artikel
  BenutzerIn
  Wenn Du weißt, wie das Ergebnis aussehen soll, kannst Du das auch so zusammenstellen:
  
  Code (perl): (dl )
  
  my @multi = (\@vorname, \@haarfarbe, \@figur);
  - +5 replies
  - Ionit
    
    2014-10-13 12:16
    User since
    2006-05-16
    81 Artikel
    BenutzerIn
    
    Hallo Rosti,
    
    ich hatte das letzte Nacht auch so versucht/probiert da ich das als Code-Beispiel auf Perl-Monks gefunden hatte.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    my @array = ('Jule', 'Claudia', 'Susi'); my @array1 = ('rot', 'blond', 'schwarz'); my @array2 = ('schlank', 'zierlich', 'mollig'); my $array_reference = \@array; my $array1_reference = \@array1; my $array2_reference = \@array2; my @profiles_sql = ($array_reference, $array1_reference, $array2_reference);
    
    Aber leider funzte das nicht denn als Ausgabe erhielt ich immmer ...
    
    Code: (dl )
    
    1 2 3 4 5
    
    @profiles_sql = ( ["Jule", "Claudia", "Susi"], ["rot", "blond", "schwarz"], ["schlank", "zierlich", "mollig"], );
    
    Ist Dein Codebeispiel nicht genu das selbe (nur in Kurzform) oder irre ich?
    Last edited: 2014-10-13 12:22:02 +0200 (CEST)
    - +2 replies
    - Raubtier
      
      2014-10-13 12:25
      
      User since
      2012-05-04
      1054 Artikel
      BenutzerIn
      
      Du kannst dann das Modul Array::Transpose verwenden. Das Modul ist Pure Perl und so kurz, dass du es verstehen solltest.
      - Ionit
        
        2014-10-14 19:27
        
        User since
        2006-05-16
        81 Artikel
        BenutzerIn
        
        Hallo Raubtier,
        
        danke für den Hinweis auf Array::Transpose!
        
        Ich habe es ja schon andersweitig hinbekommen aber trotzdem ist Array::Transpose nun in meiner Liste der hilfreichen Module aufgenommen (für die Zukunft). :-)
        
        Thx a lot!
        
        Gruß Matthias
    - +2 replies
    - rosti
      
      2014-10-13 12:32
      
      User since
      2011-03-19
      3194 Artikel
      BenutzerIn
      
      Quote
      Ist Dein Codebeispiel nicht genu das selbe (nur in Kurzform) oder irre ich?
      
      Mein Beispiel ist Käse, weil es die Aufgabenstellung verfehlt. Habe ich nicht gleich gesehen ;)
      
      Edit:
      
      Deine Schleife ist ok, die macht was sie soll. Auch mit einem map gehts über den Index:
      
      Code (perl): (dl )
      
      my @merged = map{[$vorname[$_], $haarfarbe[$_], $figur[$_]]} 0 .. scalar @vorname - 1;
      
      Last edited: 2014-10-13 12:43:52 +0200 (CEST)
      - Ionit
        
        2014-10-14 19:28
        
        User since
        2006-05-16
        81 Artikel
        BenutzerIn
        
        Auch an Dich danke für den Hinweis auf "map" .... das werde ich mal testen und ausprobieren.
        
        Viele Grüße Matthias
  - pq
    
    2014-10-13 12:32
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das macht aber was anderes als gewünscht.
    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
- murphy
  
  2014-10-17 20:05
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Ich hätte noch eine Lösung mit List::MoreUtils anzubieten, die in diesem Fall aber wohl mehr als Kuriosität zu sehen ist:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  use 5.012; use List::MoreUtils qw(part zip); my @vorname = ('Jule', 'Claudia', 'Susi'); my @haarfarbe = ('rot', 'blond', 'schwarz'); my @figur = ('schlank', 'zierlich', 'mollig'); my @multi_array = do { my $i = 0; part { $i++ / 3 } zip @vorname, @haarfarbe, @figur; }; use Data::Dumper; print Dumper \@multi_array;
  
  When C++ is your hammer, every problem looks like your thumb.

View all threads created 2014-10-13 10:19.