点击运行
#!/usr/bin/perl # 方法定义 sub PrintHash{ my (%hash) = @_; foreach my $key ( keys %hash ){ my $value = $hash{$key}; print "$key : $value\n"; } } %hash = ('name' => 'jiyik', 'age' => 3); # 传递哈希 PrintHash(%hash);
运行结果 :
正在执行...
