perl如何找出末尾匹配eae但不匹配odieae及aceae的单词的程序

来源：百度知道 编辑：UC知道 时间：2024/05/13 15:55:17
Actinidia deliciosa(猕猴桃); Magnoliophyta; Asterales;Carduoideae;Ericales; Actinidiaceae;Cardueae;Actium"
已将各个单词放如数组内，要求如上，xiexie谢谢啦

#!/usr/bin/perl -w
my @array = ("Actinidia deliciosa","Magnoliophyta","Asterales","Carduoideae","Ericales","Actinidiaceae","Cardueae","Actium" ) ;
my $word ;
my @match_array ;
foreach (@array) {
if (/eae$/ && !( /odieae$/ || /aceae$/) ) {
push @match_array,$_ ;
}
}

print "@match_array"."\n" ;

运行结果:
Carduoideae Cardueae