[Perl] Perl con scripts
Luis Guillot
lguillot@grupoguzman.com
Mon, 4 Mar 2002 10:41:28 +0100
This is a multi-part message in MIME format.
------=_NextPart_000_0022_01C1C369.240E8BC0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hola amigos. Tengo un peque=F1o problemilla. Un programa que tengo es un =
CGI y desde este se recogen datos, se tratan, y se devuelve el resultado =
al usuario.=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 =
programa Perl. S=E9 que puede haber c=F3digo JavaScript embebido dentro =
de c=F3digo Perl, pero =BFpueden haber eventos tambi=E9n? y =BFtodo el =
c=F3digo JavaScript debe de ir detr=E1s de un 'print'?
Por ejemplo:
- El tag es:
<a href=3D'" . $me . =
"?C=3DOFERTAS2&EMPRESA=3D".$empresa_param."&NREF=3D".$nref." =
onMouseOver=3D\"linkFTecnica(nref2)\"'>";
- El c=F3digo de JavaScript debe ser:
print '<SCRIPT language=3D"javascript">';
print 'function linkFTecnica(nref){';
...
print '}';# fin de la funci=F3n JavaScript
print '</SCRIPT>';
Pero todo lo del medio, es decir, lo de dentro de la funci=F3n, =
=BFtambi=E9n debe de ir con print ' ..'?
Lo he probado sin 'print' y no se ejecuta el c=F3digo JavaScript. =BFSe =
puede hacer esto? =BFC=F3mo?
Gracias a todos
Un saludo
Luis Guillot
------=_NextPart_000_0022_01C1C369.240E8BC0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2600.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>Hola amigos. Tengo un peque=F1o =
problemilla. Un=20
programa que tengo es un CGI y desde este se recogen datos, se tratan, y =
se=20
devuelve el resultado al usuario. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Pero ahora viene lo que no s=E9 c=F3mo =
hacer. Quiero=20
lanzar un evento de JavaSript desde un tag de HTML de respuesta del CGI, =
desde=20
dentro del programa Perl. S=E9 que puede haber c=F3digo JavaScript =
embebido=20
dentro de c=F3digo Perl, pero =BFpueden haber eventos tambi=E9n? y =
=BFtodo el c=F3digo=20
JavaScript debe de ir detr=E1s de un 'print'?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Por ejemplo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>- El tag es:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><a href=3D'" . $me .=20
"?C=3DOFERTAS2&EMPRESA=3D".$empresa_param."&NREF=3D".$nref." =
<FONT=20
color=3D#0000ff>onMouseOver=3D\"linkFTecnica(nref2)\"</FONT>'>";</FONT=
></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>- El c=F3digo de JavaScript debe =
ser:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>print '<SCRIPT=20
language=3D"javascript">';<BR>print 'function=20
linkFTecnica(nref){';</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>...</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>print '}';# fin de la =
funci=F3n=20
JavaScript<BR>print '</SCRIPT>';</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Pero todo lo del medio, es decir, lo de =
dentro de=20
la funci=F3n, =BFtambi=E9n debe de ir con <FONT color=3D#0000ff>print=20
' ..'</FONT>?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Lo he probado sin 'print' y no se =
ejecuta el c=F3digo=20
JavaScript. =BFSe puede hacer esto? =BFC=F3mo?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Gracias a todos</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Luis Guillot</FONT></DIV></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML>
------=_NextPart_000_0022_01C1C369.240E8BC0--