Hi folks
I nead to make some pages that pass data forth and back
Here is the source of it:
test.html:
-------------------------------------------------------------
<html>
[.!
sub getVals()
{
HTML::Embperl::Execute ({inputfile => './test1.html',output =>
\$restbl, req
$escmode = 0;
}
!]
[- getVals -]
<body>
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
[+ $restbl +]
</body>
</html>
---------------------------------------------------------------
test1.html:
---------------------------------------------------------------
[.!
sub getVals1()
{
my @p;
HTML::Embperl::Execute({inputfile => 'test3.imp', param => \@p});
&testParams();
}
!]
[-
#$p[0] = 20;
getVals1();
-]
<table>
<tr>
<td>
BBBBBBBBBBBBBBBBBB
</td>
</tr>
</table>
[+ $p[0] +]
-----------------------------------------------------------
test3.imp
----------------------------------------------------------
[$ sub testParams $]
[-
$y = $param;
$x = rand(100);
$x ++;
$y[0] = $x;
#$param[0] = $x; <- generates error telling me that I try to modify
constant
-]
[$ endsub $]
-----------------------------------------------------------
I nead to get back the $x from test3.imp and to include in test1.html
but I do somthng wrong
Unfortunately I am out of time to continue testing and reading examples
so please if some body have experience with similar situation please to
tell me where exactly is the error
Actualy the situation is more complex and here is a simple test
situation - in my case I need to retun a hash value
Thanx in advance
Regards
Nickolay Kolev
--
======================================================
nickyk - a prime candidate for natural de-selection
http://www.nickyk.org icq# 1386837
======================================================
I nead to make some pages that pass data forth and back
Here is the source of it:
test.html:
-------------------------------------------------------------
<html>
[.!
sub getVals()
{
HTML::Embperl::Execute ({inputfile => './test1.html',output =>
\$restbl, req
$escmode = 0;
}
!]
[- getVals -]
<body>
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
[+ $restbl +]
</body>
</html>
---------------------------------------------------------------
test1.html:
---------------------------------------------------------------
[.!
sub getVals1()
{
my @p;
HTML::Embperl::Execute({inputfile => 'test3.imp', param => \@p});
&testParams();
}
!]
[-
#$p[0] = 20;
getVals1();
-]
<table>
<tr>
<td>
BBBBBBBBBBBBBBBBBB
</td>
</tr>
</table>
[+ $p[0] +]
-----------------------------------------------------------
test3.imp
----------------------------------------------------------
[$ sub testParams $]
[-
$y = $param;
$x = rand(100);
$x ++;
$y[0] = $x;
#$param[0] = $x; <- generates error telling me that I try to modify
constant
-]
[$ endsub $]
-----------------------------------------------------------
I nead to get back the $x from test3.imp and to include in test1.html
but I do somthng wrong
Unfortunately I am out of time to continue testing and reading examples
so please if some body have experience with similar situation please to
tell me where exactly is the error
Actualy the situation is more complex and here is a simple test
situation - in my case I need to retun a hash value
Thanx in advance
Regards
Nickolay Kolev
--
======================================================
nickyk - a prime candidate for natural de-selection
http://www.nickyk.org icq# 1386837
======================================================