On Thursday, June 6, 2002, at 08:35 , Nikola Janceski wrote:
[..]
>
> # $FUNC is a ref to a hash
>
> ## in a subroutine
> foreach my $function (keys %{$FUNC}){
> my @called_funcs;
> # populate @called_funcs;
> push @{$FUNC->{$function}}, @called_funcs;
> }
>
> ## later in code in another subroutine
> foreach my $pkg_func (keys %{$FUNC}){
> print join "\n", @$FUNC{ $pkg_func };
@{$FUNC{ $pkg_func }}
or
@{$FUNC->{$pkg_func}}
> print "\n";
> }
> __END__
[..]
I think those are what you want...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
