Re: Re: use slack;

Thanks for the occult info autark! Please correct me if i'm wrong but as far as i can tell saying no strict "refs" inside a tight loop only turns strict refs off for the duration of the loop.

Aside from this one exception employed for a well-tested condition (for a huge optimization):

if($in){
 foreach(@actions){ 
  unless($_ eq /one|/){ 
   if($in eq $_){ 
    no strict "refs"; &$_()}}}}
[download]

the (now 400 line) script uses strict. Since i know how to play by the rules why not also start to break them, since it seems to pay off so well when done carefully?

UPDATE: I responded too quickly, as autark explained in the chatterbox, this is the perfect solution. I get to do what I want without breaking strict with:

if($in){ 
 foreach(@actions){
  unless($_ eq /one|/){
   if($in eq $_){
    do{\&{$_}}->()}}}}
[download]

Joy!

Comment on Re: Re: use slack; Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: use slack; by autark (Friar) on Dec 21, 2000 at 07:45 UTC
The `strict` pragma is lexically scoped, so it will only affect the innermost block of your program. Now, there is no rule saying that you have to `use strict;`, it's only good advice :-). Though, I'm a bit curious how breaking these "rules" have paid off ? Autark.	[reply] [d/l] [select]