[Perl] JavaScript dentro de Perl

[Sergio J Rojas H]

On Fri, 1 Mar 2002, Luis Guillot wrote:

> Hola amigos. Tengo un peque=F1o problemilla. Un programa que tengo es un =
CGI y desde este se recogen datos, se tratan,=20
> y se devuelve el resultado al usuario.=20
>=20
> Pero ahora viene lo que no s=E9 c=F3mo hacer. Quiero lanzar un evento de =
JavaSript desde un tag de HTML de respuesta del CGI, desde dentro del progr=
ama Perl. S=E9 que puede haber c=F3digo JavaScript embebido dentro de c=F3d=
igo Perl, pero =BFpueden haber eventos tambi=E9n? y =BFtodo el c=F3digo Jav=
aScript debe de ir detr=E1s
> de un 'print'?

 Ponlo dentro dentro del print del html:

 print "<FORM>
        <SCRIPT languaje=3DJavascript>
         function Tecnica(i){
          for (....
          return x;
         }
        </SCRIPT>
        <A HREF=3D"loquesea.html" onclick=3DTecnica()>KK</A>
        </FORM>";

 Creo que esta no es la unica forma de hacerlo, pero asi es
como los hago yo y si jala!

 Suerte!

 Sergio J Rojas H
 =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D