map und array (gelöst) (Allgemeines zu Perl)

[thread]15249[/thread]

map und array [gelöst]

Leser: 20

Articles: hide open all | hide show old branches

+7 replies
bianca

2010-07-05 19:04
User since
2009-09-13
6978 Artikel
BenutzerIn
Ganz kurze Frage. Ich hab noch nicht so ganz verstanden, wie ich mittels map() erreiche, dass nicht definierte Einträge eines Arrays übersprungen werden:
Code (perl): (dl )

1 2 3 4 5 6 7

#!/usr/bin/perl -w use strict; use warnings; use diagnostics; my @inhalt = (10,20,undef,40); print "Und:\n" . join ("\n",map {$_ if defined $_} @inhalt) . "\n";
Ergibt:
Code: (dl )

1 2 3 4 5

Und: 10 20 40
Was ich aber gern hätte:
Code: (dl )

1 2 3

10 20 40
Wie muss ich das richtig schreiben?
Danke
10 print "Hallo"
20 goto 10
- +2 replies
- kristian
  
  2010-07-05 19:13
  
  User since
  2005-04-14
  684 Artikel
  BenutzerIn
  
  grep ist dein freund
  - bianca
    
    2010-07-05 19:16
    User since
    2009-09-13
    6978 Artikel
    BenutzerIn
    
    2010-07-05T17:13:29 kristian
    grep ist dein freund
    
    Jau, manchmal braucht man einen Holzfäller für den Wald :)
    
    Danke Dir
    
    Lösung:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    #!/usr/bin/perl -w use strict; use warnings; use diagnostics; my @inhalt = (10,20,undef,40); print "Und:\n" . join ("\n",grep {defined $_} @inhalt) . "\n";
    
    10 print "Hallo"
    20 goto 10
- lichtkind
  
  2010-07-05 19:16
  
  User since
  2004-03-22
  5680 Artikel
  ModeratorIn + EditorIn
  
  ich glaub da musst dir was mit for basteln weil map darauf ausgelegt ist zu jeder arrayzelle irgendein senf abzugeben
  
  edit: aaaah stimmt grep
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- +3 replies
- fw
  
  2010-07-05 20:45
  User since
  2010-07-04
  5 Artikel
  BenutzerIn
  2010-07-05T17:04:20 bianca
  Ganz kurze Frage. Ich hab noch nicht so ganz verstanden, wie ich mittels map() erreiche, dass nicht definierte Einträge eines Arrays übersprungen werden:
  
  Ohne grep:
  
  Code (perl): (dl )
  
  print "Und:\n" . join ("\n",map {$_||()} @inhalt) . "\n";
  
  || wirkt auch bei 0, '' etc., wenn du wirklich nur undef ausfiltern willst, dann nimm // (und ein hinreichend neues perl).
  - pq
    
    2010-07-05 20:48
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    ja, die lösung mit map braucht man vor allem, wenn man nicht das ursprüngliche objekt weitergeben will, sondern ein verändertes, und gleichzeitig noch filtern möchte.
    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
  - lichtkind
    
    2010-07-05 21:13
    
    User since
    2004-03-22
    5680 Artikel
    ModeratorIn + EditorIn
    
    sehr interesant danke
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.

View all threads created 2010-07-05 19:04.