找不到错误了???

104359176

最近学习 go 语言，习惯所有的变量都先声明变量类型，然后赋值。
竟然发现 Perl 程序越来越看不懂了。

104359176

1. sub Load1{
   
2.     local @ARGV = shift;
   
3.     my $rh = shift;
   
4.     while (<>){
   
5.         my ($num, $name, $id) = split;
   
6.         push (@{$rh->{$id}}, [$num, $name]);
   
7.     }
   
8. }

复制代码

这里的 $rh, 没有声明是数组，就直接 push
local @ARGV = shift
从 args shift出的东西，竟然可以用 @来接收。