Namespace variable gathering

dpatrick has asked for the wisdom of the Perl Monks concerning the following question:

Fellow monks,

As here,

    my $emailBodyTmpl = new HTML::Template::eyemg(
        filename => "protected/tpm/comments.tmpl",
        path => "$LocalLib::docroot"
    );
    $emailBodyTmpl->param(
        supplierName => $fromQuery::supplierName,
        supplierNumber => $fromQuery::supplierNumber,
        reportDate => $fromQuery::reportDate,
    );
    my $body = $emailBodyTmpl->output();
[download]

is there are way for me to refer to all of the variables in a particular namespace, similar to doing this

    $emailBodyTmpl->param(
        %{ @arrayOfData[0] },
    );
[download]

?

dpatrick
- I think scsh is cool.
Open Sourceror, Perlmonk
http://perlmonk.org/~dpatrick

Comment on Namespace variable gathering Select or Download Code

Replies are listed 'Best First'.
Re: Namespace variable gathering by samtregar (Abbot) on Apr 24, 2002 at 22:16 UTC
Yes, all packages have a hash for their symbol table. The keys are symbol names and the values are typeglobs. There are many ways to use the symbol table to get a list of names and scalar values. Here's one - it calls $template->param() with the names and values in the package "Values": `{ no strict 'refs'; $template->param(map { $_ => ${"Values::$_"} } keys %Values::); }` [download] -sam	[reply] [d/l]
Re: Namespace variable gathering by dsb (Chaplain) on Apr 24, 2002 at 21:07 UTC
I'm not really sure what you mean by namespace: A package's namespace? All variable types with the same name(i.e. $var,@var,%var)? For this you could do a typeglob. `foo = bar;` [download] This line sets all of the variable types with the name `foo` to the values of the corresponding variable types with the name `bar` Or do you mean all of a hash's or array's values? For this you could look into hash and array slices. `@arr[3,4,5,6] = qw(just another perl hacker); @hash{'key2','key3','key4','key5'} = qw(jay dave guy);` [download] Note that with the hash slice we are using the symbol normally associated with arrays. That is because this the left operand is list of keys. Amel	[reply] [d/l] [select]
Re: Re: Namespace variable gathering by belg4mit (Prior) on Apr 24, 2002 at 21:37 UTC
I'm pretty sure he mean "all of the defined variables in a given package". I know it's possible, one of the Apache monitoring modules let's you view it, I just haven't bothered to track it down. `-- perl -pew "s/\b;([mnst])/'$1/g"`	[reply]