如何在 perl 中跳过“死”

Question

我正在尝试使用 perl API 从网站中提取数据。该过程是使用 uri 列表作为输入。然后我从网站中提取每个 uri 的相关信息。如果一个 uri 的信息不存在，它就会死掉。类似于下面的代码

my @tags = $c->posts_for(uri =>"$currentURI");
die "No candidate related articles\n" unless @tags;

现在，如果程序没有得到任何标签，我不希望它停止。我希望程序跳过那个特定的 uri 并转到下一个可用的 uri。我该怎么做？ 感谢您的时间和帮助。

谢谢你， 萨默德

Answer 1

好吧，假设您在一个循环中依次处理每个 URI，您应该能够执行以下操作：

next unless @tags;

例如，以下程序仅打印数字行：

while (<STDIN>) {
    next unless /^\d+$/;
    print;
}

循环依次处理每个输入行，但是，当发现一个与该正则表达式（全数字）不匹配时，它会重新启动循环（用于下一个输入行）而不打印.

如果没有标签，上面的第一个代码块使用相同的方法重新启动循环，移动到下一个 URI。

Answer 2

除了传统的流控制工具，即循环中的next/last或子中的return，在perl中还可以使用异常：

eval {
    die "Bad bad thing";
};
if ($@) {
    # do something about it
};

或者只使用Try::Tiny。

但是，从任务的描述来看，next 似乎就足够了（所以我投票给了@paxdiablo 的答案）。

Answer 3

这个问题很奇怪，但据我所知，您问的是如何控制当前循环的流量。当然，使用die 会导致你的程序退出，所以如果你不想这样，你不应该使用die。对我来说似乎很初级，这就是为什么这是一个奇怪的问题。

所以，我假设你有一个循环，例如：

for my $currentURI (@uris) {
    my @tags = $c->posts_for(uri =>"$currentURI");
    die "No candidate related articles\n" unless @tags;
    # do stuff with @tags here....
}

如果@tags 为空，您想转到下一个URI。嗯，这是一件很容易解决的事情。有很多方法。

next unless @tags;
for my $tag (@tags) { ... stuff ... }
if (@tags) { .... }

下一个是最简单的。它跳到循环块的末尾并从下一次迭代开始。但是，使用 for 或 if 块会导致相同的行为，因此是等效的。例如：

for my $currentURI (@uris) {
    my @tags = $c->posts_for(uri =>"$currentURI");
    for my $tag (@tags) {
        do_something($tag);
    }
}

甚至：

for my $currentURI (@uris) {
    for my $tag ($c->posts_for(uri =>"$currentURI")) {
        do_something($tag);
    }
}

在最后一个示例中，我们一起删除了@tags，因为它不是必需的。如果没有“标签”，内部循环将运行零次。

这并不是真正复杂的东西，如果您不确定，我建议您尝试一下循环和条件以了解它们的工作原理。