Catalyst Framework Perl - Parte III

Nesse artigo vou mostrar o básico sobre como usar os Actions para definir a organização de sua aplicação e como capturar os argumentos.

[ Hits: 7.954 ]

Por: Lucas em 30/10/2012


Capturando os argumentos



Para capturar os argumentos do action usando Global, exemplos:

- Primeiro exemplo com um argumento:

sub exemplo : Global {
my ( $self, $c, $argumento) = @_;

$c->res->body("$argumento");
}

Quando você acessar a URL assim: http://localhost:3000/exemplo/lucas

Irá imprimir na tela:
lucas

- Segundo exemplo com dois argumentos:

sub exemplo : Global {
my ( $self, $c, $argumento1, $argumento2 ) = @_;

$c->res->body("$argumento1 $argumento2");
}

Quando você acessar a URL assim: http://localhost:3000/exemplo/maria

Irá imprimir na tela:
maria

Quando você acessar a URL assim: http://localhost:3000/exemplo/maria/jesus

Irá imprimir na tela:
maria jesus

Para capturar o action que está sendo executado, você usa o método action. Exemplo:

sub site : Global {
my ( $self, $c ) = @_;

$c->res->body($c->action);
}

Quando você acessar a URL assim: http://localhost:3000/site

Irá imprimir na tela:
site

Para capturar os valores da regex usando Regex, exemplo:

sub foo : Regex('^item(\d+)/order(\d+)$') {
my ( $self, $c ) = @_;

my $valor1 = $c->req->captures->[0];
my $valor2 = $c->req->captures->[1];

$c->res->body("Valor 1: $valor1 <br /> Valor 2: $valor2");
}

Quando você acessar a URL assim: http://localhost:3000/item879/order8999

Irá imprimir na tela:
Valor 1: 879
Valor 2: 8999

Espero que tenham gostado. Para saber mais sobre Catalyst:
Autor: Lucas Tiago de Moraes (Lucas1)
E-mail:lucastiagodemoraes[at]gmail.com

Artigo previamente publicado em:
Página anterior    

Páginas do artigo
   1. Usando os Actions
   2. Capturando os argumentos
Outros artigos deste autor

Catalyst Framework Perl (parte 1)

Executando os principais frameworks Perl no cPanel com CGI

Configurando OTRS com PSGI/Plack e executando com Starman

Catalyst Framework Perl - (parte 2)

URL amigável com Perl

Leitura recomendada

Programando uma Intranet com Apache, MySQL e Perl (parte 1)

Catalyst Framework Perl (parte 1)

URL amigável com Perl

Catalyst Framework Perl - (parte 2)

Twittando com o Perl (parte 1)

  
Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts