检测Perl中如何调用子例程

发布时间：2020-12-15 21:52:22 所属栏目：大数据来源：网络整理

导读：我想检测一个子程序是如何被调用的,所以我可以根据每种情况使它的行为不同： # If it is equaled to a variable,do something:$var = my_subroutine();# But if it's not,do something else:my_subroutine(); 那可能吗？解决方法使用 wantarray if(not def

我想检测一个子程序是如何被调用的,所以我可以根据每种情况使它的行为不同：

# If it is equaled to a variable,do something:
$var = my_subroutine();

# But if it's not,do something else:
my_subroutine();

那可能吗？

解决方法

使用 wantarray

if(not defined wantarray) {
    # void context: foo()
}
elsif(not wantarray) {
    # scalar context: $x = foo()
}
else {
    # list context: @x = foo()
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!