新手：关于perl hash调用的问题

yangjavine

首先我会在perl脚本进行定义：our(%a);
然后写个sub a()函数，在这个函数中进行对a的hash值进行存储键和值：$a{$key}=$value;
最后写了另外个sub b()函数，如果key2在$a的key中，则取$a{$key2}的值。
但是这里最后报Use of uninitialized value in concatenation (.) or string at a.pl line 10的错误，这个改怎么设置，能把这个警告错误不报出来。不能删除use strict;

谢谢

mcshell

没执行a。。。

hhs66317

估计是，把代码贴出来，可以只贴相关部分
要不然也只能猜了