Você ainda usa *cgi-lib.pl ou a *CGI.pm para desenvolver paginas de internet em Perl? A propósito; você ainda usa CGI para desenvolver alguma coisa para a web?

O CGI apesar de ser uma forma "simples"  de criar sistemas web, é péssimo para a performance, desperdiçando um recurso precioso do seu servidor.

Então eu vou lhe apresentar o *Mojolicious!

Mojolicious é um framework moderno para desenvolvimento ágil de aplicações web que torna o trabalho de escrever estes softwares muito, mas muitooooo mais simples, rápido e divertido.

Com poucas linhas você pode começar a escrever sua primeira página e o melhor de tudo é que ele já conta com um servidor de desenvolvimento e produção, tudo junto na caixa! :)

Não vou abordar todos os recursos possíveis com ele (são muitos mesmo), mas podemos mostrar um exemplo de formulário para ilustrar como é simples trabalhar com o Mojo...

PRÉ-REQUISITOS

- perl 5.10 ou superior
- Módulo Mojolicious instalado


REFERÊNCIAS:

cgi-lib.pl - http://cgi-lib.berkeley.edu/
CGI.pm - http://metacpan.org/pod/CGI
Mojolicious - http://mojolicious.org/


EXECUTANDO:

morbo agile-webdev.pl

Deverá aparecer algo parecido com:
Server available at http://127.0.0.1:3000

• Download agile-webdev.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/env perl 
use Mojolicious::Lite;

# action GET: http://localhost:3000/
get '/' => 'index';


# action GET: http://localhost:3000/form
get '/form' => { message => '' } => 'form';


# action POST: http://localhost:3000/form
post '/form' => sub {
  my $c = shift;

  # pegando parâmetros do formulário
  my $texto = $c->param('texto') || '';

  # definindo uma variável do template
  $c->stash( mensagem => $texto );

  # renderizando o template @@ form.html.ep
  $c->render('form');
};

app->start;

# templates
__DATA__

@@ index.html.ep
<p><a href="/form">Link para o form</a></p>

@@ form.html.ep
<form method="post">
  <p>Digite alguma coisa no form:</p>
  <p><input type="text" name="texto"></p>
  <p><button type="submit">Enviar</button></p>
</form>

<% if (stash('mensagem')) { %>
  <p>A mensagem digitada foi <%= stash('mensagem') %></p>
<% } %>

Synner Novo Sys(TCP) Flooder em Perl

Upload de múltiplos arquivos para Imageshack.us

Buscar Traduções no Google Translate

Obtendo a temperatura com Perl

Google Tradutor

Nenhum comentário foi encontrado.