perl - 如何从子程序中不返回任何内容？

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;