regex - Perl正则表达式匹配元音

Question

这个问题已经在这里有了答案:




9年前关闭。

Possible Duplicate:
Regex to match vowels in order as they appear once

这匹配具有a e i o u的单词:

foreach $v(@lines)
{
    if(($v =~ /a/) && ($v =~ /e/) && ($v =~ /i/) && ($v =~ /o/) && ($v =~ /u/))
    {
        print $v;
    }
}

如何使它仅按a e i o u顺序匹配？例如，单词abstemious将匹配。

Answer 1

$v =~/a.*e.*i.*o.*u/

应该做到的。