我正在寻找一个子程序 mysub
其行为应使以下两个调用实际上相同。
mysub(["values", "in", "a", "list"]);
mysub("Passing", "scalar", "values");
使这种情况发生的正确语法是什么?
最佳答案
检查是否 @_
包含单个数组引用。
sub mysub {
if ( @_ == 1 && ref( $_[0] ) eq 'ARRAY' ) {
# Single array ref
} else {
# A list
}
}
if
子句使用 ref
检查是否只传递了一个参数并且该参数是数组引用。 .为确保案例相同:sub mysub {
if ( @_ == 1 && ref( $_[0] ) eq 'ARRAY' ) {
@_ = @{ $_[0] };
}
# Rest of the code
}
关于arrays - 如何制作一个接受数组 * 或 * 可变数量标量的子程序?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5278021/