Foro - Perl en Español

por **memrobles** » 2017-11-13 02:14 @134

Hola, perleros. Buenas.

En Mojolicious, ¿alguien sabe cómo pasar un campo de una base de datos a mi página en general? He leído por horas y he encontrado esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Mojolicious::Lite;
use Mojo::mysql;
 
helper mysql => sub { state $pg = Mojo::mysql->new('mysql://sri:s3cret@localhost/db') };
 
get '/' => sub {
    my $c  = shift;
    my $db = $c->mysql->db;
    $c->render( json => $db->query('select now() as time')->hash );
};
 
app->start;
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

pero no sé cómo pasar el resultado a mi página web.

Esta es mi página:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Mojolicious::Lite;
 
get '/mipagina';
 
app->start;
__DATA__
 
@@ mipagina.html.ep
% title 'Green';
% layout 'green';
Hello World!
 
@@ layouts/green.html.ep
<!DOCTYPE html>
<html>
  <head><title><%= title %></title></head>
  <body><%= content %></body>
</html>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

He llegado a esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use Mojolicious::Lite;
use Mojo::mysql;
 
helper mysql => sub { state $pg = Mojo::mysql->new('mysql://mysql://sri:s3cret@localhost/db') };
 
get '/index' => sub {
    my $c  = shift;
    my $db = $c->mysql->db;
    $db->query('select now() as time')->hash;
};
 
app->start;
 
__DATA__
 
@@ index.html.ep
<!DOCTYPE html>
<html>
  <head><title><%= title %></title></head>
  <body><%= $db %></body>
</html>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero no logro hacer que funcione. ¿Alguien me podría ayudar, por favor

?

No estás llamando al método render(), que es justo el que crea la página y la manda al usuario.

Dentro de ese método debes indicar dónde está la plantilla. En tu caso la tienes incluida en el propio código, y la llamas index.html.ep.

Entonces, son dos movimientos los que tienes que hacer. El primero es recuperar la información de la consulta y pasarla a una estructura Perl. Fíjate que en el primer ejemplo se llama al método hash() después de hacer la consulta. El segundo movimiento es pasar esa estructura Perl a render(), para que muestre la página.

$c->render(template => 'index', format => 'html');

Si la estructura es muy compleja, o muy sencilla, puedes usar el método stash() para modificar el valor de las variables que usas en la plantilla.

por **memrobles** » 2017-11-13 20:39 @902

Gracias explorer.

Finalmente quedo a si funcionando.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
  use Mojolicious::Lite;
  use Mojo::mysql;
 
  helper mysql =>
    sub { state $pg = Mojo::mysql->new('mysql://sri:s3cret@localhost/db') };
 
  get '/index' => sub {
    my $c  = shift;
    my $db = $c->mysql->db;
   my @result = $db->query('select now() as time')->hash;
   return $c->render(template => 'index', result => @result );
 
  };
 
app->start;
 
 
__DATA__
 
@@ index.html.ep
<!DOCTYPE html>
<html>
<head><title><%= title %></title></head>
<body><%= dumper $result %></body>
</html>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **memrobles** » 2017-11-13 20:48 @908

Otra manera de hacerlo es

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
  use Mojolicious::Lite;
  use Mojo::mysql;
 
  helper mysql => sub { 
      state $pg = Mojo::mysql->new('mysql://sri:s3cret@localhost/db') };
 
  get '/index' => sub {
    my $c  = shift;
    my $db = $c->mysql->db;
   return $c->render(template => 'index', db => $db );
 
  };
 
app->start;
 
 
__DATA__
 
@@ index.html.ep
<% my $result = $db->query('select now() as time')->hash; %>
<!DOCTYPE html>
<html>
<head><title><%= title %></title></head>
<body><%= dumper $result %></body>
</html>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esto es divertido

por **memrobles** » 2017-11-14 01:10 @090

Buenas, pues ya no tan divertido, jeje :cry:

.

Ahora me he dado cuenta que solo me trae el primer registro de la base de datos. A leer se ha dicho -_-
Slds

por **explorer** » 2017-11-14 10:31 @480

Con sistemas de plantillas más viejas, había que hacer un bucle para obtener todos los resultados, transformalos a código HTML, y eso es lo que se ponía en el receptáculo de la plantilla.

Yo... supongo... que con el sistema de plantillas actual pasará algo parecido porque Mojolicious no sabe cómo representar cada registro. Es decir, si le mando un array al receptáculo, ¿cómo sabe Mojolicious que debe representar cada elemento como una fila de una tabla?

Apuesto a que debe existir un módulo en Perl que hace algo parecido.

No, pero casi:
http://blogs.perl.org/users/joel_berger ... ample.html (en inglés)
https://connect.ed-diamond.com/GNU-Linu ... andler-3-3 (en francés)

por **memrobles** » 2017-11-14 20:16 @886

Hola, explorer. Al parecer hay que poner hashes en vez de hash.

https://metacpan.org/pod/Mojo::mysql::Results#hashes

Voy a probar y comento.

Slds y gracias

por **explorer** » 2017-11-15 04:00 @208

El método hash() te devuelve el siguiente registro del resultado de la consulta, mientras que el método hashes() devuelve todos los registros.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Procesa una fila cada vez
while (my $siguiente = $resultados->hash) {
  say $siguiente->{dinero};
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Procesa todas las filas de una vez
say $resultados->hashes->reduce(sub { $a->{dinero} + $b->{dinero} });
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Así que... puedes elegir el que te resulte más cómodo.

por **memrobles** » 2017-11-15 18:17 @803

Gracias, explorer, por tu atención.

Pero creo me pasaré a laravel/php o cgi/perl. Esto está muy difícil :cry:

Gracias y slds.

por **explorer** » 2017-11-16 06:12 @300

Cada uno suele usar las herramientas que conoce, si no tenemos tiempo para aprender nuevas y mejores herramientas.

Es lo que sucede, por ejemplo, con el módulo CGI, que ya no viene incluido con las distribuciones Perl, ya que genera código muy antiguo y difícil de mantener, comparado con el protocolo recomendado, el PSGI/Plack.

Aquí tienes alternativas a CGI: CGI::Alternatives

Mira la que opina la comunidad sobre CGI: https://youtu.be/7_r1gpTkFYo?t=300

Foro - Perl en Español

Mojolicius y mysql

Mojolicius y mysql

Publicidad

Re: Mojolicius y mysql

Re: Mojolicius y mysql

Re: Mojolicius y mysql

Re: Mojolicius y mysql

Re: Mojolicius y mysql

Re: Mojolicius y mysql

Re: Mojolicius y mysql

Re: Mojolicius y mysql

Re: Mojolicius y mysql

¿Quién está conectado?