$1 in Grep (Allgemeines zu Perl)

[thread]14502[/thread]

$1 in Grep

Leser: 24

Articles: hide open all | hide show old branches

+6 replies
bianca

2010-01-17 13:04
User since
2009-09-13
7016 Artikel
BenutzerIn
Hi!
Hab eine für mich neue Konstellation einer Schleife "gebaut".
Funktionieren tut es zwar aber ich bin ein bißchen unsicher, ob das Zufall oder korrekt perlig ist:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/perl -w use strict; use diagnostics; my %hash = ( VERTRAG1 => '123', VERTRAG2 => '345', VERTRAG3 => '678', VERTRAG4 => '91011', FOO => '91011', BAR => '91011', ); foreach my $temp (sort {substr ($b,7) <=> substr ($a,7)} grep {/^VERTRAG(\d+)$/ && $1 < 3} keys %hash) { print "Untersuche $temp\n"; }
Ziel ist: Es sollen alle Hash-Äste beginnend mit der Konstante "VERTRAG" durchgeackert werden, wenn hinter der Konstante die Ziffer kleiner 3 ist.

Meine große Unsicherheit liegt im grep{}. liegt in $1 tatsächlich der Wert aus der Regex-Klammer vor dem and oder ist das Zufall?
Danke Euch und schönen Sonntag noch!

Edit: C&P Fehler
Last edited: 2010-01-17 13:06:15 +0100 (CET)
10 print "Hallo"
20 goto 10
- +2 replies
- murphy
  
  2010-01-17 13:31
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  2010-01-17T12:04:54 bianca
  [...]
  Meine große Unsicherheit liegt im grep{}. liegt in $1 tatsächlich der Wert aus der Regex-Klammer vor dem and oder ist das Zufall?
  [...]
  
  Da && Kurschlussauswertung betreibt, die Ausführung seiner beiden Operanden daher sequentiell erfolgt und außerdem zwischendurch kein Code im gleichen Interpreterthread ausgeführt werden kann, sehe ich keinen Grund warum man sich nicht darauf verlassen können sollte, dass der Vergleich $1 < 3 nur dann ausgeführt wird, wenn der reguläre Ausdruck passt und dass $1 dann auch die entsprechende Gruppe aus dem regulären Ausdruck enthält.
  
  Das gesamte Konstrukt im for-Schleifenkopf sieht für meine Begriffe sinnvoll aus und hat gerade noch eine übersichtliche Größe.
  
  Kurzum, ich finde an dem Code nichts auszusetzen :-)
  When C++ is your hammer, every problem looks like your thumb.
  - bianca
    
    2010-01-17 13:36
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke murphy, das wollte ich hören :)
    
    Hab auch noch weiter dran gearbeitet (brauche nämlich tatsächlich nur den davor und den dahinter, es geschah in Königswinter :)) ) und konnte so den ganzen sort{} Teil sparen. Jetzt sieht es ganz schnuckelig aus:
    
    foreach my $temp (grep {/^VERTRAG(\d+)$/ && ($1 == $gesucht-1 || $1 == $gesucht+1)} keys %hash) {
    ...
    }
    
    Edit: Und die rechte Klammer im grep{} hab ich ersetzt durch abs $1-$gesucht == 1
    Jetzt siehts ganz gut aus :)
    Hoffentlich ist es auch noch genau so richtig:
    
    Code (perl): (dl )
    
    1 2 3
    
    foreach my $temp (grep {/^VERTRAG(\d+)$/ && abs $1-$gesucht == 1} keys %hash) { print "Untersuche $temp\n"; }
    
    Last edited: 2010-01-17 13:54:01 +0100 (CET)
    10 print "Hallo"
    20 goto 10
- +3 replies
- Gast anon
  
  2010-01-17 15:23
  Ich finde es gruselig, mit Nebenwirkungen zu programmieren. Funktional rein sieht es so aus:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $prefix = 'VERTRAG'; foreach my $temp ( grep {0 == index($_, $prefix) && substr($_, length $prefix) < 3} keys %hash ) { print "Untersuche $temp\n"; }
  - bianca
    
    2010-01-17 15:32
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke anon, für diese Alternative.
    Sieht auch sehr schön aus. Komme ich fast ins Grübeln, welches ich nehme.
    Da das andere jetzt schon fest drin ist, lasse ich es so.
    Performance ist mir egal, sind keine Massen, geht um reine Funktion und schönen Code an dieser Stelle.
    Und da das andere aus meiner eigenen Birne entstammt, find ich es schöner :)
    10 print "Hallo"
    20 goto 10
  - Gast q
    
    2010-01-18 07:56
    
    Guest anon
    Ich finde es gruselig, mit Nebenwirkungen zu programmieren.
    
    Ist damit gemeint, dass grep eine Liste zurückgibt, aber als Nebeneffekt auch $1?

View all threads created 2010-01-17 13:04.