Thread $1 in Grep (5 answers)
Opened by bianca at 2010-01-17 13:04

bianca
 2010-01-17 13:04
#130653 #130653
User since
2009-09-13
7016 Artikel
BenutzerIn

user image
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

View full thread $1 in Grep