2

我有两个数组，@names和@employees，其中填充了代表名称的字符串。 @names是二维的，持有对匿名数组的引用，但我们关心的数据的位置在@names[i][0]. 我想遍历@names并查找哪些名称不在@employees.

起初我认为@names向后循环，将其与其中的任何匹配项进行比较并从中@employees删除任何匹配项@names都可以，但我遇到了一些错误。这是我所拥有的：

for my $i (reverse(0 .. $#names)) {
  foreach my $employee (@employees) {
    if ($names[$i][0] eq $employee) {  # line 67
      splice(@names, $i, 1);
    }
  }
}

我遇到了这个错误：

在 script.pl 第 67 行第 2 行的字符串 eq 中使用未初始化的值。

字符串都在数组中定义。所以我猜这是因为我在循环遍历数组时删除了数组中的元素，但我认为向后循环数组可以防止这样的问题发生。

那么我的循环哪里出错了？此外，我一直在为这个循环而苦苦挣扎，这暗示我的整个思维过程出了点问题。有没有更好的方法来做到这一点？

4

2 回答 2

10

没有理由在这里显式循环。您想要过滤名称：这是一个grep. 您想检查成员资格：这也可以由 a 完成grep。

@names = grep {my $name = $$_[0]; not grep $_ eq $name, @employees} @names;

内部数组的重复扫描不是特别有效；可以通过提前预先填充一个集合（实际上是一个哈希）来避免这种情况。

my %employees = map +($_ => 1), @employees;
@names = grep !$employees{$$_[0]}, @names;
于 2012-06-13T19:26:53.490 回答
0

如果不提供代码，我会返回一个新的@names 列表。对于@names 中的每个名称，检查它是否在@employees 中，如果没有则将其添加到新的名称列表中。

于 2012-06-13T19:13:43.950 回答