perl - 验证子进程的 Perl 参数

Question

所以我是一个初学者 Perl 程序员。我已经使用它大约一个月了，但是仅在上周左右，我才将它用于除了系统管理员类型的任务之外的任何事情。在这样做时，我遇到了以下问题，

Perl 子进程非常灵活，它们不会对您传入的参数施加很多/任何限制。如何强制执行参数的数量和/或检查它们是否是引用、标量等？

为了澄清，这是我目前为 Perl 子进程所做的:

sub mySub{
    ($a, $b) = @_;
    continue and use these methods
 }

但这不能保证 $a和 $b捕获。无论如何要确保它们包含值，例如 $a 的引用和 $b 的标量?

提前致谢。

编辑:当我说 $b 的标量时我的意思是包含一个整数，而不是对其他数据结构的引用。

Answer 1

您可以使用 Params::Validate模块，它提供了检查参数列表的广泛可能性。

在你的情况下，像

validate_pos(@_, { type => HASHREF | ARRAYREF }, { type => SCALAR })

会这样做(请注意，它没有“ref”的单一类型)。当参数不匹配时它会死掉。