Nur bestimmte Werte aus einer Liste ausgeben (Allgemeines zu Perl)

[thread]20420[/thread]

Nur bestimmte Werte aus einer Liste ausgeben

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+4 replies
Wild.Card

2018-01-22 19:41
User since
2017-02-27
19 Artikel
BenutzerIn
Ich gib's zu, ich tu mich wirklich schlecht mit foreach-Schleifen..Was mein Problem ist, ist es nur bestimmte Elemente wiederzugeben. Ich benutze sehr selten foreach, z.B. wenn ich "Eltern-Kind-Prozesse" definiere:
Code: (dl )

1 2 3 4 5 6

my $pid = undef; foreach my $i (1..10) { $pid = fork(); if (defined($pid)) ...
Ich habe mir nunmal angewöhnt sonst alles in grep zu schreiben, was ich sonst mit foreach auch tun könnte. Wenn ich also von einer Liste mit Zahlen 1 bis 15, die Werte 6 bis 11 wiedergeben will, sieht es in grep so aus:
Code: (dl )

1 2 3 4 5

my @array = (1..15); my @result = grep {$_ > 5 && $_ < 12}@array; print join (", ", @result);
mit foreach habe ich es versucht:
Code: (dl )

1 2 3 4 5 6 7

my @array = (1..15); foreach (@array) # HIER scheint das Problem zu sein { print $_ if ($_ > 5 && $_ < 12); #Das hier spielt keine Rolle } print join (", ", @array);
Ich habe die Stelle kommentiert wo ich das Problem vermute, denn es ist ja so, dass für die foreach-Schleife eine Stringeingabe erwartet wird, welche dann für diese Liste iteriert. Ich habe im O'Reiley geguckt, aber zu meinem Fall habe ich nichts gefunden. Müsste ich denn sowas scheiben wie:
foreach @result(@array) { ...
schreiben? Gibt es eine effizientere Möglichkeit, nur bestimmte Werte wiederzugeben?
Zum Schluss, warum mir grep lieber ist - so ziemlich aus dem gleichen Grund, warum ich lieber Scala lerne, als Java-Programmierer zu werden :)
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

my @ungerade; foreach (1..500) { if ($_ % 2) { push (@ungerade, $_); } } print "\n\n Ungerade Zahlen von 1 bis 500: \n"; print join ("\t", @ungerade);
VS
Code: (dl )

1 2 3

print "\n\n Das selbe in grep: \n"; my @ungerade = grep { $_ % 2; } 1..500; print join ("\t", @ungerade);
- hlubenow
  
  2018-01-22 20:05
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Das Pendant zu grep() wäre wohl:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use warnings; use strict; my @array = (1 .. 15); my @result = (); my $i; foreach $i (@array) { if ($i > 5 && $i < 12) { push(@result, $i); } } foreach $i (@result) { print "$i\n"; }
- +2 replies
- Linuxer
  
  2018-01-22 21:19
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  foreach iteriert über eine Liste. Wenn Du keine Laufvariable definierst, wird $_ benutzt. Die Laufvariable ist ein Skalar, kein Array.
  
  Dein Code:
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  my @array = (1..15); foreach (@array) { print $_ if ($_ > 5 && $_ < 12); } print join (", ", @array);
  
  Der geht ja in der Schleife nur jedes Element von @array durch und gibt es auf der aktuellen Standardausgabe aus, wenn der aktuelle Werte größer 5 und kleiner 12 ist. @array selbst wird hierbei nicht verändert. Nach der Schleife wird dann das komplette unveränderte @array ausgegeben.
  
  Wenn Du nach der Schleife die "gewünschten" Elemente in einem anderen Array haben willst, dann musst Du sie an Stelle des print selber in diesen neuen Array pushen. Das hat Dir hlubenow ja bereits aufgezeigt.
  
  Es hängt stark vom Anwendungsfall ab, ob man grep sinnvoll durch ein for/foreach ersetzen kann oder sollte. Hier halte ich grep für die richtige Wahl.
  
  Einfaches Prinzip:
  - grep() benutzen, wenn man einfach eine Auswahl von Elementen aus einer Liste von Werten haben will
  - for()/foreach() benutzen, wenn man beispielsweise alle Werte in einem Array verändern muss
  - for(;;) im Hinterkopf behalten und bei Bedarf verwenden (also das for() mit C-Syntax)
  - map() benutzen, wenn man für eine Liste von Werten eine Aktion durchführen muss und das Ergebnis in einem neuen Array haben will
  
  Gerade bei recht einfachen Sachverhalten versuche ich mich an dieses Prinzip zu halten.
  Wenn es kompliziertere Wünsche gibt, muss man sich das im konkreten Einzelfall anschauen, was man nutzen will.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Wild.Card
    
    2018-01-24 19:28
    
    User since
    2017-02-27
    19 Artikel
    BenutzerIn
    
    supi, danke :)

View all threads created 2018-01-22 19:41.