regex - 正则表达式程序不打印

Question

我正在尝试从文件中读取数据并打印包含所有小写元音('a'、'e'、'i'、'o'、'u')的单词(每行一个)命令。他们不需要彼此相邻

#!/usr/local/bin/perl
#$data_file = "words.txt;
open (MYFILE, $data_file) or die "can't find file - $!";

while (<MYFILE> =~ m/.*a.*e.*i.*o.*u.*/i)
{
    print "$_";
}

close(MYFILE);

它没有打印任何东西:/

Answer 1

问题不在于正则表达式，而在于你如何使用文件句柄，试试这个:

while (<MYFILE>) {
    print if /.*a.*e.*i.*o.*u.*/i;
}