我正在尝试从文件中读取数据并打印包含所有小写元音字母('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);
它没有打印任何东西 :/