"Sven" <[EMAIL PROTECTED]> wrote in message
027901c204e8$fa475da0$14e307d5@brian">news:027901c204e8$fa475da0$14e307d5@brian...
...
> $context = $q->param(context);
>
> require "conf.txt";
> open(READ, "conf.txt") or die "Error opening file: conf.txt, Errorcode:
> $!\n";
> close(READ);
I dont understand the open then close. The require is all thats necessary.
> if ($context eq "assembly") { %conf_data = %assembly ; }
> elsif ($context eq "basic") { %conf_data = %basic ; }
Instead of doing this, use symbollic references.
%conf_data = %{$context};
and you are all set. You will have to turn off strict refs for this line of
code when use strict; is in effect.
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
