为什么这个 Perl 函数返回一个值？

Question

   $hi = do_this('asdf');

   sub do_this
   {
       $blob{'f'} = {
          'k' => 'j'
      };
   }

   print $hi->{'k'};
   # prints j

既然 do_this 什么都没有返回，那它还怎么打印 j？

Answer 1

http://perldoc.perl.org/functions/return.html

在没有明确返回的情况下， 子程序、eval 或 do FILE 自动返回的值 评估的最后一个表达式

Answer 2

所有 Perl 5 子例程都返回执行的最后一条语句的最后一个值。