$udat[COUNTER]++;
to your embperl program.
something has to change at the first level of the udat hash for it
to register for storage. i use a counter in mine for that purpose.
you could also use a timestamp or something similar.
___cliff [EMAIL PROTECTED]
Dominique Blas wrote:
Hi, At the end of this mail you can find a small piece of code that does only one thing : put a one in the 8th row of a scalar table pointed by the $udat hash table.
That is : $udat{VALID}[7]=1;And the display thereafter is the scan of the values of this table indexed from 0 to 9 BEFORE and AFTER the input.
As you can see index 7 is correctly filled with 1 after the input.
But if I reload my page the results stay the same. That is : no value 1 in the table at the 8th position BEFORE the assignation and a 1 value AFTER.
Conclusion : $udat doesn't persist.
Therefore you can see that it worked with the index 3 : $udat{VALID}[3] is persistent but $udat{VALID}[7] is not !!!
Can you find an explanation ?
Thank a lot,
db
Result
------
HELLOA : BEFORE
0 ==>
1 ==> 0
2 ==>
3 ==> 1
4 ==>
5 ==>
6 ==>
7 ==>
8 ==>
9 ==>
AFTER
0 ==>
1 ==> 0
2 ==>
3 ==> 1
4 ==>
5 ==>
6 ==>
7 ==> 1
8 ==>
9 ==>Piece of code
-------------
<html>
<head>
</head>
<body>
HELLO<pre>
[-$flag=0; $A.="BEFORE\n"; for ($i=0; $i<=9; $i++) { $A.="$i ==> $udat{VALID}[$i]\n"; }
$udat{VALID}->[7]=1;
$A.="AFTER\n";
for ($i=0; $i<=9; $i++) { $A.="$i ==> $udat{VALID}[$i]\n"; }
-]A : [+$A+]
</body>
</html>
db
