perl - 在 Perl 中如何使用 map() 将操作应用于散列的每个元素？

Question

我有一段代码可以正常工作。它基本上使用 foreach() 遍历散列的每个元素，并使用正则表达式对其应用转换，如下所示:

foreach my $key ( keys( %{$results} ) ) {
   $results->{$key}{uri} =~ s/\".*\/(.*\.*(gif|jpe?g|png))\"/\/resources\/uploads\/$1/gi;
}

$results 是 DBI 的 fetchall_hashref() 函数返回的 hashref。

出于好奇，我想看看是否可以使用 map() 重写它，如下所示:

map {
   $results{$_}{uri} =~ s/\".*\/(.*\.*(gif|jpe?g|png))\"/\/resources\/uploads\/$1/gi
} keys %{$results};

不幸的是，这行不通。我已经尝试了各种各样的事情，但到目前为止都没有成功。有人知道怎么做吗？谢谢。

更新

更正后的代码，由 ysth 回答:

map {
   $results->{$_}{uri} =~ s/\".*\/(.*\.*(gif|jpe?g|png))\"/\/resources\/uploads\/$1/gi
} keys %{$results};

以及 Sinan Ünür 建议的倾斜牙签的改进版本

map {
   $results->{$_}{uri} =~ s{".*/(.*\.*(gif|jpe?g|png))"}{/resources/uploads/$1}gi
} keys %{$results};

Answer 1

值得一提的是，你可以逃脱

$_->{uri} =~ s/foo/bar/ for values %$results;

在这种情况下。浏览数据结构不会干扰构成它的引用。