regex - Perl正規表現:2つの非数字の間に数字がある文字列を一致させる方法は?

Question

2 つの非数字の間に 1 つ以上の数字があり、文字列が数字で終わる配列の文字列を一致させるにはどうすればよいですか? 一致しなかった文字列を出力したいとしましょう。どうすればいいですか？

これが私がこれまでに持っているものです

my @array = ("OST3GIC2", "GRE1", "foo23eoo4","MAX13", "foo9fsa2");
foreach @array{
if !(grep /^+\D(+\d)+\D\d$/) {
print $_."\n";
}

望ましい出力

GRE1
MAX13

ありがとう

score 4 · Accepted Answer

あなたは探すことができます：

/\D\d+\D.*\d$/

score 2 · Accepted Answer

不一致を直接必要とする場合は、次を使用できます

^\D+\d+$

一致が必要な場合は、フィルターで除外します。

^\D*\d+\D+\d+$

score 2 · Accepted Answer

my @array = ("OST3GIC2", "GRE1", "foo23eoo4","MAX13", "foo9fsa2");

print(join("\n", grep { ! /^\D+\d+\D+\d+$/ } @array) . "\n");

意味

( anyは、ここで少なくとも 1 つを意味します)

3 に答える 3