Foro - Perl en Español

por **memrobles** » 2016-09-05 11:36 @525

Buenos días.

¿Alguien sabe si se puede agregar código HTML5 a una página CGI?

Este es el código de la página en CGI.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
    #
    # Ejemplo de CGI::Session para login
    #
    use strict;
    use warnings;
    use diagnostics;
     
    use CGI::Session;
    use CGI ':standard';
    use CGI::Carp qw'fatalsToBrowser warningsToBrowser';
     
     
    ## Creamos el objeto CGI
    my $cgi = CGI->new();  
     
    ## Creamos el objeto CGI::Session
    my $session = CGI::Session->new("driver:File", $cgi, {'Directory'=>'/tmp/'})
        or die CGI::Session->errstr;
     
    ## Enviamos la cookie de sesión al usuario
    print $session->header;
     
    # Aquí guardaremos el perfil del usuario
    my $perfil;
     
    ## Inicialización
    if ( not $session->param('~registrado') ) {     # si el usuario no está registrado
     
        # vemos si se está registrando en este momento
        if (my $nombre = $cgi->param('login_nombre')) {
            my $passwd = $cgi->param('login_passwd');  
     
            # Vemos si es un usuario conocido por nosotros
            # si lo es, obtenemos su perfil
            if ($perfil = usuario_registrado($nombre, $passwd)) {
               
                # Guardamos el perfil asociado a la sesión
                $session->param('perfil', $perfil);
                $session->param('~registrado', 1);
            }
            else {  # Es un desconocido, le pedimos que rellene el registro otra vez
                presenta_login('Usuario desconocido');
                exit;
            }
        }
        else {      # No está registrado ni se está registrando
           presenta_login('Identifíquese');
           exit;
        }
    }
    else {          # es un usuario registrado (hay una sesión de él)
        # recuperamos el perfil, desde la sesión
        $perfil = $session->param('perfil');
    }
     
     
    # A partir de aquí, sabemos qué usuario es, y su perfil
    # Podemos presentarle las opciones propias de un usuario registrado
    my $nombre = $perfil->{nombre};         # otra forma de hacerlo sería recuperar esta información
    my $email  = $perfil->{email};          # desde la base de datos, ya que sabemos qué usuario es
     
    if ($cgi->param('Desconectar')) {       # caso de que el usuario quiera desconectarse
        $session->clear(['~registrado']);   # olvidamos que estaba registrado
     
        print       # despedida
            start_html('Desconexión'),
            h1('Desconexión'),
            hr(),
            p("Adios, $nombre"),
            end_html()
            ;
    }
    else {          # una página normal
        print
            start_html('Bienvenido'),
            h1('Bienvenido'),
            hr(),
            p("Bienvenido $nombre ($email)"),
            hr(),
            p(a({-href=>'ficheros.html'},'Ver lista de ficheros')),
            p(a({-href=>$cgi->url() . '?Desconectar=1'},'Desconectar')),
            end_html()
            ;
    }
     
    # Perfil de un determinado usuario
    sub usuario_registrado {
        my ($nombre, $passwd) = @_;
     
        # aquí consultaríamos una base de datos, por ejemplo
        if ($nombre eq 'JF'  and  $passwd eq '2010') {
            # si es un usuario en nuestra base de datos, recuperamos su perfil
            return { nombre => $nombre, email => '[email protected]' };
        }
         
        return;
    }
     
    # Presenta el formulario de entrada
    sub presenta_login {
        my $titulo = shift;
     
        print
            start_html,
            h1('Registro de entrada: ' . $titulo),
            start_form,
            p('Nombre: '     . textfield('login_nombre')),
            p('Contraseña: ' . password_field('login_passwd','',8,8)),
            p(),
            submit('Entrar'),
            end_form,
            end_html()
            ;
    }
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

y este https://superdevresources.com/responsive-table/ es un ejemplo de una tabla adaptativa en HTML5 que me gustaría agregar cuando el usuario se registre.

Saludos, compañeros. Que tengan un día chingon.

print start_html(
        -title=>'Secrets of the Pyramids',
        -author=>'[email protected]',
        -base=>'true',
        -target=>'_blank',
        -meta=>{'keywords'=>'pharaoh secret mummy', 'copyright'=>'copyright 1996 King Tut'},
        -style=>{'src'=>'/styles/style1.css'},                                               # estilos CSS
        -BGCOLOR=>'blue',
);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

o incorporar con el propio CGI, en la cabecera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# here's a stylesheet incorporated directly into the page
$newStyle=<<END;
<!--
        P.Tip {
                margin-right: 50pt;
                margin-left: 50pt;
                color: red;
        }
        P.Alert {
                font-size: 30pt;
                font-family: sans-serif;
                color: red;
        }
-->
END
 
print header();
print start_html(
        -title=>'CGI with Style',
        -style=>{
                -code=>$newStyle,                               # código CSS directo
        }
);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De todos modos, lo recomendado hoy en día, es dejar de usar el módulo CGI, y usar cosas como HTML::Tiny.

Aquí hay una colección de módulos para tratar con HTML5: Task::HTML5. Pero hay muchos más...

por **memrobles** » 2016-09-18 18:13 @801

Gracias, explorer, me funcionó al tiro.

Saludos.

Foro - Perl en Español

Perl, HTML5 y CCS

Perl, HTML5 y CCS

Publicidad

Re: Perl, HTML5 y CCS

Re: Perl, HTML5 y CCS

¿Quién está conectado?