Perl regex für ein Zeichen in einem Wort grep

Question

Ich versuche, ein Perl-Skript für ein Zeichen in einer Zeichenfolge grep zu schreiben. Alle Zeichenfolgen sind in einem Array gespeichert. Wir iterieren über das Array und schauen, ob das bestimmte Wort vorkommt, falls ja, grep für ein bestimmtes Muster.

my @array = ("Foo1", "Bar", "Baz", "Foo5", "Foo2", "Bak", "Foo3"); 
foreach my $ var (@array){ 
    if ($var =~ /Foo/){ 
     #Regex to grep for the number which is at the end of string Foo 
    } 
} 

Alle Leads sind willkommen. Danke für die Hilfe.

************ Edits ***********

Danke für die Kommentare.

Das obige ist der Code, den ich versuchte, und es hat nichts gedruckt.

Answer 1

Abgleich ohne Bindung =~ passt auf die Variable $ _, die Sie nicht verwenden. Außerdem bedeutet der Punkt vor Foo, dass der zweite Regex nur dann übereinstimmt, wenn Foo etwas vorausgeht (das ist kein Newline). Da alle Strings, die Foo enthalten, damit beginnen, kann der zweite Regex niemals übereinstimmen, selbst wenn Sie $var =~ angeben.

Darüber hinaus können Sie die Nummer direkt in der Bedingung übereinstimmen.

Und schließlich, passt nicht Ziffern. Verwenden Sie stattdessen [0-9].

my @array = qw(Foo1 Bar Baz Foo5 Foo2 Bak Foo3); 
foreach my $var (@array){ 
    if ($var =~ /Foo([0-9]+)/){ 
     print $1, "\n"; 
    } 
} 

Answer 2

Versuchen Sie dies für Ihre zweite regex

[^\w]*([0-9]) 

Dann können Sie die erste Gruppe verwenden, um die Zahl zu erhalten.

Answer 3

my @array = qw(Foo1 Bar Baz Foo5 Foo2 Bak Foo3); 
my @var = map(/Foo(\w+)/) @array; 

print @var ;