大佬教程收集整理的这篇文章主要介绍了在Perl中使用defined / undef，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
sub myFunction {
my ($length,$optional) = (@_);
if(undef($optional)
{
more code..
}
else
{
more code...
}
}
myFunction(18)
sub myFunction {
my( $length,$optional ) = @_;
if( ! defined $optional ) {
# Do whatever needs to be done if $optional isn't defined.
}
else {
# Do whatever can be done if $optional *is* defined.
}
}
处理它的另一个方法(特别是Perl 5.10)是使用“defined or”运算符//,像这样：
sub MyFunc {
my $length = shift;
my $optional = shift // 'Default Value';
# Do your stuff here.
}
这样做是检测shift @_的返回值是否被定义.既然你已经调用了一次,我们现在正在测试第二个参数.如果已定义,则将该值分配给$optional.如果未定义,则将“默认值”分配给$可选.当然,你必须提出自己的理智默认.
如果你被困在Pre-Perl 5.10的黑暗时代,你可以完成相同的：
my $optional = shift; $optional = defined $optional ? $optional : 'Default value';
…要么…
my $length = shift; my $optional = defined( $_[0] ) ? shift : 'Default value';
无论哪种方式,我经常喜欢有一个理智的默认,而不是完全独立的控制流程.这通常是简化代码的好方法.
以上是大佬教程为你收集整理的在Perl中使用defined / undef全部内容，希望文章能够帮你解决在Perl中使用defined / undef所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。