Foro - Perl en Español

por **thegame** » 2012-10-17 14:19 @638

Hola a todos, necesito de su ayuda. Tengo un cgi en el cual quiero insertar un array de Perl a un array de JavaScript. Por adelantado les doy las gracias por la ayuda que me puedan dar.

Les dejo el código por si acaso (es un simple formulario hecho con cgi)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
binmode STDOUT, ":encoding(UTF-8)";
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib '../Modulos/';
use buscar;
 
#print error;
print "Content-type: text/html;charset=UTF-8\n\n";
 
my $inst = buscar->new;
my @ins  = @{ $inst->llamar_inst };
 
my $nominst = buscar->new;
my $idinst  = $nominst->id_institucion;
 
my $sed  = buscar->new;
my @sede = @{ $sed->llamar_sede };
 
my $codigo_javascript = <<EOC
        function carga(){
                alert ('entro');
                var combos = document.form.sede;
                alert (combos.value);
                ##Esto es algo que estaba haciendo y no está terminado
                        }
EOC
    ;
 
my $q = new CGI;
$q->charset('UTF-8');
print $q->start_html(
    { -title => 'Formulario Usuario', -style => '../../Css/style_formulario2.css', -script => $codigo_javascript } );
 
#print $q->header('');
print $q->div(
    { id => 'marco' },
    $q->startform( -name => 'form', -method => 'POST', onSubmit => "validar()" ),
    $q->div( { class => 'nomcombo' }, "Instituci&oacuten:" ),
    $q->div(
        { class => 'campos' },
        $q->popup_menu( { name => 'institucion', -values => \@ins, -onChange => 'carga()' } ), "*<br>"
    ),
    $q->div( { class => 'nomcombo' }, "Sede:" ),
    $q->div( { class => 'campos' },   $q->popup_menu( { -name => 'sede', -values => '-------' } ), "*<br>" ),
    $q->div( { class => 'nomcombo' }, "Oficina:" ),
    $q->div( { class => 'campos' },   $q->popup_menu( { -name => 'ofc', -values => \@oficina } ), "*<br>" ),
    $q->div( { class => 'nomcombo' }, "Cargo:" ),
    $q->div( { class => 'campos' },   $q->popup_menu( { -name => 'cargo', -values => \@cargo } ), "*<br>" ),
    $q->div(
        { class => 'botones' },
        $q->submit( { -name => 'guardar', -value => 'Guardar' } ),
        $q->button( { -name => 'Borrar Formulario', -onClick => 'limpiar_formulario()' } ),
        "(*) Campos obligatorios", "<br>"
    ),                                 #Aquí se cierra el div id 'botones'
    $q->hidden( { -name => 'oculto' } ),
    $q->end_form
);                                     #aquí se cierra el div id 'marco'
 
 
Coloreado en 0.007 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Insertar un array de Perl en un array de JavaScript

Insertar un array de Perl en un array de JavaScript

Publicidad

Re: Insertar un array de Perl en un array de JavaScript

Re: Insertar un array de Perl en un array de JavaScript

¿Quién está conectado?