Hello
I'm having a strange behavior with embperl which has taken me by suprise.
I that a sql uery which is returning a an array of array reference.
I wanted to use the return value as an argument in an anchor:
I made an error and forgot to dereference it correctly and the result
should
have produced an output like ARRAY(0X8888)
It does this outside of the anchor, but inside the anchor it seems to be
referencing
This is the code on the server side:
$archives = $obj->records('Select distinct logfile from postings') or warn
"$!";
-]
SIZE OF archive [+ scalar(@$archives) +] [+ $$archives[1]+]<P>
[-
@archive = map{ $$_[0] =~ s/^log10(\d)(\d{2})/$2-200$1/; $_ } @$archives;
-]
Array [+ @archive +] [+ $archive[0][0] +]
<TABLE border=3><TR><TD><A
HREF="http://www2.mrbrklyn.com/appl/fairuse/bydate.html?month=[+
$archive[$row] +]"> [+ $archive[$row] +]</A> </TD></TR></TABLE>
This is the output on the Browser:
SIZE OF archive 2 ARRAY(0x83b292c)<P>
Array 2 05-2001
<TABLE border=3><TR><TD><A
HREF="http://www2.mrbrklyn.com/appl/fairuse/bydate.html?month=05-2001=";>
ARRAY(0x838fcb8)</A> </TD></TR><TR><TD><A
HREF="http://www2.mrbrklyn.com/appl/fairuse/bydate.html?month=06-2001=";>
ARRAY(0x83b292c)</A> </TD></TR></TABLE>
</TD>
</TR>
</TABLE>
I see no trace of anything in the embperl.log:
[29336]SRC: Line 52: <TR><TD><A
HREF="http://www2.mrbrklyn.com/appl/fairuse/bydate.html?month=[+
$archive[$row] +]"> [+ $archive[$row] +]</A> </TD></TR></TABLE>
[29336]CMD: Cmd = 'tr'
[29336]SRC: Line 52: <TD><A
HREF="http://www2.mrbrklyn.com/appl/fairuse/bydate.html?month=[+
$archive[$row] +]"> [+ $archive[$row] +]</A> </TD></TR></TABLE>
[29336]SRC: Line 52: <A
HREF="http://www2.mrbrklyn.com/appl/fairuse/bydate.html?month=[+
$archive[$row] +]"> [+ $archive[$row] +]</A> </TD></TR></TABLE>
[29336]CMD: Cmd = 'a'
[29336]SRC: [+
$archive[$row] +]
[29336]EVAL< $archive[$row]
[29336]TAB: get TabRow = 1, Used = 3
[29336]EVAL> ARRAY(0x83b21a4)
[29336]TAB: nResult = 1
[29336]SRC: Line 52: [+ $archive[$row] +]</A> </TD></TR></TABLE>
[29336]EVAL< $archive[$row]
[29336]TAB: get TabRow = 1, Used = 4
[29336]EVAL> ARRAY(0x83b21a4)
[29336]TAB: nResult = 1
[29336]SRC: Line 52: </A> </TD></TR></TABLE>
[29336]SRC: Line 52: </TD></TR></TABLE>
[29336]SRC: Line 52: </TR></TABLE>
[29336]CMD: Cmd = '/tr'
[29336]TAB: r -> nTabMode=17 nResult=1 nRow=1 Used=4 nCol=0 Used=0 nCnt=1
Used=0
[29336]SRC: Line 52: </TABLE>
[29336]CMD: Cmd = '/table'
[29336]TAB: r -> nTabMode=17 nResult=1 nRow=1 Used=4 nCol=1 Used=0 nCnt=2
Used=0
[29336]SRC: Line 52: <TR><TD><A
HREF="http://www2.mrbrklyn.com/appl/fairuse/bydate.html?month=[+
$archive[$row] +]"> [+ $archive[$row] +]</A> </TD></TR></TABLE>
[29336]CMD: Cmd = 'tr'
[29336]SRC: Line 52: <TD><A
HREF="http://www2.mrbrklyn.com/appl/fairuse/bydate.html?month=[+
$archive[$row] +]"> [+ $archive[$row] +]</A> </TD></TR></TABLE>
[29336]SRC: Line 52: <A
HREF="http://www2.mrbrklyn.com/appl/fairuse/bydate.html?month=[+
$archive[$row] +]"> [+ $archive[$row] +]</A> </TD></TR></TABLE>
So - I give up.
How is this happening?
Ruben
--
Brooklyn Linux Solutions
http://www.mrbrklyn.com
http://www.brooklynonline.com
1-718-382-5752
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
