尽管Perl没有提供自动命名参数的传递方法(换句话说,没有提供所谓的“正式参数”的概念),
但我们在调用子程序时仍然有很多方法,可以同时传递包含名字和值的参数列表。
sub uses_named_params { my %param = ( foo => 'val1', bar => 'val2', ); my %input = @_ ; #以散列的方式获得参数 # 将读入的参数和默认参数结合起来 @param{keys %input} = values %input; }