sub里面shift进一个hash，操作这个hash会警告uninitialized value，怎么办？

wowmybaby

1: sub mySub {
2:    my $information = shift;
3:        
4:    foreach my $field (keys %{$information->{'field_values'}}) {
5:
6:        if ($information->{'field_values'}->{$field}->{'type'} eq 'xml') {
7:         ..............
8:        }
9:    }
10:}



在apache的error_log里面会有大量的：Use of uninitialized value in string eq at line 6，但程序不终止运行

在运行时shift进来的information是可以保证定义了这几个key和value的，但是估计编译器没法确定，就提示这样的错误了，怎么能够避免掉这样的错误信息？

ulmer

原帖由 wowmybaby 于 2006-8-24 23:32 发表
1: sub mySub {
2:    my $information = shift;
3:        
4:    foreach my $field (keys %{$information->{'field_values'}}) {
5:
6:        if ($information->{'field_values'}->{$field}->{' ...

Using built-in function exists() to check it!
if (exists $information->{'field_values'}) { ... go further ...}
see perldoc -f exists

ulmer

[ 本帖最后由 ulmer 于 2006-8-25 00:20 编辑 ]