Frage zu map (Allgemeines zu Perl)

[thread]13751[/thread]

Frage zu map

Leser: 24

Articles: hide open all | hide show old branches

+8 replies
mikdoe

2009-07-17 17:16
User since
2007-08-13
98 Artikel
BenutzerIn
Frage zu map ohne Crosspost:

mit
Code (perl): (dl )

1 2 3 4 5

my @array; $array[0] = 'A'; $array[1] = 'B'; $array[2] = 'C'; print "Liste:\n" . (join("\n",map{defined($_) ? "Wert => $_" : ''} @array)) . "\n";
erhalte ich
Code: (dl )

1 2 3 4

Liste: Wert => A Wert => B Wert => C
Wie schaffe ich es unter Verwendung von map zu diesem Ergebnis?
Code: (dl )

1 2 3 4

Liste: Wert 0 => A Wert 1 => B Wert 2 => C
Danke
Antworten mit Zitat
- +6 replies
- MatthiasW
  
  2009-07-17 17:56
  
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  
  Anstelle von map ... @array kannst du map ... 0 .. $#array schreiben. Der Rest sollte kein Problem sein.
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  
  Antworten mit Zitat
  - +5 replies
  - mikdoe
    
    2009-07-17 18:23
    
    User since
    2007-08-13
    98 Artikel
    BenutzerIn
    
    ?
    
    0 und $#array?
    Wie jetzt?
    Wo soll die 0 hin und wo brauche ich die Größe von array wenn ich die laufende Nummer haben will?
    
    Antworten mit Zitat
    - +4 replies
    - MatthiasW
      
      2009-07-17 18:34
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Wenn du "die laufende Nummer haben will[st]" musst du eben über die Indices des Arrays laufen. (Anstatt über @array zu laufen.) 0 .. $#array erzeugt eine Liste der Indices.
      
      Eigentlich bin ich der Meinung, die Antwort war eindeutig, schließlich ist da nur ein map in dem von dir geposteten Code. Um deine gewünschte Ausgabe zu bekommen, musst du natürlich noch ein bisschen was an deinem Code ändern.
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      
      Antworten mit Zitat
      - +3 replies
      - mikdoe
        
        2009-07-17 18:49
        
        User since
        2007-08-13
        98 Artikel
        BenutzerIn
        
        Ja, ich dachte mir, dass ich etwas am Code ändern muss. Und meine Frage war, wie ich das mit map mache.
        
        Bin ich jetzt auch schon zu doof (oder zu egozentrisch?), Fragen zu stellen?
        
        Ich frage mal anders.
        Wie muss mein Code umgestellt werden, damit ich das o.a. Ergebnis erziele?
        
        Danke und Grüße
        Last edited: 2009-07-17 18:52:37 +0200 (CEST)
        
        Antworten mit Zitat
        
        +2 replies
        
        mikdoe
        
        2009-07-17 18:56
        
        User since
        2007-08-13
        98 Artikel
        BenutzerIn
        
        Oder besser lassen wir das mal komplett sein.
        
        Die Leute hier sind anscheinend ohnehin nicht kritikfähig, von sich selbst über alle Maßen überzeugt und neue Leute sind eh nicht gern gesehen, da von vorn herein unkompetent und weniger "nützlich" als bekannte User, insbesondere wenn sie keine Mitläufer sind und auch mal etwas zum Nachdenken von sich geben.
        
        Danke Matthi, wir lassen das besser.
        Schließt den Thread, ich verzieh mich, bin hier falsch. War vielleicht auch kein guter Start.
        
        Grüße
        
        Antworten mit Zitat
        
        GwenDragon
        
        2009-07-17 19:39
        
        User since
        2005-01-17
        14782 Artikel
        Admin1
        
        Na, selbst gelöst?
        Kein Bedarf mehr an der Lösung.
        Habe ich übersehen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Antworten mit Zitat
- GwenDragon
  
  2009-07-17 19:37
  User since
  2005-01-17
  14782 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @array; $array[0] = 'A'; $array[1] = 'B'; $array[2] = 'C'; print "Liste:\n" . (join("\n",map{defined($_) ? "Wert => $_" : ''} @array)) . "\n"
  
  Was du mit
  
  Code (perl): (dl )
  
  1 2 3
  
  print "Liste:\n" . (join "\n", map { defined ($array[$_]) ? "Wert $_ => $array[$_]" : '' } 0 .. $#array) . "\n";
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  Antworten mit Zitat

View all threads created 2009-07-17 17:16.