在Perl中使用map或grep

Question

我一直在全职编写perl代码几个月（生物信息学），并且一直在努力提高我的技能。就在今天，我发现我从不使用map或grep。回顾我的代码，我意识到这些工具可以为我节省几行，但这只会牺牲foreach循环的灵活性。我的问题如下：

是否有任何情况下使用map或grep为foreach/for循环带来了显着的优势，除了保存一行或两行代码？

谢谢你的时间！

Answer 1

的Schwartzian Transform将是一个例子：

@sorted = map { $_->[0] } 
      sort { $a->[1] cmp $b->[1] } 
      map { [$_, foo($_)] } 
      @unsorted; 

你可以做到这一点与一堆foreach循环，但是你必须挑选他们除了要弄清楚发生了什么事情;一旦你看到Schwartzian变换，你立即认出这个成语。

一般来说，我认为map和grep是好的，因为它们允许您清晰，紧凑地表示您的意图，无需语法层。如果你看到一个map，那么你知道某种简单的数据结构转换正在进行;如果您看到grep，那么您知道某些过滤/选择正在进行。你可以用foreach做到这一点，但是你的代码的意图不如map或grep;如果你愿意，你甚至可以用if和goto来完成，但是你的意图将会被更多的语法和状态追踪所掩盖。

Answer 2

我经常使用map和grep。和apply,first,any和许多其他从List::MoreUtils。我发现，一般情况下，他们解释了代码在做什么而不是代码如何做。

一般来说，我发现当我的代码读取与spec相同时，它更可能是正确的，并且更有可能处理拐角/边缘情况。 Perl允许我比以前使用的任何语言都做得更好，我利用它。

例如，如果我的规格说我会做foo()如果$blah在一些名单，我的代码读取这样认为的：对于这些工具的其余

foo() if any { $_ eq $blah } some_list(); 

同样的想法。代码和规范看起来非常相似，这是关于Perl的伟大之处之一。