Lance wrote:
> Is there a way to access the 'foreach' variable from a subprocedure
> called from inside the loop whose variable you want to access?
> Hooboy, even I don't understand that question! ;-) An example is
> neccessary, I believe:
>
> foreach my $store( values %$server ){
> if( $$store{errorPageCount} >=1 ){
> ## loop through each page to check in each store
> foreach my $page( values %$store ){
> $$server{emailMessage} .= "$$page{error}";
> }
> }
> if( $$store{badMailSent} ne 'sent' ){
> mailIt( $$store{emailMessage}, "$$store{name} is
> non-responsive", 'bad', $$store{email});
> }
> }
>
> Now, from within my mailIt sub, can I access $$store or $$server? I
> get the error message: "Global symbol "$store" requires explicit
> package name at D:\My Stuff\lance\perl\store_monitor\store_monitor.pl
> line 603."
>
> inside of mailIt, I am trying to access a variable in %server using:
> $$server{errorPageCount}++;
A lexical (my) variable is accessible from the point it is declared to
the
end of the innermost containing block or file (including all nested
blocks). In general, then, a subroutine won't be able to see a lexical
unless the it is declared after the lexical value within the same block.
A lexical used as a control variable for a loop is in scope only to the
closing brace of the loop's code block.
To access a variable from a subroutine, either declare the variable
at a scope outside the subroutine or pass it as a parameter.
Don't use global package (our) variables. They're hardly ever necessary.
Cheers,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
