回报有什么区别？并返回undef;在Perl

一般来说，返回undef通常不是一个好主意;从通常在列表上下文中使用的子例程：

sub foo { return undef }
if ( my @x = foo() ) {
    print "oops,we think we got a result";
}

一般来说，返回通常不是一个好主意;通常在标量上下文中使用的子例程，因为它不会像用户期望在列表上下文中的行为：

sub foo { return }
%x = ( 'foo' => foo(),'bar' => 'baz' );
if ( ! exists $x{'bar'} ) {
    print "oops,bar became a value,not a key";
}

这两个错误在实践中都发生了相当多的事情，后者更是如此，也许是因为预计返回一个标量的子代比较常见。而如果它返回一个标量，它最好返回一个标量。