如何从子例程中不返回任何内容？

Question

我想在执行下一步之前验证一个条件，但只发出警告并跳过当前值而不是死掉。

如何重写 validate_me() 子程序而不返回任何值？

（更新） 请注意，以下代码按预期工作，只是我想要其他东西，而不是从 validate_me() 返回 1 或 0，这仍然允许代码表现相同。

foreach my $file ( @files ) {
    validate_me($foo, $bar, $baz) or next;
    do_something();
}  

sub validate_me {
    my ($foo, $bar) = @_;

    if ( $foo > $bar ) {
        carp("Something goes awol");
        return 0;
    }

    if ( $bar != $baz ) {
        carp("Odd");
        return 0;
    }

    return 1; # success
}

谢谢。

Answer 1

查看return 的文档。如果您不想返回任何内容，请不要给 return 一个参数：

 return;

Answer 2

首先，没有理由在循环中使用标签，next; 本身会自动执行封闭循环的下一次迭代。

至于你的问题，我对你想要完成的事情有点困惑。如果您的任何测试失败，您编写的代码将从validate_me 返回零，这是一个错误值，这将导致循环的下一次迭代。 validate_me 中没有任何东西会导致任何东西死亡。

Answer 3

更新：

我想要其他东西，而不是从 validate_me() 返回 1 或 0，它们仍然允许代码表现相同。

这是你的意思吗？见eval。

my @files = qw( a b c d e f );

FILES:
foreach my $file ( @files ) {
    eval { validate_me($file) };
    if (my $ex = $@) {
        warn "'$file' failed validation: $ex";
        next FILES;
    }
    print "$file passed\n";
}

sub validate_me {
    my ($file) = @_;
    die "Invalid filename\n" if 0.5 > rand;
    return; # explicitly return nothing
}

现在，明智的做法是将validate_me 重构为其组件：

for my $file ( @files ) {
    if ( is_something_gone_awol($file, $mile) ) {
        warn "Something has gone awol: '$file' and '$mile'\n";
    }
    elsif ( is_something_odd($file, $smile) ) {
        warn "Something is odd: '$file' and '$smile'\n";
    }
    else {
        do_something($file);
    }
}

sub is_something_gone_awol {
    my ($foo, $bar) = 0;
    return $foo gt $bar;
}

sub is_something_odd {
    my ($bar, $baz) = @_;
    return $bar ne $baz;
}

Answer 4

return; 将结束函数，不问任何问题。

但如果您想知道，您还可以使用作为参数传递给函数的指针/引用来返回值。

void foo(int input, outStruct *output) {
...
output = new outStruct(...); //for example;
return;
};

编辑 我是个白痴，看不懂标签/代码。该示例使用 C/C++，而不是 Perl。 哎呀。

Answer 5

您可以return undef 或只是return。