Regex Ergebnis in Schleifenkörper retten (gelöst) - #163941 (Allgemeines zu Perl)

Linuxer

2012-12-05 15:11

User since
2006-01-27
3875 Artikel
HausmeisterIn

user image

Ein wenig gehässig, $k als Laufvariable zu nehmen und den Regex auf $_ loszulassen, oder nicht? ;-)

Mein Vorschlag:

Code (perl): (dl )

#! /usr/bin/perl
use strict;
use warnings;

my %hash = (
        foo1    => 'test',
        foo2    => 'test2',
);

for my $k (keys %hash) {
    next unless( my ($id) = $k =~ /^foo(\d+)$/ );
    # $id entspricht $1 des regex matchings

    print $id, "\n";
}

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!