将参数传递给perl子例程的干净方法，因为它们不首先存储到变量？
将参数传递给perl子例程的干净方法，因为它们不首先存储到变量？
提问于 2016-01-13 18:13:10
我希望将例程的参数传递给一个子例程，可能的时候添加一个新的参数。举个例子，想象一下这样的事情
sub log($$$){
my ($message, $log_location, $log_level) = @_;
#logs message
}
sub log_debug($$){
my ($message, $log_location) = @_;
log($message, $log_location, DEBUG_LOG_LEVEL);
}上述语法运行良好，但需要将@_保存到中间变量。我想知道，在不使用中间变量的情况下，是否有一个简单干净的语法可以做到这一点。有点像
log(@_, DEBUG_LOG_LEVEL);这会导致我的“没有足够的变量”的错误，但我认为否则会有效。在没有警告的情况下，这是否容易做到呢？
回答 3
Stack Overflow用户
回答已采纳
发布于 2016-01-13 19:54:34
您不必复制@_的元素。您可以直接使用它们如下：
sub log_debug($$) {
log($_[0], $_[1], DEBUG_LOG_LEVEL);
}使用&作为调用的前缀会使原型被忽略，因此您还可以使用以下方法：
sub log_debug($$) {
&log(@_, DEBUG_LOG_LEVEL);
}如果删除参数(包括())，被调用方将使用父级的@_而不是创建新的参数。下面的解决方案比以前的解决方案略高一些：
sub log_debug($$) {
push @_, DEBUG_LOG_LEVEL;
&log;
}最后，如果log获得堆栈跟踪，则可能需要从跟踪中删除log_debug。这样做的效率略低一些。
sub log_debug($$) {
push @_, DEBUG_LOG_LEVEL;
goto &log;
}请注意，我发布的四种解决方案中没有一种能复制参数。
Stack Overflow用户
发布于 2016-01-13 18:21:41
当然，跳过原型
sub log {
my ($message, $log_location, $log_level) = @_;
#logs message
}
sub log_debug {
log(@_, DEBUG_LOG_LEVEL);
}Stack Overflow用户
发布于 2016-01-13 18:33:31
您可以通过使用&调用您的子程序来跳过原型检查。
&log(@_, DEBUG_LOG_LEVEL);根据perlsub
&表单不仅使参数列表成为可选的，还禁用了对您提供的参数的任何原型检查。这部分是出于历史原因，也部分是因为如果你知道自己在做什么的话，有一种方便的欺骗方式。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/34774057
复制相关文章
相似问题
腾讯云开发者
