[Perl] Perl con scripts

[Roberto Andrade Fonseca]

Hola Kuis:

El lun, 04-03-2002 a las 03:41, Luis Guillot escribi=F3:
> 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
>=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'?

Ojal=E1 te sirva este peque=F1o ejemplo que hice para mostrar como pasar un
arreglo de perl a un arreglo de Javascript.

Aunque uso CGI.pm, debe servir para puro Perl.

------------------------------------------------------------
#!/usr/bin/perl -w

use CGI qw /:standard/;

$"=3D'|';
@array =3D ('Juan P=E9rez', 'Pedro Morales','Mar=EDa Luisa');

print header;

$JSCRIPT=3D<<END;
function ejemplo(){
    alert('Hola mundo);
}
END

print start_html(-script=3D>
    "function ejemplo(rollo){
        a =3D rollo.split('|');
        alert(a[2]);
    }"
);



print start_form;
print 'Hola Mundo',p;
print 'Nombre ', textfield(-name=3D>'nombre',
                onblur=3D>"var rolo;
                rolo=3D'@array';
                        ejemplo(rolo);");=20
print p;
print 'Apellidos ', textfield(-name=3D>'apellidos');
print submit;
print end_form;
print end_html;
---------------------------------------------------
--=20
Saludos,

Roberto Andrade Fonseca
randrade@abl.com.mx