Re: Refactoring Perl #6 - Split Temporary Variable

in reply to Refactoring Perl #6 - Split Temporary Variable

Regarding your for $i "possible exception" example:

If one thinks the variable can be used after the loop, containing something sensible set inside the loop, you will be bitten by perl which will arrange to have made your variable "implicitly local to the loop and regains its former value upon exiting the loop." (c/f perldoc perlsyn)

Comment on Re: Refactoring Perl #6 - Split Temporary Variable Download Code

Replies are listed 'Best First'.
Re^2: Refactoring Perl #6 - Split Temporary Variable by agianni (Hermit) on Aug 16, 2007 at 20:19 UTC
Yeah, now that I think of it, in PBP , TheDamian suggests: Always declare a for loop iterator variable with my. (p. 108) for just that reason. As such, I think re-use of temporary variables in Perl should be limited only to accumulators. `perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi +n(q{},map{sprintf(qq{%010u},$_)}(2*23074993,51016415261,75979 +36997,13177145131,3*26789167*181))=~/\d{2}/g));'` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Refactoring Perl #6 - Split Temporary Variable
by agianni (Hermit) on Aug 16, 2007 at 20:19 UTC

Yeah, now that I think of it, in PBP , TheDamian suggests:

Always declare a for loop iterator variable with my. (p. 108)

for just that reason. As such, I think re-use of temporary variables in Perl should be limited only to accumulators.

perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi
+n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79
+*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'
[download]

[reply]
[d/l]

In Section Meditations