Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Publicado por Daniel Vinciguerra (última atualização em 06/06/2016)
[ Hits: 4.536 ]
Homepage: http://bivee.com.br
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
#!/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
Perl Check Port - Entenda melhor os sockets
Nenhum coment�rio foi encontrado.
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Instalando Discord no Debian 13
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Software livre - será que eu estou tão errado assim? (7)
A escola é altamente ineficiente e ineficaz! (10)