Namespace variable gathering

[dpatrick]

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();

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] },
    );

?


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

[samtregar]

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::);
}

-sam

[dsb]

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;

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);

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

[belg4mit]

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"