$1 in Grep - #130660 (Allgemeines zu Perl)

Gast anon

2010-01-17 15:23

Ich finde es gruselig, mit Nebenwirkungen zu programmieren. Funktional rein sieht es so aus:

Code (perl): (dl )

my $prefix = 'VERTRAG';
foreach my $temp (
    grep {0 == index($_, $prefix) && substr($_, length $prefix) < 3} keys %hash
) {
    print "Untersuche $temp\n";
}