我想在执行下一步之前验证一个条件,但只发出警告并跳过当前值而不是死掉。
如何重写 validate_me() 子例程而不返回任何值?
(Update)请注意,以下代码按预期工作,只是我想要其他东西,而不是从 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
}
Thanks.
检查文档return。如果您不想返回任何内容,请不要给 return 参数:
return;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)