模式匹配问题

[airhand]

• 编写一个短程序，使它能够执行下列操作：
1) 打开一个文件。
2) 将所有文件行读入一个数组。
3) 从每个行中取出所有单词。
4) 找出至少拥有4个连续辅音或非元音字母的所有单词（比如“thoughts”或“y ardstick”这样的单词）。

[owenszp]

agree with the person

[AllCHN]

my @words;
open(FILE, "$filepath") || die("File error!");
@alllines = <FILE>;
close(FILE);
foreach (@alllines) {
my @linewords = ($_ =~ /\b(\w*[b-df-hj-np-tv-z]{4}\w*)\b/g);
@words = (@words, @linewords);
}

[frontpage]

妙极

[airhand]

谢谢，我就是匹配的那块返回值不对，现在知道了。
送分喽！