在一个声明中合并foreach和if（regex）

Question

有没有机会

 foreach my $elements(keys %my_hash){
     if($element =~ /some_expression/{
         do something;
     }
 }

在一个声明中，如

foreach my $elements (keys %my_hash) =~ /some expression/{
    do something;
} 

Answer 1

foreach my $elements (grep /some_expression/, keys %my_hash) {
    do something;
}

Answer 2

您可以使用grep内置：

for my $element (grep /some_expression/, keys %my_hash) {
  do_something();
}