thanks
it looks well, but i tried to export them unsuccessfully.
>On Fri, 16 Feb 2007 12:52:50 +0100, cz172638 wrote:
>> use constant TESTERCONFIG => %testerscfg;
>>
>> foreach $b (keys %testerscfg) {
>> print $b."\n";
>> }
>>
>>
hi all,
i need setup constant hash generated from file, if it is possible.
i have following code:
my %testerscfg = ();
sub get_testerconfig {
open(TESTERCONFIG,"@{[TESTERCFG]}") or die "@{[TESTERCFG]} doesn't exists
or isn't readable!\n";
# loop while testers file contain a line
while (my