My subroutines compileserverhash() create a hash populate it and return a hash in the formsub initialize { my $self = shift; #$self->reset; $self->{ SERVERHASHLIST=> '%', SERVERLOCATION=> '%', }; %{$self->{SERVERHASHLIST}}=compileserverhash(); %{$self->{SERVERLOCATION}}=compileserverloc(); #%{$test1->element()} = %aa ; }
sub compileserverhash { my %hash .... return %hash }
In reply to class object and hash by bengmau
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |