thanx :")
Ok.. the problem I had before a couple of days..
It wasn't possible to do ..
goto LINE
....blah ....
LINE: use Module;
But this worked :
goto LINE
....blah ....
LINE: print;
use Module;
:"(... 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};
}
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};
}
DO YOU see second braces..
PERL5.6 (Win98/ActiveState)
OK...both problem are overcomed easly but ...!!!
thanx for the attention