Not errors but possible bugs

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

thanx :") Ok.. the problem I had before a couple of days.. It wasn't possible to do ..

goto LINE

....blah .... 

LINE: use Module;
[download]

But this worked :

goto LINE

....blah .... 

LINE: print;
use Module;
[download]

:"(... Yes I needed to use goto..:"), may be NOP will be good candidat for here :") (after the specs for the task changed I've not used goto anymore :")) The other problem :

SWITCH:
{
 if (..cond1..) {... last SWITCH};
 if (..cond2..) {
   ... grab one row fetchrow_hashref ..populate field names..
   do {..code
     last if blah;
      ...code...   
   } while (condX);
 last SWITCH
};
 if (..cond3..) {... last SWITCH};
}
[download]

DIDN'T worked..(yes in the docs is stated that I can't exit do{}, but this is a do{}while() :")) So I needed to do this :

SWITCH:
{
 if (..cond1..) {... last SWITCH};
 if (..cond2..) {
... grab one row fetchrow_hashref ..populate field names..
    {
     do 
      {..code
        last if blah;   
      } 
    } while (condX);
  last SWITCH
};
 if (..cond3..) {... last SWITCH};

}
[download]

DO YOU see second braces.. PERL5.6 (Win98/ActiveState) OK...both problem are overcomed easly but ...!!! thanx for the attention

Comment on Not errors but possible bugs Select or Download Code

Replies are listed 'Best First'.
Re: Not errors but possible bugs by chipmunk (Parson) on Jan 31, 2001 at 22:19 UTC
Neither of these are actual bugs in Perl, although the behavior can be counter-intuitive. use is a compile-time directive. It has no meaning at runtime, so you cannot assign it a label. If you want to conditionally load a module at runtime, you should use require and import. A do BLOCK with a while after it is still just a do BLOCK. Remember that while as a statement modifier was added later; do BLOCK while EXPR is just another use of while as a statement modifier and has no extra meaning in Perl.	[reply]
Re: Not errors but possible bugs by extremely (Priest) on Jan 31, 2001 at 23:45 UTC
You can do the following for the first goto question: `#... goto LABEL; #... LABEL:; #A plain ; is basically the NOP you are looking for. use Module;` [download] For the second case, do you actually need the `do{}while();` form? That syntax guarantees that the code in the do{} runs once at the price you discovered. If running the code zero times would be ok or if prior code ensures that the while condition is always true for one iteration, just use the `while(){}` form. -- $you = new YOU; honk() if $you->love(perl)	[reply] [d/l]
Re: Not errors but possible bugs by Fastolfe (Vicar) on Feb 01, 2001 at 04:13 UTC
A `do { ... } while ( ... )` construct is not the same thing as a while loop. In fact, they're not even considered loop blocks in Perl, so things like next or last are invalid there. Consider re-writing your construct to use a real `while ( ... ) { ... }` block. The documentation for do is not explicit in this regard, but consider do/while and do/until to be "do" blocks, not a real loop, and then the documentation makes sense and you can see that these are forbidden operations.	[reply] [d/l] [select]