Nilson, Você pode pegar o ip do cliente através de $self->tx->remote_address, como no exemplo abaixo :
use Mojolicious::Lite; # "whois" helper helper whois => sub { my $self = shift; my $agent = $self->req->headers->user_agent || 'Anonymous'; my $ip = $self->tx->remote_address; return "$agent ($ip)"; }; # /secret get '/secret' => sub { my $self = shift; my $user = $self->whois; $self->app->log->debug("Request from $user."); }; app->start; __DATA__ @@ secret.html.ep We know who you are <%= whois %>. Em 12 de setembro de 2012 22:23, Jose Nilton <jnilti...@gmail.com> escreveu: > Nelson, obrigado > > Desculpe só responder o e-mail agora, tive uns contratempos de infra aqui > -- "o animal satisfeito dorme". - Guimarães Rosa
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer