Re: [SP-pm] [OFF TOPIC] WTF??

[Gabriel Vieira]

Eu pensei que teria nele as lógicas das previsões. =P

2011/5/4 Blabos de Blebe 

> O script existir não é problema. O problema é ele estar acessível,
> muito embora esteja desativado.
>
> 2011/5/3 Daniel Vinciguerra :
> > Maldade isso vai... a aplicação não usa nem CGI.pm?!
> >
> > "CGI.pm,v 1.4 1998/11/26 11:01:15 lstein"[1]
> > "Em 1º de dezembro de 1996 foi lançado o portal e provedor Zaz"[2]
> > "... em dezembro de 1999, o Zaz virou Terra."[2]
> >
> > 1 - http://cpansearch.perl.org/src/LDS/CGI.pm-2.45/CGI.pm
> > 2 -
> >
> http://tecnologia.terra.com.br/internet10anos/interna/0,,OI542329-EI5029,00.html
> >
> > Ua,
> >
> > Daniel Vinciguerra
> > Web Solutions Architect and Co-Owner at Bivee
> > http://github.com/dvinciguerra
> >
> >
> >
> >> From: tiago.pecze...@gmail.com
> >> Date: Tue, 3 May 2011 15:15:23 -0300
> >> To: saopaulo...@mail.pm.org
> >> Subject: Re: [SP-pm] [OFF TOPIC] WTF??
> >>
> >> mais divertido ainda é passar o codigo pelo perl::critic
> >>
> >> 2011/5/3 Nilson Santos Figueiredo Jr. :
> >> > 2011/5/3 Marcio Ferreira :
> >> >> 
> >> >> O terra é uma empresa moderna, em breve o código estará no github
> >> >>
> >> >> 
> >> >
> >> > É perdoável, vai. Isso é da época que o Terra ainda se chamava Zaz.
> >> > Nessa época, formmail.pl era o defacto standard pra enviar emails
> hehe.
> >> >
> >> > -Nilson
> >> > =begin disclaimer
> >> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >> >  L
> >> > =end disclaimer
> >> >
> >>
> >>
> >>
> >> --
> >> Tiago B. Peczenyj
> >> Linux User #405772
> >>
> >> http://pacman.blog.br
> >> =begin disclaimer
> >> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >> L
> >> =end disclaimer
> >
> > =begin disclaimer
> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >  L
> > =end disclaimer
> >
> >
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>



-- 
Gabriel Vieira
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] [OFF TOPIC] WTF??

[Blabos de Blebe]

O script existir não é problema. O problema é ele estar acessível,
muito embora esteja desativado.

2011/5/3 Daniel Vinciguerra :
> Maldade isso vai... a aplicação não usa nem CGI.pm?!
>
> "CGI.pm,v 1.4 1998/11/26 11:01:15 lstein"[1]
> "Em 1º de dezembro de 1996 foi lançado o portal e provedor Zaz"[2]
> "... em dezembro de 1999, o Zaz virou Terra."[2]
>
> 1 - http://cpansearch.perl.org/src/LDS/CGI.pm-2.45/CGI.pm
> 2 -
> http://tecnologia.terra.com.br/internet10anos/interna/0,,OI542329-EI5029,00.html
>
> Ua,
>
> Daniel Vinciguerra
> Web Solutions Architect and Co-Owner at Bivee
> http://github.com/dvinciguerra
>
>
>
>> From: tiago.pecze...@gmail.com
>> Date: Tue, 3 May 2011 15:15:23 -0300
>> To: saopaulo...@mail.pm.org
>> Subject: Re: [SP-pm] [OFF TOPIC] WTF??
>>
>> mais divertido ainda é passar o codigo pelo perl::critic
>>
>> 2011/5/3 Nilson Santos Figueiredo Jr. :
>> > 2011/5/3 Marcio Ferreira :
>> >> 
>> >> O terra é uma empresa moderna, em breve o código estará no github
>> >>
>> >> 
>> >
>> > É perdoável, vai. Isso é da época que o Terra ainda se chamava Zaz.
>> > Nessa época, formmail.pl era o defacto standard pra enviar emails hehe.
>> >
>> > -Nilson
>> > =begin disclaimer
>> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>> >  L
>> > =end disclaimer
>> >
>>
>>
>>
>> --
>> Tiago B. Peczenyj
>> Linux User #405772
>>
>> http://pacman.blog.br
>> =begin disclaimer
>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>> L
>> =end disclaimer
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Stanislaw Pusep]

Quod erat demonstrandum

ABS()

On Tuesday, May 3, 2011, Marcio Ferreira
 wrote:
> quem é "normal"  aqui => http://www.flickr.com/groups/35034352636@N01/pool
>
>
>  Larry http://www.flickr.com/photos/andyarmstrong/3791901150/
>
>  Brian http://www.flickr.com/photos/juliancash/752002655/in/pool-35034352636@N01
>
>
> ou 
> esse http://www.flickr.com/photos/dancentury/101920531/in/pool-35034352636@N01
>
>
> hahahaha
> []s,
>
> @_marcioferreiraMarcio Ferreiramarciodesouzaferreira.blogspot.com
>
> "Perl lives as the 'toolbox for Unix' "
>
>
>
>
> 2011/5/3 Stanislaw Pusep 
>
>
> Aliás, twittei o post do meu blog pro Marcio (limpei a tua barra, hein? 
> ;)Agora, cá entre nós, quais foram os aspectos considerados quando se conecta 
> com o mundo exterior e se busca emprego, ao elaborar "As Três Virtudes do 
> Programador"?
>
>
>
>
> ABS()
>
>
>
> 2011/5/3 Marcio Ferreira 
>
>
>
>
> Conheço todos vocẽs pessoalmente, eu sou o mais normal :P
> []s,
>
> @_marcioferreiraMarcio Ferreiramarciodesouzaferreira.blogspot.com
>
> "Perl lives as the 'toolbox for Unix' "
>
>
>
>
>
>
>
>
> 2011/5/3 Ulisses-IBIZ 
>
>
>
>
>
>
>
>
>
>
>
>
>
> rsrsrs; ack
>
>
>   From:
>   Stanislaw
>   Pusep
>   To: saopaulo...@mail.pm.org
>   Sent: Tuesday, May 03, 2011 3:44 PM
>   Subject: Re: [SP-pm] II São Paulo Perl
>   Workshop
>
> Infelizmente, tudo o que é de mal-gosto chama muito mais a
>   atenção (grande descoberta na arte do séc. 20). E chocar as massas para
>   provocar reflexão na minoria pensante freqüentemente funciona :P
>   Entretanto, não se preocupem: só freaks acessam o meu blog, e olha lá
>   :D
> ABS()
>
>
>
>   2011/5/3 Blabos de Blebe 
>   Tinha que ser o freak do Stan!!!
>
> Vamos pedir pro
> Larry dar um bless no Stan até ele soltar a backtrace
> pelo
> confess.
>
>
> 2011/5/3 Eden Cardim :
>
>
> >> "Ulisses-IBIZ" == Ulisses-IBIZ
>  
> writes:
>>
>>    Ulisses-IBIZ> no contexto
> INTRA-comunidade esse post é engraçado e reflete um pouco da verve da
> moçada;
>>    Ulisses-IBIZ> porém no contexto
> EXTRA-comunidade não pega bem (para certos olhos) esse lance de freak, 
> alone
> e 'marginalizado';
>>
>>    Ulisses-IBIZ> qto mais
> Perl (e seu seguidor) parecer ser uma ferramenta(pessoa) normal, 
> pragmática,
> estável e confiável melhor para a
>>    Ulisses-IBIZ>
> comunidade como um todo;
>>
>>    Ulisses-IBIZ>
> [notem que nao estou aqui como agente da TFP (tradicao familia e
> propriedade) de bordões moralistas; nao se trata disso;
>>
>  Ulisses-IBIZ> se trata em colocar um aspecto a ser considerado qdo
> se conecta com o mundo exterior e se busca emprego e oportunidade
>>
>    Ulisses-IBIZ> oferecidos por aquele
>>
>  Ulisses-IBIZ> contratante 'ignorante' na cultura Perl;
>>
>    Ulisses-IBIZ> ]
>>
>>
>  Ulisses-IBIZ> Perl precisa deixar de ser seita e virar filosofia
> (alem de religiao), ao alcance de todos.
>>
>> É, eu concordo, e
> não gostei nem um pouco do post. Inclusive, a
>> princípio, achei que
> era um flame contra o evento, mas vi que tinha o
>> banner e decidi
> reler.
>>
>> O que precisa ser propagado a r
>
>

-- 

ABS()
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Marcio Ferreira]

quem é "normal"  aqui => http://www.flickr.com/groups/35034352636@N01/pool

Larry
http://www.flickr.com/photos/andyarmstrong/3791901150/

Brian
http://www.flickr.com/photos/juliancash/752002655/in/pool-35034352636@N01

ou esse
http://www.flickr.com/photos/dancentury/101920531/in/pool-35034352636@N01

hahahaha

[]s,

@_marcioferreira
Marcio Ferreira
marciodesouzaferreira.blogspot.com

"Perl lives as the 'toolbox for Unix' "



2011/5/3 Stanislaw Pusep 

> Aliás, twittei o post do meu blog pro Marcio (limpei a tua barra, hein? ;)
> Agora, cá entre nós, quais foram os aspectos considerados quando se conecta
> com o mundo exterior e se busca emprego, ao elaborar "As Três Virtudes do
> Programador"?
>
> ABS()
>
>
>
>
> 2011/5/3 Marcio Ferreira 
>
>> Conheço todos vocẽs pessoalmente, eu sou o mais normal :P
>>
>>
>> []s,
>>
>> @_marcioferreira
>> Marcio Ferreira
>> marciodesouzaferreira.blogspot.com
>>
>> "Perl lives as the 'toolbox for Unix' "
>>
>>
>>
>> 2011/5/3 Ulisses-IBIZ 
>>
>>>  rsrsrs; ack
>>>
>>>
>>> *From:* Stanislaw Pusep 
>>> *To:* saopaulo...@mail.pm.org
>>> *Sent:* Tuesday, May 03, 2011 3:44 PM
>>> *Subject:* Re: [SP-pm] II São Paulo Perl Workshop
>>>
>>> Infelizmente, tudo o que é de mal-gosto chama muito mais a atenção
>>> (grande descoberta na arte do séc. 20). E chocar as massas para provocar
>>> reflexão na minoria pensante freqüentemente funciona :P
>>> Entretanto, não se preocupem: só freaks acessam o meu blog, e olha lá :D
>>>
>>> ABS()
>>>
>>>
>>>
>>> 2011/5/3 Blabos de Blebe 
>>>
 Tinha que ser o freak do Stan!!!

 Vamos pedir pro Larry dar um bless no Stan até ele soltar a backtrace
 pelo confess.


 2011/5/3 Eden Cardim :
  >> "Ulisses-IBIZ" == Ulisses-IBIZ   writes:
 >
 >Ulisses-IBIZ> no contexto INTRA-comunidade esse post é engraçado e
 reflete um pouco da verve da moçada;
 >Ulisses-IBIZ> porém no contexto EXTRA-comunidade não pega bem (para
 certos olhos) esse lance de freak, alone e 'marginalizado';
 >
 >Ulisses-IBIZ> qto mais Perl (e seu seguidor) parecer ser uma
 ferramenta(pessoa) normal, pragmática, estável e confiável melhor para a
 >Ulisses-IBIZ> comunidade como um todo;
 >
 >Ulisses-IBIZ> [notem que nao estou aqui como agente da TFP
 (tradicao familia e propriedade) de bordões moralistas; nao se trata disso;
 >Ulisses-IBIZ> se trata em colocar um aspecto a ser considerado qdo
 se conecta com o mundo exterior e se busca emprego e oportunidade
 >Ulisses-IBIZ> oferecidos por aquele
 >Ulisses-IBIZ> contratante 'ignorante' na cultura Perl;
 >Ulisses-IBIZ> ]
 >
 >Ulisses-IBIZ> Perl precisa deixar de ser seita e virar filosofia
 (alem de religiao), ao alcance de todos.
 >
 > É, eu concordo, e não gostei nem um pouco do post. Inclusive, a
 > princípio, achei que era um flame contra o evento, mas vi que tinha o
 > banner e decidi reler.
 >
 > O que precisa ser propagado a respeito de perl, invés do mantra
 elitista
 > legado dos anos 90, é que apesar de também existirem muitos gurus mais
 > bem-informados na comunidade, a linguagem é fácil e acessível para
 > todos. Inclusive vamos ter uma palestra do André Garcia que é um
 > publicitário e empreendendor que montou sozinho um portal de
 e-commerce
 > de livros usados muito bem-sucedido comercialmente tendo na mão apenas
 > um livro introdutório de perl, porque 1 - perl é fácil, 2 - já tá
 quase
 > tudo pronto. E pra mim, essa que é "uma criatura digna de ser chamada
 > Programador Perl".
 >
 > --
 >   Eden Cardim   Need help with your Catalyst or DBIx::Class
 project?
 >  Code Monkeyhttp://www.shadowcat.co.uk/catalyst/
 >  Shadowcat Systems Ltd.  Want a managed development or deployment
 platform?
 > http://blog.edencardim.com/
 http://www.shadowcat.co.uk/servers/
 > =begin disclaimer
 >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 >  L
 > =end disclaimer
 >
 =begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
  L
 =end disclaimer

>>>
>>>  --
>>>
>>> =begin disclaimer
>>>Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>>  L
>>> =end disclaimer
>>>
>>>
>>> =begin disclaimer
>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>>  L
>>> =end disclaimer
>>>
>>>
>

Re: [SP-pm] Socket - algumas questões:

[Ulisses-IBIZ]

sendo rapido (sem tempo, me desculpe);

se usei 'por anos' => serviu aos meus propositos e recomendo (mas cada um deve 
validar por si só) pela facilidade de adicionar hooks (suas subs) para 
configurar o que deve ser feito durante a conversa socket

mais em http://search.cpan.org/~rhandom/Net-Server-0.99/lib/Net/Server. (veja 
HOOKS)

usamos o Net::Server::Fork para receber requisicoes de cliente (eram transacoes 
contendo infos para busca em portais de validacao de credito PF e PJ), consulta 
via robo Web em portais pagos e nao pagos (Serasa, SPC, telefonicas, .), 
montavamos um 'laudo de credito' e devolviamos a resposta no socket.

la pelas tantas (depois de muito tempo) abandonamos o Net::Server::Fork e 
fizemos um bem enxuto (mais leve, rapido).

control-freak manja? nao gosto de surpresas.

  From: Solli Honorio 
  To: saopaulo...@mail.pm.org 
  Sent: Tuesday, May 03, 2011 5:53 PM
  Subject: Re: [SP-pm] Socket - algumas questões:





  2011/5/3 Ulisses-IBIZ 


  Desculpa, mas sou meio lento ...


Net::Server ja usei por anos.


  ... isto significa que você recomenda, ou que você não recomenda ? Você 
poderia dar a sua 'revisão' sobre o módulo ? 

AnyEvent nao conhecia.

  From: Stanislaw Pusep 
  To: saopaulo...@mail.pm.org 
  Sent: Tuesday, May 03, 2011 4:57 PM
  Subject: Re: [SP-pm] Socket - algumas questões:


  Existem outros frameworks, mais leves e mais específicos, tal como: 
http://search.cpan.org/~rhandom/Net-Server-0.99/
  E... BEWARE UDP!!! Tive oportunidade de presenciar pacotes sendo perdidos 
e fora de ordem numa LAN, imagine em Internet!

  ABS()




  2011/5/3 Andre Carneiro 

Oi Solli! 




Exatamente! Quando eu tento o raio do getline, ele não me traz nada 
apesar de escrever no socket, mas com certeza tem alguma coisa errada que eu 
não estou vendo. Talvez haja algum problema com a ordem que eu estou fazendo as 
coisas, sei lá. Vou dar uma fuçada no seu código e comparar as coisas pra 
descobrir.




Sobre usar um framework, eu tô fazendo uns testes com o AnyEvent. Eu 
sinceramente acho POE mito grande e complicado para o meu cérebro limitado. 
Já com o AnyEvent eu tô conseguindo me entender melhor. 




Sobre o livro, já tá na minha lista desse ano para comprar.




Sobre usar UDP acho que não vale a pena por enquanto. Mesmo pq já tenho 
um deadline bem apertado pra entregar essa meleca. Então deixa pra lá. Talvez 
numa outra versão




Thx a lot!




Cheers!










2011/5/3 Solli Honorio 






  Uma das maneiras é assim : 

  

  #!/usr/bin/env perl  
  use strict;
  use IO::Socket::INET;

  my $quit = 0;

  $SIG{INT} = sub { $quit++ };

  my $listen_socket = IO::Socket::INET->new(LocalPort => 2121,
  Listen=> 2,
  Proto => 'tcp',
  Reuse => 1,) or die "$!";

  while ( !$quit ) {
next unless my $connection = $listen_socket->accept;   

defined ( my $child = fork() ) or die "Can't fork: $!";

if ( $child == 0 ) {
  $listen_socket->close;
  do_something($connection);
  exit 0;
}
   
$connection->close;

  }

  sub do_something {
my $socket = shift;   

$socket->autoflush(1);
$socket->print("Entre com os numeros para calculo:\n");

while ( 1 ) {
  my $input = $socket->getline();
  exit 0 if $input =~ /quit/i;   
  $socket->print($input);
}
 
  }  

  
   
  O código acima é um echo server muito simples, que ilustra bem uma 
comunicação bi-direcional. Não sei onde você está utilizando este código, mas 
eu recomendo muito cuidado. Existem vários problemas com código deste tipo (I/O 
Blocking, por exemplo) e uma enorme quantidade de coisas que podem ocorrer de 
errado. 

  Tenho um livro (Networking Programming with Perl) de 700 páginas só 
falando de tudo que pode dar errado num código deste tipo e todas (ou quase) 
variações de servidores escrito em Perl (tcp, udp, I/O Blocking, I/O 
Nonblocking, forked, threaded). Utilizar print/getline, write/read, 
syswrite/sysread é apenas o começo das perguntas de arquitetura que temos que 
responder para um servidor.

  Se for possível, eu recomendo fortemente que você utilize um 
framework para fazer isto, tipo o POE 
(http://poe.perl.org/?POE_Cookbook/TCP_Servers tem um exemplo do mesmo código 
que eu escrevi). Se não for possível, eu recomendo você dar uma olhada no livro 
que eu disse (posso emprestar se for o caso). Temos também o Mojolicious com os 
websocket (estou começando a ver isto), pode ser uma bo

[SP-pm] Um convite especial

[Lucas Moraes]

Olá Saopaulo-pm,

Criei um perfil no Facebook com minhas fotos, vídeos e eventos e quero 
adicionar-lhe aos amigos para que você possa ver meu perfil. Primeiro, você 
precisa cadastrar-se no Facebook! Uma vez cadastrado, você também poderá criar 
seu próprio perfil.

Obrigada,
Lucas

Para se cadastrar no Facebook, clique no link abaixo:
http://www.facebook.com/p.php?i=12266394768&k=Z6E3Y3U4S4WCXDLJPB63QVPQSTKF4TZNUV1UGFRGWV&r

Já possui uma conta? Adicionar este endereço de e-mail à sua conta:
http://www.facebook.com/n/?merge_accounts.php&e=saopaulo-pm%40pm.org&c=2a8ffcde8da908c78ee99e30e1723da0

===
saopaulo-pm@pm.org foi convidado a participar do Facebook por Lucas Moraes. Se 
você não deseja mais receber estes e-mails do Facebook, use o link abaixo para 
cancelar sua inscrição.
http://www.facebook.com/o.php?k=fce235&u=12120185295&mid=42a6cb0G5af38ed9b5cfG0G8
Saiba mais sobre esse e-mail: 
http://www.facebook.com/help/?faq=17151\nFacebook, Inc. P.O. Box 10005, Palo 
Alto, CA 94303

=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] [OFF TOPIC] WTF??

[Daniel Vinciguerra]

Maldade isso vai... a aplicação não usa nem CGI.pm?!

"CGI.pm,v 1.4 1998/11/26 11:01:15 lstein"[1]
"Em 1º de dezembro de 1996 foi lançado o portal e provedor Zaz"[2]
"... em dezembro de 1999, o Zaz virou Terra."[2]

1 - http://cpansearch.perl.org/src/LDS/CGI.pm-2.45/CGI.pm
2 - 
http://tecnologia.terra.com.br/internet10anos/interna/0,,OI542329-EI5029,00.html

Ua,

Daniel Vinciguerra

Web Solutions Architect and Co-Owner at Bivee
http://github.com/dvinciguerra



> From: tiago.pecze...@gmail.com
> Date: Tue, 3 May 2011 15:15:23 -0300
> To: saopaulo...@mail.pm.org
> Subject: Re: [SP-pm] [OFF TOPIC] WTF??
> 
> mais divertido ainda é passar o codigo pelo perl::critic
> 
> 2011/5/3 Nilson Santos Figueiredo Jr. :
> > 2011/5/3 Marcio Ferreira :
> >> 
> >> O terra é uma empresa moderna, em breve o código estará no github
> >>
> >> 
> >
> > É perdoável, vai. Isso é da época que o Terra ainda se chamava Zaz.
> > Nessa época, formmail.pl era o defacto standard pra enviar emails hehe.
> >
> > -Nilson
> > =begin disclaimer
> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >  L
> > =end disclaimer
> >
> 
> 
> 
> -- 
> Tiago B. Peczenyj
> Linux User #405772
> 
> http://pacman.blog.br
> =begin disclaimer
>Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
  =begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Stanislaw Pusep]

Aliás, twittei o post do meu blog pro Marcio (limpei a tua barra, hein? ;)
Agora, cá entre nós, quais foram os aspectos considerados quando se conecta
com o mundo exterior e se busca emprego, ao elaborar "As Três Virtudes do
Programador"?

ABS()



2011/5/3 Marcio Ferreira 

> Conheço todos vocẽs pessoalmente, eu sou o mais normal :P
>
>
> []s,
>
> @_marcioferreira
> Marcio Ferreira
> marciodesouzaferreira.blogspot.com
>
> "Perl lives as the 'toolbox for Unix' "
>
>
>
> 2011/5/3 Ulisses-IBIZ 
>
>>  rsrsrs; ack
>>
>>
>> *From:* Stanislaw Pusep 
>> *To:* saopaulo...@mail.pm.org
>> *Sent:* Tuesday, May 03, 2011 3:44 PM
>> *Subject:* Re: [SP-pm] II São Paulo Perl Workshop
>>
>> Infelizmente, tudo o que é de mal-gosto chama muito mais a atenção (grande
>> descoberta na arte do séc. 20). E chocar as massas para provocar reflexão na
>> minoria pensante freqüentemente funciona :P
>> Entretanto, não se preocupem: só freaks acessam o meu blog, e olha lá :D
>>
>> ABS()
>>
>>
>>
>> 2011/5/3 Blabos de Blebe 
>>
>>> Tinha que ser o freak do Stan!!!
>>>
>>> Vamos pedir pro Larry dar um bless no Stan até ele soltar a backtrace
>>> pelo confess.
>>>
>>>
>>> 2011/5/3 Eden Cardim :
>>>  >> "Ulisses-IBIZ" == Ulisses-IBIZ   writes:
>>> >
>>> >Ulisses-IBIZ> no contexto INTRA-comunidade esse post é engraçado e
>>> reflete um pouco da verve da moçada;
>>> >Ulisses-IBIZ> porém no contexto EXTRA-comunidade não pega bem (para
>>> certos olhos) esse lance de freak, alone e 'marginalizado';
>>> >
>>> >Ulisses-IBIZ> qto mais Perl (e seu seguidor) parecer ser uma
>>> ferramenta(pessoa) normal, pragmática, estável e confiável melhor para a
>>> >Ulisses-IBIZ> comunidade como um todo;
>>> >
>>> >Ulisses-IBIZ> [notem que nao estou aqui como agente da TFP (tradicao
>>> familia e propriedade) de bordões moralistas; nao se trata disso;
>>> >Ulisses-IBIZ> se trata em colocar um aspecto a ser considerado qdo
>>> se conecta com o mundo exterior e se busca emprego e oportunidade
>>> >Ulisses-IBIZ> oferecidos por aquele
>>> >Ulisses-IBIZ> contratante 'ignorante' na cultura Perl;
>>> >Ulisses-IBIZ> ]
>>> >
>>> >Ulisses-IBIZ> Perl precisa deixar de ser seita e virar filosofia
>>> (alem de religiao), ao alcance de todos.
>>> >
>>> > É, eu concordo, e não gostei nem um pouco do post. Inclusive, a
>>> > princípio, achei que era um flame contra o evento, mas vi que tinha o
>>> > banner e decidi reler.
>>> >
>>> > O que precisa ser propagado a respeito de perl, invés do mantra
>>> elitista
>>> > legado dos anos 90, é que apesar de também existirem muitos gurus mais
>>> > bem-informados na comunidade, a linguagem é fácil e acessível para
>>> > todos. Inclusive vamos ter uma palestra do André Garcia que é um
>>> > publicitário e empreendendor que montou sozinho um portal de e-commerce
>>> > de livros usados muito bem-sucedido comercialmente tendo na mão apenas
>>> > um livro introdutório de perl, porque 1 - perl é fácil, 2 - já tá quase
>>> > tudo pronto. E pra mim, essa que é "uma criatura digna de ser chamada
>>> > Programador Perl".
>>> >
>>> > --
>>> >   Eden Cardim   Need help with your Catalyst or DBIx::Class
>>> project?
>>> >  Code Monkeyhttp://www.shadowcat.co.uk/catalyst/
>>> >  Shadowcat Systems Ltd.  Want a managed development or deployment
>>> platform?
>>> > http://blog.edencardim.com/
>>> http://www.shadowcat.co.uk/servers/
>>> > =begin disclaimer
>>> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>> >  L
>>> > =end disclaimer
>>> >
>>> =begin disclaimer
>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>>  L
>>> =end disclaimer
>>>
>>
>>  --
>>
>> =begin disclaimer
>>Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>>
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>>
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] Socket - algumas questões:

[Solli Honorio]

2011/5/3 Ulisses-IBIZ 

Desculpa, mas sou meio lento ...

 Net::Server ja usei por anos.
>

... isto significa que você recomenda, ou que você não recomenda ? Você
poderia dar a sua 'revisão' sobre o módulo ?


> AnyEvent nao conhecia.
>
>
> *From:* Stanislaw Pusep 
> *To:* saopaulo...@mail.pm.org
> *Sent:* Tuesday, May 03, 2011 4:57 PM
> *Subject:* Re: [SP-pm] Socket - algumas questões:
>
> Existem outros frameworks, mais leves e mais específicos, tal como:
> http://search.cpan.org/~rhandom/Net-Server-0.99/
> E... BEWARE UDP!!! Tive oportunidade de presenciar pacotes sendo perdidos e
> fora de ordem numa LAN, imagine em Internet!
>
> ABS()
>
>
>
> 2011/5/3 Andre Carneiro 
>
>> Oi Solli!
>>
>>
>> Exatamente! Quando eu tento o raio do getline, ele não me traz nada apesar
>> de escrever no socket, mas com certeza tem alguma coisa errada que eu não
>> estou vendo. Talvez haja algum problema com a ordem que eu estou fazendo as
>> coisas, sei lá. Vou dar uma fuçada no seu código e comparar as coisas pra
>> descobrir.
>>
>>
>> Sobre usar um framework, eu tô fazendo uns testes com o AnyEvent. Eu
>> sinceramente acho POE mito grande e complicado para o meu cérebro
>> limitado. Já com o AnyEvent eu tô conseguindo me entender melhor.
>>
>>
>> Sobre o livro, já tá na minha lista desse ano para comprar.
>>
>>
>> Sobre usar UDP acho que não vale a pena por enquanto. Mesmo pq já tenho um
>> deadline bem apertado pra entregar essa meleca. Então deixa pra lá. Talvez
>> numa outra versão
>>
>>
>> Thx a lot!
>>
>>
>> Cheers!
>>
>>
>>
>>
>>
>> 2011/5/3 Solli Honorio 
>>
>>>
>>>
>>>
>>> Uma das maneiras é assim :
>>>
>>> 
>>>
>>> #!/usr/bin/env perl
>>> use strict;
>>> use IO::Socket::INET;
>>>
>>> my $quit = 0;
>>>
>>> $SIG{INT} = sub { $quit++ };
>>>
>>> my $listen_socket = IO::Socket::INET->new(LocalPort => 2121,
>>> Listen=> 2,
>>> Proto => 'tcp',
>>> Reuse => 1,) or die "$!";
>>>
>>> while ( !$quit ) {
>>>   next unless my $connection = $listen_socket->accept;
>>>
>>>   defined ( my $child = fork() ) or die "Can't fork: $!";
>>>
>>>   if ( $child == 0 ) {
>>> $listen_socket->close;
>>> do_something($connection);
>>> exit 0;
>>>   }
>>>
>>>   $connection->close;
>>>
>>> }
>>>
>>> sub do_something {
>>>   my $socket = shift;
>>>
>>>   $socket->autoflush(1);
>>>   $socket->print("Entre com os numeros para calculo:\n");
>>>
>>>   while ( 1 ) {
>>> my $input = $socket->getline();
>>> exit 0 if $input =~ /quit/i;
>>> $socket->print($input);
>>>   }
>>>
>>> }
>>>
>>> 
>>>
>>> O código acima é um echo server muito simples, que ilustra bem uma
>>> comunicação bi-direcional. Não sei onde você está utilizando este código,
>>> mas eu recomendo muito cuidado. Existem vários problemas com código deste
>>> tipo (I/O Blocking, por exemplo) e uma enorme quantidade de coisas que podem
>>> ocorrer de errado.
>>>
>>> Tenho um livro (Networking Programming with Perl) de 700 páginas só
>>> falando de tudo que pode dar errado num código deste tipo e todas (ou quase)
>>> variações de servidores escrito em Perl (tcp, udp, I/O Blocking, I/O
>>> Nonblocking, forked, threaded). Utilizar print/getline, write/read,
>>> syswrite/sysread é apenas o começo das perguntas de arquitetura que temos
>>> que responder para um servidor.
>>>
>>> Se for possível, eu recomendo fortemente que você utilize um framework
>>> para fazer isto, tipo o POE (
>>> http://poe.perl.org/?POE_Cookbook/TCP_Servers tem um exemplo do mesmo
>>> código que eu escrevi). Se não for possível, eu recomendo você dar uma
>>> olhada no livro que eu disse (posso emprestar se for o caso). Temos também o
>>> Mojolicious com os websocket (estou começando a ver isto), pode ser uma boa
>>> alternativa.
>>>
>>>  - Preciso de protocolo específico para fazer isso ?

>>>
>>> Uma conversa bi-direcional, você precisa definir os comandos que um vai
>>> aceitar do outro. Você terá que criar algum protocolo de qualquer maneira,
>>> uma linguagem que seja compreendida pelo servidor e cliente, qual como o
>>> HTTP, FTP ou SMTP. Na transferência de arquivo, recomendo fortemente no
>>> formato JSON. Aliais, este teu sistema não seria candidato para ser um
>>> webapp com RESTfull web services implementado em Catalyst ou Mojolicious ?
>>> Neste ambiente O URI é a função que recebe/retorna em JSON, sem view em html
>>> !
>>>
>>>
 - Eu vi algumas pessoas usando udp ao invés de tcp alegando aumento de
 performance, mas abrindo mão de vários quesitos de segurança dentre outros
 problemas. Confirma?


>>> Sim, o UDP é mais 'leve' do que o 'tcp'. Mas isto significa que você terá
>>> que tratar tudo relacionado a transferência de dados (ordem dos pacotes,
>>> perda dos pacotes, etc). Uma recomendação, a menos que você saiba muito bem
>>> o que está fazendo, e que o consumo de rede seja justificado, não utilize o
>>> UDP, o overhead par

Re: [SP-pm] II São Paulo Perl Workshop

[Marcio Ferreira]

Conheço todos vocẽs pessoalmente, eu sou o mais normal :P

[]s,

@_marcioferreira
Marcio Ferreira
marciodesouzaferreira.blogspot.com

"Perl lives as the 'toolbox for Unix' "



2011/5/3 Ulisses-IBIZ 

>  rsrsrs; ack
>
>
> *From:* Stanislaw Pusep 
> *To:* saopaulo...@mail.pm.org
> *Sent:* Tuesday, May 03, 2011 3:44 PM
> *Subject:* Re: [SP-pm] II São Paulo Perl Workshop
>
> Infelizmente, tudo o que é de mal-gosto chama muito mais a atenção (grande
> descoberta na arte do séc. 20). E chocar as massas para provocar reflexão na
> minoria pensante freqüentemente funciona :P
> Entretanto, não se preocupem: só freaks acessam o meu blog, e olha lá :D
>
> ABS()
>
>
>
> 2011/5/3 Blabos de Blebe 
>
>> Tinha que ser o freak do Stan!!!
>>
>> Vamos pedir pro Larry dar um bless no Stan até ele soltar a backtrace
>> pelo confess.
>>
>>
>> 2011/5/3 Eden Cardim :
>>  >> "Ulisses-IBIZ" == Ulisses-IBIZ   writes:
>> >
>> >Ulisses-IBIZ> no contexto INTRA-comunidade esse post é engraçado e
>> reflete um pouco da verve da moçada;
>> >Ulisses-IBIZ> porém no contexto EXTRA-comunidade não pega bem (para
>> certos olhos) esse lance de freak, alone e 'marginalizado';
>> >
>> >Ulisses-IBIZ> qto mais Perl (e seu seguidor) parecer ser uma
>> ferramenta(pessoa) normal, pragmática, estável e confiável melhor para a
>> >Ulisses-IBIZ> comunidade como um todo;
>> >
>> >Ulisses-IBIZ> [notem que nao estou aqui como agente da TFP (tradicao
>> familia e propriedade) de bordões moralistas; nao se trata disso;
>> >Ulisses-IBIZ> se trata em colocar um aspecto a ser considerado qdo se
>> conecta com o mundo exterior e se busca emprego e oportunidade
>> >Ulisses-IBIZ> oferecidos por aquele
>> >Ulisses-IBIZ> contratante 'ignorante' na cultura Perl;
>> >Ulisses-IBIZ> ]
>> >
>> >Ulisses-IBIZ> Perl precisa deixar de ser seita e virar filosofia
>> (alem de religiao), ao alcance de todos.
>> >
>> > É, eu concordo, e não gostei nem um pouco do post. Inclusive, a
>> > princípio, achei que era um flame contra o evento, mas vi que tinha o
>> > banner e decidi reler.
>> >
>> > O que precisa ser propagado a respeito de perl, invés do mantra elitista
>> > legado dos anos 90, é que apesar de também existirem muitos gurus mais
>> > bem-informados na comunidade, a linguagem é fácil e acessível para
>> > todos. Inclusive vamos ter uma palestra do André Garcia que é um
>> > publicitário e empreendendor que montou sozinho um portal de e-commerce
>> > de livros usados muito bem-sucedido comercialmente tendo na mão apenas
>> > um livro introdutório de perl, porque 1 - perl é fácil, 2 - já tá quase
>> > tudo pronto. E pra mim, essa que é "uma criatura digna de ser chamada
>> > Programador Perl".
>> >
>> > --
>> >   Eden Cardim   Need help with your Catalyst or DBIx::Class project?
>> >  Code Monkeyhttp://www.shadowcat.co.uk/catalyst/
>> >  Shadowcat Systems Ltd.  Want a managed development or deployment
>> platform?
>> > http://blog.edencardim.com/
>> http://www.shadowcat.co.uk/servers/
>> > =begin disclaimer
>> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>> >  L
>> > =end disclaimer
>> >
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>
>  --
>
> =begin disclaimer
>Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] Socket - algumas questões:

[Ulisses-IBIZ]

Net::Server ja usei por anos.
AnyEvent nao conhecia.

  From: Stanislaw Pusep 
  To: saopaulo...@mail.pm.org 
  Sent: Tuesday, May 03, 2011 4:57 PM
  Subject: Re: [SP-pm] Socket - algumas questões:


  Existem outros frameworks, mais leves e mais específicos, tal como: 
http://search.cpan.org/~rhandom/Net-Server-0.99/
  E... BEWARE UDP!!! Tive oportunidade de presenciar pacotes sendo perdidos e 
fora de ordem numa LAN, imagine em Internet!

  ABS()




  2011/5/3 Andre Carneiro 

Oi Solli!




Exatamente! Quando eu tento o raio do getline, ele não me traz nada apesar 
de escrever no socket, mas com certeza tem alguma coisa errada que eu não estou 
vendo. Talvez haja algum problema com a ordem que eu estou fazendo as coisas, 
sei lá. Vou dar uma fuçada no seu código e comparar as coisas pra descobrir.




Sobre usar um framework, eu tô fazendo uns testes com o AnyEvent. Eu 
sinceramente acho POE mito grande e complicado para o meu cérebro limitado. 
Já com o AnyEvent eu tô conseguindo me entender melhor. 




Sobre o livro, já tá na minha lista desse ano para comprar.




Sobre usar UDP acho que não vale a pena por enquanto. Mesmo pq já tenho um 
deadline bem apertado pra entregar essa meleca. Então deixa pra lá. Talvez numa 
outra versão




Thx a lot!




Cheers!










2011/5/3 Solli Honorio 






  Uma das maneiras é assim : 

  

  #!/usr/bin/env perl  
  use strict;
  use IO::Socket::INET;

  my $quit = 0;

  $SIG{INT} = sub { $quit++ };

  my $listen_socket = IO::Socket::INET->new(LocalPort => 2121,
  Listen=> 2,
  Proto => 'tcp',
  Reuse => 1,) or die "$!";

  while ( !$quit ) {
next unless my $connection = $listen_socket->accept;   

defined ( my $child = fork() ) or die "Can't fork: $!";

if ( $child == 0 ) {
  $listen_socket->close;
  do_something($connection);
  exit 0;
}
   
$connection->close;

  }

  sub do_something {
my $socket = shift;   

$socket->autoflush(1);
$socket->print("Entre com os numeros para calculo:\n");

while ( 1 ) {
  my $input = $socket->getline();
  exit 0 if $input =~ /quit/i;   
  $socket->print($input);
}
 
  }  

  
   
  O código acima é um echo server muito simples, que ilustra bem uma 
comunicação bi-direcional. Não sei onde você está utilizando este código, mas 
eu recomendo muito cuidado. Existem vários problemas com código deste tipo (I/O 
Blocking, por exemplo) e uma enorme quantidade de coisas que podem ocorrer de 
errado. 

  Tenho um livro (Networking Programming with Perl) de 700 páginas só 
falando de tudo que pode dar errado num código deste tipo e todas (ou quase) 
variações de servidores escrito em Perl (tcp, udp, I/O Blocking, I/O 
Nonblocking, forked, threaded). Utilizar print/getline, write/read, 
syswrite/sysread é apenas o começo das perguntas de arquitetura que temos que 
responder para um servidor.

  Se for possível, eu recomendo fortemente que você utilize um framework 
para fazer isto, tipo o POE (http://poe.perl.org/?POE_Cookbook/TCP_Servers tem 
um exemplo do mesmo código que eu escrevi). Se não for possível, eu recomendo 
você dar uma olhada no livro que eu disse (posso emprestar se for o caso). 
Temos também o Mojolicious com os websocket (estou começando a ver isto), pode 
ser uma boa alternativa.


- Preciso de protocolo específico para fazer isso ?

  Uma conversa bi-direcional, você precisa definir os comandos que um vai 
aceitar do outro. Você terá que criar algum protocolo de qualquer maneira, uma 
linguagem que seja compreendida pelo servidor e cliente, qual como o HTTP, FTP 
ou SMTP. Na transferência de arquivo, recomendo fortemente no formato JSON. 
Aliais, este teu sistema não seria candidato para ser um webapp com RESTfull 
web services implementado em Catalyst ou Mojolicious ? Neste ambiente O URI é a 
função que recebe/retorna em JSON, sem view em html !
   
- Eu vi algumas pessoas usando udp ao invés de tcp alegando aumento de 
performance, mas abrindo mão de vários quesitos de segurança dentre outros 
problemas. Confirma?



  Sim, o UDP é mais 'leve' do que o 'tcp'. Mas isto significa que você terá 
que tratar tudo relacionado a transferência de dados (ordem dos pacotes, perda 
dos pacotes, etc). Uma recomendação, a menos que você saiba muito bem o que 
está fazendo, e que o consumo de rede seja justificado, não utilize o UDP, o 
overhead para o programador não vale a pena. O HTTP utiliza TCP e ninguém 
pensou em mudar isto, não siga os líderes :D   




Cheers!



-- 
André Garcia Carneiro
Analista/Desenvolvedor Perl
(11)82907780



=begin 

Re: [SP-pm] Socket - algumas questões:

[Solli Honorio]

2011/5/3 Andre Carneiro 

> Oi Solli!
>
>
> Exatamente! Quando eu tento o raio do getline, ele não me traz nada apesar
> de escrever no socket, mas com certeza tem alguma coisa errada que eu não
> estou vendo. Talvez haja algum problema com a ordem que eu estou fazendo as
> coisas, sei lá. Vou dar uma fuçada no seu código e comparar as coisas pra
> descobrir.
>
>
está com o autoflush habilitado ?


>
> Sobre usar um framework, eu tô fazendo uns testes com o AnyEvent. Eu
> sinceramente acho POE mito grande e complicado para o meu cérebro
> limitado. Já com o AnyEvent eu tô conseguindo me entender melhor.
>
>
sim, o POE é meio chato ... o AnyEvent é melhor alternativa. Eu tinha
esquecido deste cara !


>
> Sobre o livro, já tá na minha lista desse ano para comprar.
>
>
Se vc for ao workshop, eu posso levar o livro para vc dar uma olhada !!!


>
> Sobre usar UDP acho que não vale a pena por enquanto. Mesmo pq já tenho um
> deadline bem apertado pra entregar essa meleca. Então deixa pra lá. Talvez
> numa outra versão
>
>
Sinceramente, eu acho que não vale a pena em nenhuma versão.


>
> Thx a lot!
>
>
> Cheers!
>
>
>
>
>
> 2011/5/3 Solli Honorio 
>
>>
>>
>>
>> Uma das maneiras é assim :
>>
>> 
>>
>> #!/usr/bin/env perl
>> use strict;
>> use IO::Socket::INET;
>>
>> my $quit = 0;
>>
>> $SIG{INT} = sub { $quit++ };
>>
>> my $listen_socket = IO::Socket::INET->new(LocalPort => 2121,
>> Listen=> 2,
>> Proto => 'tcp',
>> Reuse => 1,) or die "$!";
>>
>> while ( !$quit ) {
>>   next unless my $connection = $listen_socket->accept;
>>
>>   defined ( my $child = fork() ) or die "Can't fork: $!";
>>
>>   if ( $child == 0 ) {
>> $listen_socket->close;
>> do_something($connection);
>> exit 0;
>>   }
>>
>>   $connection->close;
>>
>> }
>>
>> sub do_something {
>>   my $socket = shift;
>>
>>   $socket->autoflush(1);
>>   $socket->print("Entre com os numeros para calculo:\n");
>>
>>   while ( 1 ) {
>> my $input = $socket->getline();
>> exit 0 if $input =~ /quit/i;
>> $socket->print($input);
>>   }
>>
>> }
>>
>> 
>>
>> O código acima é um echo server muito simples, que ilustra bem uma
>> comunicação bi-direcional. Não sei onde você está utilizando este código,
>> mas eu recomendo muito cuidado. Existem vários problemas com código deste
>> tipo (I/O Blocking, por exemplo) e uma enorme quantidade de coisas que podem
>> ocorrer de errado.
>>
>> Tenho um livro (Networking Programming with Perl) de 700 páginas só
>> falando de tudo que pode dar errado num código deste tipo e todas (ou quase)
>> variações de servidores escrito em Perl (tcp, udp, I/O Blocking, I/O
>> Nonblocking, forked, threaded). Utilizar print/getline, write/read,
>> syswrite/sysread é apenas o começo das perguntas de arquitetura que temos
>> que responder para um servidor.
>>
>> Se for possível, eu recomendo fortemente que você utilize um framework
>> para fazer isto, tipo o POE (
>> http://poe.perl.org/?POE_Cookbook/TCP_Servers tem um exemplo do mesmo
>> código que eu escrevi). Se não for possível, eu recomendo você dar uma
>> olhada no livro que eu disse (posso emprestar se for o caso). Temos também o
>> Mojolicious com os websocket (estou começando a ver isto), pode ser uma boa
>> alternativa.
>>
>> - Preciso de protocolo específico para fazer isso ?
>>>
>>
>> Uma conversa bi-direcional, você precisa definir os comandos que um vai
>> aceitar do outro. Você terá que criar algum protocolo de qualquer maneira,
>> uma linguagem que seja compreendida pelo servidor e cliente, qual como o
>> HTTP, FTP ou SMTP. Na transferência de arquivo, recomendo fortemente no
>> formato JSON. Aliais, este teu sistema não seria candidato para ser um
>> webapp com RESTfull web services implementado em Catalyst ou Mojolicious ?
>> Neste ambiente O URI é a função que recebe/retorna em JSON, sem view em html
>> !
>>
>>
>>> - Eu vi algumas pessoas usando udp ao invés de tcp alegando aumento de
>>> performance, mas abrindo mão de vários quesitos de segurança dentre outros
>>> problemas. Confirma?
>>>
>>>
>> Sim, o UDP é mais 'leve' do que o 'tcp'. Mas isto significa que você terá
>> que tratar tudo relacionado a transferência de dados (ordem dos pacotes,
>> perda dos pacotes, etc). Uma recomendação, a menos que você saiba muito bem
>> o que está fazendo, e que o consumo de rede seja justificado, não utilize o
>> UDP, o overhead para o programador não vale a pena. O HTTP utiliza TCP e
>> ninguém pensou em mudar isto, não siga os líderes :D 
>>
>>
>>> Cheers!
>>>
>>>
>>> --
>>> André Garcia Carneiro
>>> Analista/Desenvolvedor Perl
>>> (11)82907780
>>>
>>> =begin disclaimer
>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>>  L
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> "o animal satisfeito dorme". - Guimarães Rosa
>>
>> =begin

Re: [SP-pm] Socket - algumas questões:

[Stanislaw Pusep]

Existem outros frameworks, mais leves e mais específicos, tal como:
http://search.cpan.org/~rhandom/Net-Server-0.99/
E... BEWARE UDP!!! Tive oportunidade de presenciar pacotes sendo perdidos e
fora de ordem numa LAN, imagine em Internet!

ABS()



2011/5/3 Andre Carneiro 

> Oi Solli!
>
>
> Exatamente! Quando eu tento o raio do getline, ele não me traz nada apesar
> de escrever no socket, mas com certeza tem alguma coisa errada que eu não
> estou vendo. Talvez haja algum problema com a ordem que eu estou fazendo as
> coisas, sei lá. Vou dar uma fuçada no seu código e comparar as coisas pra
> descobrir.
>
>
> Sobre usar um framework, eu tô fazendo uns testes com o AnyEvent. Eu
> sinceramente acho POE mito grande e complicado para o meu cérebro
> limitado. Já com o AnyEvent eu tô conseguindo me entender melhor.
>
>
> Sobre o livro, já tá na minha lista desse ano para comprar.
>
>
> Sobre usar UDP acho que não vale a pena por enquanto. Mesmo pq já tenho um
> deadline bem apertado pra entregar essa meleca. Então deixa pra lá. Talvez
> numa outra versão
>
>
> Thx a lot!
>
>
> Cheers!
>
>
>
>
>
> 2011/5/3 Solli Honorio 
>
>>
>>
>>
>> Uma das maneiras é assim :
>>
>> 
>>
>> #!/usr/bin/env perl
>> use strict;
>> use IO::Socket::INET;
>>
>> my $quit = 0;
>>
>> $SIG{INT} = sub { $quit++ };
>>
>> my $listen_socket = IO::Socket::INET->new(LocalPort => 2121,
>> Listen=> 2,
>> Proto => 'tcp',
>> Reuse => 1,) or die "$!";
>>
>> while ( !$quit ) {
>>   next unless my $connection = $listen_socket->accept;
>>
>>   defined ( my $child = fork() ) or die "Can't fork: $!";
>>
>>   if ( $child == 0 ) {
>> $listen_socket->close;
>> do_something($connection);
>> exit 0;
>>   }
>>
>>   $connection->close;
>>
>> }
>>
>> sub do_something {
>>   my $socket = shift;
>>
>>   $socket->autoflush(1);
>>   $socket->print("Entre com os numeros para calculo:\n");
>>
>>   while ( 1 ) {
>> my $input = $socket->getline();
>> exit 0 if $input =~ /quit/i;
>> $socket->print($input);
>>   }
>>
>> }
>>
>> 
>>
>> O código acima é um echo server muito simples, que ilustra bem uma
>> comunicação bi-direcional. Não sei onde você está utilizando este código,
>> mas eu recomendo muito cuidado. Existem vários problemas com código deste
>> tipo (I/O Blocking, por exemplo) e uma enorme quantidade de coisas que podem
>> ocorrer de errado.
>>
>> Tenho um livro (Networking Programming with Perl) de 700 páginas só
>> falando de tudo que pode dar errado num código deste tipo e todas (ou quase)
>> variações de servidores escrito em Perl (tcp, udp, I/O Blocking, I/O
>> Nonblocking, forked, threaded). Utilizar print/getline, write/read,
>> syswrite/sysread é apenas o começo das perguntas de arquitetura que temos
>> que responder para um servidor.
>>
>> Se for possível, eu recomendo fortemente que você utilize um framework
>> para fazer isto, tipo o POE (
>> http://poe.perl.org/?POE_Cookbook/TCP_Servers tem um exemplo do mesmo
>> código que eu escrevi). Se não for possível, eu recomendo você dar uma
>> olhada no livro que eu disse (posso emprestar se for o caso). Temos também o
>> Mojolicious com os websocket (estou começando a ver isto), pode ser uma boa
>> alternativa.
>>
>> - Preciso de protocolo específico para fazer isso ?
>>>
>>
>> Uma conversa bi-direcional, você precisa definir os comandos que um vai
>> aceitar do outro. Você terá que criar algum protocolo de qualquer maneira,
>> uma linguagem que seja compreendida pelo servidor e cliente, qual como o
>> HTTP, FTP ou SMTP. Na transferência de arquivo, recomendo fortemente no
>> formato JSON. Aliais, este teu sistema não seria candidato para ser um
>> webapp com RESTfull web services implementado em Catalyst ou Mojolicious ?
>> Neste ambiente O URI é a função que recebe/retorna em JSON, sem view em html
>> !
>>
>>
>>> - Eu vi algumas pessoas usando udp ao invés de tcp alegando aumento de
>>> performance, mas abrindo mão de vários quesitos de segurança dentre outros
>>> problemas. Confirma?
>>>
>>>
>> Sim, o UDP é mais 'leve' do que o 'tcp'. Mas isto significa que você terá
>> que tratar tudo relacionado a transferência de dados (ordem dos pacotes,
>> perda dos pacotes, etc). Uma recomendação, a menos que você saiba muito bem
>> o que está fazendo, e que o consumo de rede seja justificado, não utilize o
>> UDP, o overhead para o programador não vale a pena. O HTTP utiliza TCP e
>> ninguém pensou em mudar isto, não siga os líderes :D 
>>
>>
>>> Cheers!
>>>
>>>
>>> --
>>> André Garcia Carneiro
>>> Analista/Desenvolvedor Perl
>>> (11)82907780
>>>
>>> =begin disclaimer
>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>>  L
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> "o animal satisfeito dorme". - Guimarães Rosa
>>
>> =begin disclaimer
>>   Sao Paulo Pe

Re: [SP-pm] Socket - algumas questões:

[Andre Carneiro]

Oi Solli!


Exatamente! Quando eu tento o raio do getline, ele não me traz nada apesar
de escrever no socket, mas com certeza tem alguma coisa errada que eu não
estou vendo. Talvez haja algum problema com a ordem que eu estou fazendo as
coisas, sei lá. Vou dar uma fuçada no seu código e comparar as coisas pra
descobrir.


Sobre usar um framework, eu tô fazendo uns testes com o AnyEvent. Eu
sinceramente acho POE mito grande e complicado para o meu cérebro
limitado. Já com o AnyEvent eu tô conseguindo me entender melhor.


Sobre o livro, já tá na minha lista desse ano para comprar.


Sobre usar UDP acho que não vale a pena por enquanto. Mesmo pq já tenho um
deadline bem apertado pra entregar essa meleca. Então deixa pra lá. Talvez
numa outra versão


Thx a lot!


Cheers!





2011/5/3 Solli Honorio 

>
>
>
> Uma das maneiras é assim :
>
> 
>
> #!/usr/bin/env perl
> use strict;
> use IO::Socket::INET;
>
> my $quit = 0;
>
> $SIG{INT} = sub { $quit++ };
>
> my $listen_socket = IO::Socket::INET->new(LocalPort => 2121,
> Listen=> 2,
> Proto => 'tcp',
> Reuse => 1,) or die "$!";
>
> while ( !$quit ) {
>   next unless my $connection = $listen_socket->accept;
>
>   defined ( my $child = fork() ) or die "Can't fork: $!";
>
>   if ( $child == 0 ) {
> $listen_socket->close;
> do_something($connection);
> exit 0;
>   }
>
>   $connection->close;
>
> }
>
> sub do_something {
>   my $socket = shift;
>
>   $socket->autoflush(1);
>   $socket->print("Entre com os numeros para calculo:\n");
>
>   while ( 1 ) {
> my $input = $socket->getline();
> exit 0 if $input =~ /quit/i;
> $socket->print($input);
>   }
>
> }
>
> 
>
> O código acima é um echo server muito simples, que ilustra bem uma
> comunicação bi-direcional. Não sei onde você está utilizando este código,
> mas eu recomendo muito cuidado. Existem vários problemas com código deste
> tipo (I/O Blocking, por exemplo) e uma enorme quantidade de coisas que podem
> ocorrer de errado.
>
> Tenho um livro (Networking Programming with Perl) de 700 páginas só falando
> de tudo que pode dar errado num código deste tipo e todas (ou quase)
> variações de servidores escrito em Perl (tcp, udp, I/O Blocking, I/O
> Nonblocking, forked, threaded). Utilizar print/getline, write/read,
> syswrite/sysread é apenas o começo das perguntas de arquitetura que temos
> que responder para um servidor.
>
> Se for possível, eu recomendo fortemente que você utilize um framework para
> fazer isto, tipo o POE (http://poe.perl.org/?POE_Cookbook/TCP_Servers tem
> um exemplo do mesmo código que eu escrevi). Se não for possível, eu
> recomendo você dar uma olhada no livro que eu disse (posso emprestar se for
> o caso). Temos também o Mojolicious com os websocket (estou começando a ver
> isto), pode ser uma boa alternativa.
>
> - Preciso de protocolo específico para fazer isso ?
>>
>
> Uma conversa bi-direcional, você precisa definir os comandos que um vai
> aceitar do outro. Você terá que criar algum protocolo de qualquer maneira,
> uma linguagem que seja compreendida pelo servidor e cliente, qual como o
> HTTP, FTP ou SMTP. Na transferência de arquivo, recomendo fortemente no
> formato JSON. Aliais, este teu sistema não seria candidato para ser um
> webapp com RESTfull web services implementado em Catalyst ou Mojolicious ?
> Neste ambiente O URI é a função que recebe/retorna em JSON, sem view em html
> !
>
>
>> - Eu vi algumas pessoas usando udp ao invés de tcp alegando aumento de
>> performance, mas abrindo mão de vários quesitos de segurança dentre outros
>> problemas. Confirma?
>>
>>
> Sim, o UDP é mais 'leve' do que o 'tcp'. Mas isto significa que você terá
> que tratar tudo relacionado a transferência de dados (ordem dos pacotes,
> perda dos pacotes, etc). Uma recomendação, a menos que você saiba muito bem
> o que está fazendo, e que o consumo de rede seja justificado, não utilize o
> UDP, o overhead para o programador não vale a pena. O HTTP utiliza TCP e
> ninguém pensou em mudar isto, não siga os líderes :D 
>
>
>> Cheers!
>>
>>
>> --
>> André Garcia Carneiro
>> Analista/Desenvolvedor Perl
>> (11)82907780
>>
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>>
>
>
> --
> "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
> =end disclaimer
>
>


-- 
André Garcia Carneiro
Analista/Desenvolvedor Perl
(11)82907780
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] Socket - algumas questões:

[Andre Carneiro]

Faaala Stan!

Então, eu pensei mesmo em usar o AnyEvent, mas eu acho que é demais para o
problema que é bem simples. Na verdade esse daemon que eu estou fazendo vai
cuidar de dois processos apenas. Um que vai ficar organizando uma fila e
outro que só vai escutar comandos enviados via socket, que depois vão
despachar workers do gearman. Esse sim vai fazer a parte 'pesada' da coisa.
Então quanto a escalabilidade, eu pretendo jogar nas costas do gearman, e
não do daemon.

Mas ainda não descartei a possibilidade de usar o AnyEvent. Mesmo porque o
Solli também recomendou que eu usasse um framework que já cuidasse dessa
comunicação bi-derecional ...

Thx a lot!


Cheers!


2011/5/3 Stanislaw Pusep 

> Yaih Carneiro!
> Que eu me lembre, accept() precisa retornar 2 sockets: accept(Client,
> Server). Você pode, sim, ler e gravar no socket do client, mas no server
> devem ser separados.
> Um aviso: seu código terá sérios problemas de escalabilidade por causa do
> fork(). E, como vc já deve prever, eu recomendaria o fabuloso AnyEvent :D
> Veja um servidor HTTPD toscão que aguenta 100 conexões simultâneas sem
> apelar p/load descomunal:
>
> https://gist.github.com/781246
>
> ABS()
>
>
>
> 2011/5/3 Andre Carneiro 
>
>> Salve Monges!
>>
>>
>> Estou com uns problemas com Sockets que mesmo fuçando bastante eu não
>> consegui resolver. Os sockets tanto do lado do servidor quanto do lado do
>> cliente estão ok, e isso significa:
>>
>> - O 'socket' do lado do 'client' escreve coisas no socket
>> - O 'socket' do lado do server lê coisas do Socket;
>>
>> Agora eu preciso que o socket do lado do servidor envie os resultados como
>> mensagens de erros e dados, de maneira geral, para o client. O que tá
>> rolando agora:
>>
>>
>> SERVER:
>>
>> 
>> use strict;
>> use warnings;
>> use IO::Socket::INET
>> use Daemon::Generic;
>> use feature qw/ say switch /;
>> .
>> .
>> .
>> #configuração
>> .
>> .
>> .
>> my $usock = IO::Socket::INET->new (
>> Type => SOCK_STREAM ,
>> LocalAddr => $config_socket->{ SocketBind },
>> LocalPort => $config_socket->{ SocketPort },
>> Proto => 'tcp',
>> Listen => 1,
>> ReuseAddr => 1,
>> ) or die $!;
>>
>>
>>   my $pid = fork;
>>   if(!defined($pid)){
>> say "FATAL! Sem recursos para o fork! Abortando!";
>> exit 0;
>> }
>> elsif($pid == 0){
>> my $newconn = &get_conn();
>> while(1){
>> #uma 'pá' de coisa aqui no child...
>> sleep 60;
>> }
>> exit(1);
>> }
>> else {
>> my $r = undef;
>> while(1){
>> say "I'm working!";
>> if( $r = $usock->accept ){
>> &process_commands($r, \$usock);
>> }
>> else {
>> $logerr->write('error','Problemas com o socket!
>> Abortando!' . $!);
>> exit(0);
>> }
>> sleep 1;
>> }
>> #$usock->close;
>> close $out;
>>
>> waitpid($pid,0);
>> }
>>
>>
>>
>> sub process_commands {
>> my $sh = shift;
>> my $rsock = shift;
>> my $res = 0;
>> while(<$sh>){
>> #tratando o que vem do client
>> my $out = $_ || 'none';
>> $out =~ s/^(\ |\t)+//;
>> my @params = split /\ +/, $out;
>> my ($command,$parameter) = ( $params[0],$params[1] );
>> #separando algumas informações
>> my %client_auth_data = (host => undef,
>> user => undef,
>> password => undef,
>> port => undef,
>> );
>>
>> #Implementar a camada de autenticação aqui.
>>
>> given($command){
>> when( 'stopsafe' ){
>> say 'Executando o stopsafe';
>> if(!&pause_MTAs()){
>>  #enviar mensagem de erro via socket
>> }
>> else {
>>  #enviar mensagem de ok para o socket...
>> }
>>
>> $res = 1;
>> }
>> #mais uma pancada de comandos aqui...
>> default {
>> my $msg = "Comando inválido! '$command $parameter' ";
>> }
>> }
>> }
>> return $res;
>> }
>>
>>
>>
>> 
>>
>>
>> Resumo: Eu tenho um processo que fica executando várias outras coisas, e
>> um outro só para ficar escutando comando vindo do socket do lado do CLIENT!
>> O que eu quero fazer, imagino eu, seria gravar alguma coisa no socket de
>> dentro dessa função 'process_commands'. E de alguma forma ler isso do
>> client.
>>
>>
>>
>> CLIENT
>>
>> 
>> use strict;
>> use warnings;
>> use IO::Socket::INET;
>> .
>> .
>> .
>>
>> my ($bind, $port ) = @_;
>> my $sock = IO:

Re: [SP-pm] II São Paulo Perl Workshop

[Ulisses-IBIZ]

rsrsrs; ack

  From: Stanislaw Pusep 
  To: saopaulo...@mail.pm.org 
  Sent: Tuesday, May 03, 2011 3:44 PM
  Subject: Re: [SP-pm] II São Paulo Perl Workshop


  Infelizmente, tudo o que é de mal-gosto chama muito mais a atenção (grande 
descoberta na arte do séc. 20). E chocar as massas para provocar reflexão na 
minoria pensante freqüentemente funciona :P
  Entretanto, não se preocupem: só freaks acessam o meu blog, e olha lá :D

  ABS()




  2011/5/3 Blabos de Blebe 

Tinha que ser o freak do Stan!!!

Vamos pedir pro Larry dar um bless no Stan até ele soltar a backtrace
pelo confess.


2011/5/3 Eden Cardim :

>> "Ulisses-IBIZ" == Ulisses-IBIZ   writes:
>
>Ulisses-IBIZ> no contexto INTRA-comunidade esse post é engraçado e 
reflete um pouco da verve da moçada;
>Ulisses-IBIZ> porém no contexto EXTRA-comunidade não pega bem (para 
certos olhos) esse lance de freak, alone e 'marginalizado';
>
>Ulisses-IBIZ> qto mais Perl (e seu seguidor) parecer ser uma 
ferramenta(pessoa) normal, pragmática, estável e confiável melhor para a
>Ulisses-IBIZ> comunidade como um todo;
>
>Ulisses-IBIZ> [notem que nao estou aqui como agente da TFP (tradicao 
familia e propriedade) de bordões moralistas; nao se trata disso;
>Ulisses-IBIZ> se trata em colocar um aspecto a ser considerado qdo se 
conecta com o mundo exterior e se busca emprego e oportunidade
>Ulisses-IBIZ> oferecidos por aquele
>Ulisses-IBIZ> contratante 'ignorante' na cultura Perl;
>Ulisses-IBIZ> ]
>
>Ulisses-IBIZ> Perl precisa deixar de ser seita e virar filosofia (alem 
de religiao), ao alcance de todos.
>
> É, eu concordo, e não gostei nem um pouco do post. Inclusive, a
> princípio, achei que era um flame contra o evento, mas vi que tinha o
> banner e decidi reler.
>
> O que precisa ser propagado a respeito de perl, invés do mantra elitista
> legado dos anos 90, é que apesar de também existirem muitos gurus mais
> bem-informados na comunidade, a linguagem é fácil e acessível para
> todos. Inclusive vamos ter uma palestra do André Garcia que é um
> publicitário e empreendendor que montou sozinho um portal de e-commerce
> de livros usados muito bem-sucedido comercialmente tendo na mão apenas
> um livro introdutório de perl, porque 1 - perl é fácil, 2 - já tá quase
> tudo pronto. E pra mim, essa que é "uma criatura digna de ser chamada
> Programador Perl".
>
> --
>   Eden Cardim   Need help with your Catalyst or DBIx::Class project?
>  Code Monkeyhttp://www.shadowcat.co.uk/catalyst/
>  Shadowcat Systems Ltd.  Want a managed development or deployment 
platform?
> http://blog.edencardim.com/http://www.shadowcat.co.uk/servers/
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
=begin disclaimer
  Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer





--


  =begin disclaimer
 Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
   SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
   L
  =end disclaimer
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] Socket - algumas questões:

[Renato Santos]

Abstraindo tudo que tem ai de perl.
Eu lembro que quando mexia com sockts no Delphi, pra mandar uma mensagem
para o cliente, eu precisa saber qual é o cliente.
Então eu tinha uma array (no perl vc pode fazer um hash +D) todos os
clientes, ai depois era só acessar o objeto e chamar um metodo send.

Mas acho que o e-mail do solli abaixo (que chegou enquanto escrevia) tem
beem mais detalhes!

2011/5/3 Stanislaw Pusep 

> Yaih Carneiro!
> Que eu me lembre, accept() precisa retornar 2 sockets: accept(Client,
> Server). Você pode, sim, ler e gravar no socket do client, mas no server
> devem ser separados.
> Um aviso: seu código terá sérios problemas de escalabilidade por causa do
> fork(). E, como vc já deve prever, eu recomendaria o fabuloso AnyEvent :D
> Veja um servidor HTTPD toscão que aguenta 100 conexões simultâneas sem
> apelar p/load descomunal:
>
> https://gist.github.com/781246
>
> ABS()
>
>
>
> 2011/5/3 Andre Carneiro 
>
>> Salve Monges!
>>
>>
>> Estou com uns problemas com Sockets que mesmo fuçando bastante eu não
>> consegui resolver. Os sockets tanto do lado do servidor quanto do lado do
>> cliente estão ok, e isso significa:
>>
>> - O 'socket' do lado do 'client' escreve coisas no socket
>> - O 'socket' do lado do server lê coisas do Socket;
>>
>> Agora eu preciso que o socket do lado do servidor envie os resultados como
>> mensagens de erros e dados, de maneira geral, para o client. O que tá
>> rolando agora:
>>
>>
>> SERVER:
>>
>> 
>> use strict;
>> use warnings;
>> use IO::Socket::INET
>> use Daemon::Generic;
>> use feature qw/ say switch /;
>> .
>> .
>> .
>> #configuração
>> .
>> .
>> .
>> my $usock = IO::Socket::INET->new (
>> Type => SOCK_STREAM ,
>> LocalAddr => $config_socket->{ SocketBind },
>> LocalPort => $config_socket->{ SocketPort },
>> Proto => 'tcp',
>> Listen => 1,
>> ReuseAddr => 1,
>> ) or die $!;
>>
>>
>>   my $pid = fork;
>>   if(!defined($pid)){
>> say "FATAL! Sem recursos para o fork! Abortando!";
>> exit 0;
>> }
>> elsif($pid == 0){
>> my $newconn = &get_conn();
>> while(1){
>> #uma 'pá' de coisa aqui no child...
>> sleep 60;
>> }
>> exit(1);
>> }
>> else {
>> my $r = undef;
>> while(1){
>> say "I'm working!";
>> if( $r = $usock->accept ){
>> &process_commands($r, \$usock);
>> }
>> else {
>> $logerr->write('error','Problemas com o socket!
>> Abortando!' . $!);
>> exit(0);
>> }
>> sleep 1;
>> }
>> #$usock->close;
>> close $out;
>>
>> waitpid($pid,0);
>> }
>>
>>
>>
>> sub process_commands {
>> my $sh = shift;
>> my $rsock = shift;
>> my $res = 0;
>> while(<$sh>){
>> #tratando o que vem do client
>> my $out = $_ || 'none';
>> $out =~ s/^(\ |\t)+//;
>> my @params = split /\ +/, $out;
>> my ($command,$parameter) = ( $params[0],$params[1] );
>> #separando algumas informações
>> my %client_auth_data = (host => undef,
>> user => undef,
>> password => undef,
>> port => undef,
>> );
>>
>> #Implementar a camada de autenticação aqui.
>>
>> given($command){
>> when( 'stopsafe' ){
>> say 'Executando o stopsafe';
>> if(!&pause_MTAs()){
>>  #enviar mensagem de erro via socket
>> }
>> else {
>>  #enviar mensagem de ok para o socket...
>> }
>>
>> $res = 1;
>> }
>> #mais uma pancada de comandos aqui...
>> default {
>> my $msg = "Comando inválido! '$command $parameter' ";
>> }
>> }
>> }
>> return $res;
>> }
>>
>>
>>
>> 
>>
>>
>> Resumo: Eu tenho um processo que fica executando várias outras coisas, e
>> um outro só para ficar escutando comando vindo do socket do lado do CLIENT!
>> O que eu quero fazer, imagino eu, seria gravar alguma coisa no socket de
>> dentro dessa função 'process_commands'. E de alguma forma ler isso do
>> client.
>>
>>
>>
>> CLIENT
>>
>> 
>> use strict;
>> use warnings;
>> use IO::Socket::INET;
>> .
>> .
>> .
>>
>> my ($bind, $port ) = @_;
>> my $sock = IO::Socket::INET->new (
>> PeerAddr => $bind,
>> PeerPort => $port,
>> Proto => 'tcp',
>> Blocking=> 0,
>> ReuseAddr   => 

Re: [SP-pm] Socket - algumas questões:

[Solli Honorio]

Em 3 de maio de 2011 15:59, Solli Honorio  escreveu:

>
>
> 2011/5/3 Andre Carneiro 
>
>> Salve Monges!
>>
>>
>> Estou com uns problemas com Sockets que mesmo fuçando bastante eu não
>> consegui resolver. Os sockets tanto do lado do servidor quanto do lado do
>> cliente estão ok, e isso significa:
>>
>> - O 'socket' do lado do 'client' escreve coisas no socket
>> - O 'socket' do lado do server lê coisas do Socket;
>>
>> Agora eu preciso que o socket do lado do servidor envie os resultados como
>> mensagens de erros e dados, de maneira geral, para o client. O que tá
>> rolando agora:
>>
>>
>> SERVER:
>>
>> 
>> use strict;
>> use warnings;
>> use IO::Socket::INET
>> use Daemon::Generic;
>> use feature qw/ say switch /;
>> .
>> .
>> .
>> #configuração
>> .
>> .
>> .
>> my $usock = IO::Socket::INET->new (
>> Type => SOCK_STREAM ,
>> LocalAddr => $config_socket->{ SocketBind },
>> LocalPort => $config_socket->{ SocketPort },
>> Proto => 'tcp',
>> Listen => 1,
>> ReuseAddr => 1,
>> ) or die $!;
>>
>>
>>   my $pid = fork;
>>   if(!defined($pid)){
>> say "FATAL! Sem recursos para o fork! Abortando!";
>> exit 0;
>> }
>> elsif($pid == 0){
>> my $newconn = &get_conn();
>> while(1){
>> #uma 'pá' de coisa aqui no child...
>> sleep 60;
>> }
>> exit(1);
>> }
>> else {
>> my $r = undef;
>> while(1){
>> say "I'm working!";
>> if( $r = $usock->accept ){
>> &process_commands($r, \$usock);
>> }
>> else {
>> $logerr->write('error','Problemas com o socket!
>> Abortando!' . $!);
>> exit(0);
>> }
>> sleep 1;
>> }
>> #$usock->close;
>> close $out;
>>
>> waitpid($pid,0);
>> }
>>
>>
>>
>> sub process_commands {
>> my $sh = shift;
>> my $rsock = shift;
>> my $res = 0;
>> while(<$sh>){
>> #tratando o que vem do client
>> my $out = $_ || 'none';
>> $out =~ s/^(\ |\t)+//;
>> my @params = split /\ +/, $out;
>> my ($command,$parameter) = ( $params[0],$params[1] );
>> #separando algumas informações
>> my %client_auth_data = (host => undef,
>> user => undef,
>> password => undef,
>> port => undef,
>> );
>>
>> #Implementar a camada de autenticação aqui.
>>
>> given($command){
>> when( 'stopsafe' ){
>> say 'Executando o stopsafe';
>> if(!&pause_MTAs()){
>>  #enviar mensagem de erro via socket
>> }
>> else {
>>  #enviar mensagem de ok para o socket...
>> }
>>
>> $res = 1;
>> }
>> #mais uma pancada de comandos aqui...
>> default {
>> my $msg = "Comando inválido! '$command $parameter' ";
>> }
>> }
>> }
>> return $res;
>> }
>>
>>
>>
>> 
>>
>>
>> Resumo: Eu tenho um processo que fica executando várias outras coisas, e
>> um outro só para ficar escutando comando vindo do socket do lado do CLIENT!
>> O que eu quero fazer, imagino eu, seria gravar alguma coisa no socket de
>> dentro dessa função 'process_commands'. E de alguma forma ler isso do
>> client.
>>
>>
>>
>> CLIENT
>>
>> 
>> use strict;
>> use warnings;
>> use IO::Socket::INET;
>> .
>> .
>> .
>>
>> my ($bind, $port ) = @_;
>> my $sock = IO::Socket::INET->new (
>> PeerAddr => $bind,
>> PeerPort => $port,
>> Proto => 'tcp',
>> Blocking=> 0,
>> ReuseAddr   => 1,
>> ) or die $!;
>>
>> $sock->send('chave1 valor1 chave2 valor2');
>>
>> while(<$sock>){
>> #Teoricamente deveria ter alguma coisa no socket, mas nao rola...
>> }
>>
>> $sock->close();
>>
>>
>> 
>>
>>
>> Perguntas:
>>
>>
>> - Como gravar no socket do lado do server, de modo que isso seja legível
>> do lado do client?
>>
>
> Uma das maneiras é assim :
>
> 
>
> #!/usr/bin/env perl
> use strict;
> use IO::Socket::INET;
>
> my $quit = 0;
>
> $SIG{INT} = sub { $quit++ };
>
> my $listen_socket = IO::Socket::INET->new(LocalPort => 2121,
> Listen=> 2,
> Proto => 'tcp',
> Reuse => 1,) or die "$!";
>
> while ( !$quit ) {
>   next unless my $connection = $listen_socket->accept;
>
>

Re: [SP-pm] Socket - algumas questões:

[Solli Honorio]

2011/5/3 Andre Carneiro 

> Salve Monges!
>
>
> Estou com uns problemas com Sockets que mesmo fuçando bastante eu não
> consegui resolver. Os sockets tanto do lado do servidor quanto do lado do
> cliente estão ok, e isso significa:
>
> - O 'socket' do lado do 'client' escreve coisas no socket
> - O 'socket' do lado do server lê coisas do Socket;
>
> Agora eu preciso que o socket do lado do servidor envie os resultados como
> mensagens de erros e dados, de maneira geral, para o client. O que tá
> rolando agora:
>
>
> SERVER:
>
> 
> use strict;
> use warnings;
> use IO::Socket::INET
> use Daemon::Generic;
> use feature qw/ say switch /;
> .
> .
> .
> #configuração
> .
> .
> .
> my $usock = IO::Socket::INET->new (
> Type => SOCK_STREAM ,
> LocalAddr => $config_socket->{ SocketBind },
> LocalPort => $config_socket->{ SocketPort },
> Proto => 'tcp',
> Listen => 1,
> ReuseAddr => 1,
> ) or die $!;
>
>
>   my $pid = fork;
>   if(!defined($pid)){
> say "FATAL! Sem recursos para o fork! Abortando!";
> exit 0;
> }
> elsif($pid == 0){
> my $newconn = &get_conn();
> while(1){
> #uma 'pá' de coisa aqui no child...
> sleep 60;
> }
> exit(1);
> }
> else {
> my $r = undef;
> while(1){
> say "I'm working!";
> if( $r = $usock->accept ){
> &process_commands($r, \$usock);
> }
> else {
> $logerr->write('error','Problemas com o socket! Abortando!'
> . $!);
> exit(0);
> }
> sleep 1;
> }
> #$usock->close;
> close $out;
>
> waitpid($pid,0);
> }
>
>
>
> sub process_commands {
> my $sh = shift;
> my $rsock = shift;
> my $res = 0;
> while(<$sh>){
> #tratando o que vem do client
> my $out = $_ || 'none';
> $out =~ s/^(\ |\t)+//;
> my @params = split /\ +/, $out;
> my ($command,$parameter) = ( $params[0],$params[1] );
> #separando algumas informações
> my %client_auth_data = (host => undef,
> user => undef,
> password => undef,
> port => undef,
> );
>
> #Implementar a camada de autenticação aqui.
>
> given($command){
> when( 'stopsafe' ){
> say 'Executando o stopsafe';
> if(!&pause_MTAs()){
>  #enviar mensagem de erro via socket
> }
> else {
>  #enviar mensagem de ok para o socket...
> }
>
> $res = 1;
> }
> #mais uma pancada de comandos aqui...
> default {
> my $msg = "Comando inválido! '$command $parameter' ";
> }
> }
> }
> return $res;
> }
>
>
>
> 
>
>
> Resumo: Eu tenho um processo que fica executando várias outras coisas, e um
> outro só para ficar escutando comando vindo do socket do lado do CLIENT! O
> que eu quero fazer, imagino eu, seria gravar alguma coisa no socket de
> dentro dessa função 'process_commands'. E de alguma forma ler isso do
> client.
>
>
>
> CLIENT
>
> 
> use strict;
> use warnings;
> use IO::Socket::INET;
> .
> .
> .
>
> my ($bind, $port ) = @_;
> my $sock = IO::Socket::INET->new (
> PeerAddr => $bind,
> PeerPort => $port,
> Proto => 'tcp',
> Blocking=> 0,
> ReuseAddr   => 1,
> ) or die $!;
>
> $sock->send('chave1 valor1 chave2 valor2');
>
> while(<$sock>){
> #Teoricamente deveria ter alguma coisa no socket, mas nao rola...
> }
>
> $sock->close();
>
>
> 
>
>
> Perguntas:
>
>
> - Como gravar no socket do lado do server, de modo que isso seja legível do
> lado do client?
>

Uma das maneiras é assim :



#!/usr/bin/env perl
use strict;
use IO::Socket::INET;

my $quit = 0;

$SIG{INT} = sub { $quit++ };

my $listen_socket = IO::Socket::INET->new(LocalPort => 2121,
Listen=> 2,
Proto => 'tcp',
Reuse => 1,) or die "$!";

while ( !$quit ) {
  next unless my $connection = $listen_socket->accept;

  defined ( my $child = fork() ) or die "Can't fork: $!";

  if ( $child == 0 ) {
$listen_socket->close;
do_something($connection);
exit 0;
  }

  $connection->close;

}

sub do_something {
  my $socket = shift;

  $socket->autoflush(1);
  $socket->

Re: [SP-pm] Socket - algumas questões:

[Stanislaw Pusep]

Yaih Carneiro!
Que eu me lembre, accept() precisa retornar 2 sockets: accept(Client,
Server). Você pode, sim, ler e gravar no socket do client, mas no server
devem ser separados.
Um aviso: seu código terá sérios problemas de escalabilidade por causa do
fork(). E, como vc já deve prever, eu recomendaria o fabuloso AnyEvent :D
Veja um servidor HTTPD toscão que aguenta 100 conexões simultâneas sem
apelar p/load descomunal:

https://gist.github.com/781246

ABS()



2011/5/3 Andre Carneiro 

> Salve Monges!
>
>
> Estou com uns problemas com Sockets que mesmo fuçando bastante eu não
> consegui resolver. Os sockets tanto do lado do servidor quanto do lado do
> cliente estão ok, e isso significa:
>
> - O 'socket' do lado do 'client' escreve coisas no socket
> - O 'socket' do lado do server lê coisas do Socket;
>
> Agora eu preciso que o socket do lado do servidor envie os resultados como
> mensagens de erros e dados, de maneira geral, para o client. O que tá
> rolando agora:
>
>
> SERVER:
>
> 
> use strict;
> use warnings;
> use IO::Socket::INET
> use Daemon::Generic;
> use feature qw/ say switch /;
> .
> .
> .
> #configuração
> .
> .
> .
> my $usock = IO::Socket::INET->new (
> Type => SOCK_STREAM ,
> LocalAddr => $config_socket->{ SocketBind },
> LocalPort => $config_socket->{ SocketPort },
> Proto => 'tcp',
> Listen => 1,
> ReuseAddr => 1,
> ) or die $!;
>
>
>   my $pid = fork;
>   if(!defined($pid)){
> say "FATAL! Sem recursos para o fork! Abortando!";
> exit 0;
> }
> elsif($pid == 0){
> my $newconn = &get_conn();
> while(1){
> #uma 'pá' de coisa aqui no child...
> sleep 60;
> }
> exit(1);
> }
> else {
> my $r = undef;
> while(1){
> say "I'm working!";
> if( $r = $usock->accept ){
> &process_commands($r, \$usock);
> }
> else {
> $logerr->write('error','Problemas com o socket! Abortando!'
> . $!);
> exit(0);
> }
> sleep 1;
> }
> #$usock->close;
> close $out;
>
> waitpid($pid,0);
> }
>
>
>
> sub process_commands {
> my $sh = shift;
> my $rsock = shift;
> my $res = 0;
> while(<$sh>){
> #tratando o que vem do client
> my $out = $_ || 'none';
> $out =~ s/^(\ |\t)+//;
> my @params = split /\ +/, $out;
> my ($command,$parameter) = ( $params[0],$params[1] );
> #separando algumas informações
> my %client_auth_data = (host => undef,
> user => undef,
> password => undef,
> port => undef,
> );
>
> #Implementar a camada de autenticação aqui.
>
> given($command){
> when( 'stopsafe' ){
> say 'Executando o stopsafe';
> if(!&pause_MTAs()){
>  #enviar mensagem de erro via socket
> }
> else {
>  #enviar mensagem de ok para o socket...
> }
>
> $res = 1;
> }
> #mais uma pancada de comandos aqui...
> default {
> my $msg = "Comando inválido! '$command $parameter' ";
> }
> }
> }
> return $res;
> }
>
>
>
> 
>
>
> Resumo: Eu tenho um processo que fica executando várias outras coisas, e um
> outro só para ficar escutando comando vindo do socket do lado do CLIENT! O
> que eu quero fazer, imagino eu, seria gravar alguma coisa no socket de
> dentro dessa função 'process_commands'. E de alguma forma ler isso do
> client.
>
>
>
> CLIENT
>
> 
> use strict;
> use warnings;
> use IO::Socket::INET;
> .
> .
> .
>
> my ($bind, $port ) = @_;
> my $sock = IO::Socket::INET->new (
> PeerAddr => $bind,
> PeerPort => $port,
> Proto => 'tcp',
> Blocking=> 0,
> ReuseAddr   => 1,
> ) or die $!;
>
> $sock->send('chave1 valor1 chave2 valor2');
>
> while(<$sock>){
> #Teoricamente deveria ter alguma coisa no socket, mas nao rola...
> }
>
> $sock->close();
>
>
> 
>
>
> Perguntas:
>
>
> - Como gravar no socket do lado do server, de modo que isso seja legível do
> lado do client?
> - Preciso de protocolo específico para fazer isso ?
> - Eu vi algumas pessoas usando udp ao invés de tcp alegando aumento de
> performance, mas abrindo mão de vários quesitos de segurança dentre outros
> problemas. Confirma?
>
>
>
>
>
>
>
> Cheers!

Re: [SP-pm] II São Paulo Perl Workshop

[Renato Santos]

Marcio daqui a 35 anos:
http://bossip.files.wordpress.com/2010/04/freaks2-e1272200132306.jpg?w=450&h=379
(Safe
For work, but disgusting)

2011/5/3 Blabos de Blebe 

> > Entretanto, não se preocupem: só freaks acessam o meu blog, e olha lá :D
>
> Márcio, vc foi descoberto :)
>
> 2011/5/3 Stanislaw Pusep :
> > Infelizmente, tudo o que é de mal-gosto chama muito mais a atenção
> (grande
> > descoberta na arte do séc. 20). E chocar as massas para provocar reflexão
> na
> > minoria pensante freqüentemente funciona :P
> > Entretanto, não se preocupem: só freaks acessam o meu blog, e olha lá :D
> >
> > ABS()
> >
> >
> >
> > 2011/5/3 Blabos de Blebe 
> >>
> >> Tinha que ser o freak do Stan!!!
> >>
> >> Vamos pedir pro Larry dar um bless no Stan até ele soltar a backtrace
> >> pelo confess.
> >>
> >>
> >> 2011/5/3 Eden Cardim :
> >> >> "Ulisses-IBIZ" == Ulisses-IBIZ   writes:
> >> >
> >> >Ulisses-IBIZ> no contexto INTRA-comunidade esse post é engraçado e
> >> > reflete um pouco da verve da moçada;
> >> >Ulisses-IBIZ> porém no contexto EXTRA-comunidade não pega bem (para
> >> > certos olhos) esse lance de freak, alone e 'marginalizado';
> >> >
> >> >Ulisses-IBIZ> qto mais Perl (e seu seguidor) parecer ser uma
> >> > ferramenta(pessoa) normal, pragmática, estável e confiável melhor para
> a
> >> >Ulisses-IBIZ> comunidade como um todo;
> >> >
> >> >Ulisses-IBIZ> [notem que nao estou aqui como agente da TFP
> (tradicao
> >> > familia e propriedade) de bordões moralistas; nao se trata disso;
> >> >Ulisses-IBIZ> se trata em colocar um aspecto a ser considerado qdo
> se
> >> > conecta com o mundo exterior e se busca emprego e oportunidade
> >> >Ulisses-IBIZ> oferecidos por aquele
> >> >Ulisses-IBIZ> contratante 'ignorante' na cultura Perl;
> >> >Ulisses-IBIZ> ]
> >> >
> >> >Ulisses-IBIZ> Perl precisa deixar de ser seita e virar filosofia
> >> > (alem de religiao), ao alcance de todos.
> >> >
> >> > É, eu concordo, e não gostei nem um pouco do post. Inclusive, a
> >> > princípio, achei que era um flame contra o evento, mas vi que tinha o
> >> > banner e decidi reler.
> >> >
> >> > O que precisa ser propagado a respeito de perl, invés do mantra
> elitista
> >> > legado dos anos 90, é que apesar de também existirem muitos gurus mais
> >> > bem-informados na comunidade, a linguagem é fácil e acessível para
> >> > todos. Inclusive vamos ter uma palestra do André Garcia que é um
> >> > publicitário e empreendendor que montou sozinho um portal de
> e-commerce
> >> > de livros usados muito bem-sucedido comercialmente tendo na mão apenas
> >> > um livro introdutório de perl, porque 1 - perl é fácil, 2 - já tá
> quase
> >> > tudo pronto. E pra mim, essa que é "uma criatura digna de ser chamada
> >> > Programador Perl".
> >> >
> >> > --
> >> >   Eden Cardim   Need help with your Catalyst or DBIx::Class
> project?
> >> >  Code Monkeyhttp://www.shadowcat.co.uk/catalyst/
> >> >  Shadowcat Systems Ltd.  Want a managed development or deployment
> >> > platform?
> >> > http://blog.edencardim.com/
> >> >  http://www.shadowcat.co.uk/servers/
> >> > =begin disclaimer
> >> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >> >  L
> >> > =end disclaimer
> >> >
> >> =begin disclaimer
> >>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >>  L
> >> =end disclaimer
> >
> >
> > =begin disclaimer
> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >  L
> > =end disclaimer
> >
> >
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>



-- 
Renato Santos
http://www.renatocron.com/blog/
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Blabos de Blebe]

> Entretanto, não se preocupem: só freaks acessam o meu blog, e olha lá :D

Márcio, vc foi descoberto :)

2011/5/3 Stanislaw Pusep :
> Infelizmente, tudo o que é de mal-gosto chama muito mais a atenção (grande
> descoberta na arte do séc. 20). E chocar as massas para provocar reflexão na
> minoria pensante freqüentemente funciona :P
> Entretanto, não se preocupem: só freaks acessam o meu blog, e olha lá :D
>
> ABS()
>
>
>
> 2011/5/3 Blabos de Blebe 
>>
>> Tinha que ser o freak do Stan!!!
>>
>> Vamos pedir pro Larry dar um bless no Stan até ele soltar a backtrace
>> pelo confess.
>>
>>
>> 2011/5/3 Eden Cardim :
>> >> "Ulisses-IBIZ" == Ulisses-IBIZ   writes:
>> >
>> >    Ulisses-IBIZ> no contexto INTRA-comunidade esse post é engraçado e
>> > reflete um pouco da verve da moçada;
>> >    Ulisses-IBIZ> porém no contexto EXTRA-comunidade não pega bem (para
>> > certos olhos) esse lance de freak, alone e 'marginalizado';
>> >
>> >    Ulisses-IBIZ> qto mais Perl (e seu seguidor) parecer ser uma
>> > ferramenta(pessoa) normal, pragmática, estável e confiável melhor para a
>> >    Ulisses-IBIZ> comunidade como um todo;
>> >
>> >    Ulisses-IBIZ> [notem que nao estou aqui como agente da TFP (tradicao
>> > familia e propriedade) de bordões moralistas; nao se trata disso;
>> >    Ulisses-IBIZ> se trata em colocar um aspecto a ser considerado qdo se
>> > conecta com o mundo exterior e se busca emprego e oportunidade
>> >    Ulisses-IBIZ> oferecidos por aquele
>> >    Ulisses-IBIZ> contratante 'ignorante' na cultura Perl;
>> >    Ulisses-IBIZ> ]
>> >
>> >    Ulisses-IBIZ> Perl precisa deixar de ser seita e virar filosofia
>> > (alem de religiao), ao alcance de todos.
>> >
>> > É, eu concordo, e não gostei nem um pouco do post. Inclusive, a
>> > princípio, achei que era um flame contra o evento, mas vi que tinha o
>> > banner e decidi reler.
>> >
>> > O que precisa ser propagado a respeito de perl, invés do mantra elitista
>> > legado dos anos 90, é que apesar de também existirem muitos gurus mais
>> > bem-informados na comunidade, a linguagem é fácil e acessível para
>> > todos. Inclusive vamos ter uma palestra do André Garcia que é um
>> > publicitário e empreendendor que montou sozinho um portal de e-commerce
>> > de livros usados muito bem-sucedido comercialmente tendo na mão apenas
>> > um livro introdutório de perl, porque 1 - perl é fácil, 2 - já tá quase
>> > tudo pronto. E pra mim, essa que é "uma criatura digna de ser chamada
>> > Programador Perl".
>> >
>> > --
>> >   Eden Cardim       Need help with your Catalyst or DBIx::Class project?
>> >  Code Monkey                    http://www.shadowcat.co.uk/catalyst/
>> >  Shadowcat Systems Ltd.  Want a managed development or deployment
>> > platform?
>> > http://blog.edencardim.com/
>> >  http://www.shadowcat.co.uk/servers/
>> > =begin disclaimer
>> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>> >  L
>> > =end disclaimer
>> >
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Stanislaw Pusep]

Infelizmente, tudo o que é de mal-gosto chama muito mais a atenção (grande
descoberta na arte do séc. 20). E chocar as massas para provocar reflexão na
minoria pensante freqüentemente funciona :P
Entretanto, não se preocupem: só freaks acessam o meu blog, e olha lá :D

ABS()



2011/5/3 Blabos de Blebe 

> Tinha que ser o freak do Stan!!!
>
> Vamos pedir pro Larry dar um bless no Stan até ele soltar a backtrace
> pelo confess.
>
>
> 2011/5/3 Eden Cardim :
> >> "Ulisses-IBIZ" == Ulisses-IBIZ   writes:
> >
> >Ulisses-IBIZ> no contexto INTRA-comunidade esse post é engraçado e
> reflete um pouco da verve da moçada;
> >Ulisses-IBIZ> porém no contexto EXTRA-comunidade não pega bem (para
> certos olhos) esse lance de freak, alone e 'marginalizado';
> >
> >Ulisses-IBIZ> qto mais Perl (e seu seguidor) parecer ser uma
> ferramenta(pessoa) normal, pragmática, estável e confiável melhor para a
> >Ulisses-IBIZ> comunidade como um todo;
> >
> >Ulisses-IBIZ> [notem que nao estou aqui como agente da TFP (tradicao
> familia e propriedade) de bordões moralistas; nao se trata disso;
> >Ulisses-IBIZ> se trata em colocar um aspecto a ser considerado qdo se
> conecta com o mundo exterior e se busca emprego e oportunidade
> >Ulisses-IBIZ> oferecidos por aquele
> >Ulisses-IBIZ> contratante 'ignorante' na cultura Perl;
> >Ulisses-IBIZ> ]
> >
> >Ulisses-IBIZ> Perl precisa deixar de ser seita e virar filosofia (alem
> de religiao), ao alcance de todos.
> >
> > É, eu concordo, e não gostei nem um pouco do post. Inclusive, a
> > princípio, achei que era um flame contra o evento, mas vi que tinha o
> > banner e decidi reler.
> >
> > O que precisa ser propagado a respeito de perl, invés do mantra elitista
> > legado dos anos 90, é que apesar de também existirem muitos gurus mais
> > bem-informados na comunidade, a linguagem é fácil e acessível para
> > todos. Inclusive vamos ter uma palestra do André Garcia que é um
> > publicitário e empreendendor que montou sozinho um portal de e-commerce
> > de livros usados muito bem-sucedido comercialmente tendo na mão apenas
> > um livro introdutório de perl, porque 1 - perl é fácil, 2 - já tá quase
> > tudo pronto. E pra mim, essa que é "uma criatura digna de ser chamada
> > Programador Perl".
> >
> > --
> >   Eden Cardim   Need help with your Catalyst or DBIx::Class project?
> >  Code Monkeyhttp://www.shadowcat.co.uk/catalyst/
> >  Shadowcat Systems Ltd.  Want a managed development or deployment
> platform?
> > http://blog.edencardim.com/
> http://www.shadowcat.co.uk/servers/
> > =begin disclaimer
> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >  L
> > =end disclaimer
> >
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] [OFF TOPIC] WTF??

[Tiago Peczenyj]

mais divertido ainda é passar o codigo pelo perl::critic

2011/5/3 Nilson Santos Figueiredo Jr. :
> 2011/5/3 Marcio Ferreira :
>> 
>> O terra é uma empresa moderna, em breve o código estará no github
>>
>> 
>
> É perdoável, vai. Isso é da época que o Terra ainda se chamava Zaz.
> Nessa época, formmail.pl era o defacto standard pra enviar emails hehe.
>
> -Nilson
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>



-- 
Tiago B. Peczenyj
Linux User #405772

http://pacman.blog.br
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] [OFF TOPIC] WTF??

[Nilson Santos Figueiredo Jr.]

2011/5/3 Marcio Ferreira :
> 
> O terra é uma empresa moderna, em breve o código estará no github
>
> 

É perdoável, vai. Isso é da época que o Terra ainda se chamava Zaz.
Nessa época, formmail.pl era o defacto standard pra enviar emails hehe.

-Nilson
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Blabos de Blebe]

Tinha que ser o freak do Stan!!!

Vamos pedir pro Larry dar um bless no Stan até ele soltar a backtrace
pelo confess.


2011/5/3 Eden Cardim :
>> "Ulisses-IBIZ" == Ulisses-IBIZ   writes:
>
>    Ulisses-IBIZ> no contexto INTRA-comunidade esse post é engraçado e reflete 
> um pouco da verve da moçada;
>    Ulisses-IBIZ> porém no contexto EXTRA-comunidade não pega bem (para certos 
> olhos) esse lance de freak, alone e 'marginalizado';
>
>    Ulisses-IBIZ> qto mais Perl (e seu seguidor) parecer ser uma 
> ferramenta(pessoa) normal, pragmática, estável e confiável melhor para a
>    Ulisses-IBIZ> comunidade como um todo;
>
>    Ulisses-IBIZ> [notem que nao estou aqui como agente da TFP (tradicao 
> familia e propriedade) de bordões moralistas; nao se trata disso;
>    Ulisses-IBIZ> se trata em colocar um aspecto a ser considerado qdo se 
> conecta com o mundo exterior e se busca emprego e oportunidade
>    Ulisses-IBIZ> oferecidos por aquele
>    Ulisses-IBIZ> contratante 'ignorante' na cultura Perl;
>    Ulisses-IBIZ> ]
>
>    Ulisses-IBIZ> Perl precisa deixar de ser seita e virar filosofia (alem de 
> religiao), ao alcance de todos.
>
> É, eu concordo, e não gostei nem um pouco do post. Inclusive, a
> princípio, achei que era um flame contra o evento, mas vi que tinha o
> banner e decidi reler.
>
> O que precisa ser propagado a respeito de perl, invés do mantra elitista
> legado dos anos 90, é que apesar de também existirem muitos gurus mais
> bem-informados na comunidade, a linguagem é fácil e acessível para
> todos. Inclusive vamos ter uma palestra do André Garcia que é um
> publicitário e empreendendor que montou sozinho um portal de e-commerce
> de livros usados muito bem-sucedido comercialmente tendo na mão apenas
> um livro introdutório de perl, porque 1 - perl é fácil, 2 - já tá quase
> tudo pronto. E pra mim, essa que é "uma criatura digna de ser chamada
> Programador Perl".
>
> --
>   Eden Cardim       Need help with your Catalyst or DBIx::Class project?
>  Code Monkey                    http://www.shadowcat.co.uk/catalyst/
>  Shadowcat Systems Ltd.  Want a managed development or deployment platform?
> http://blog.edencardim.com/            http://www.shadowcat.co.uk/servers/
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] [OFF TOPIC] WTF??

[Blabos de Blebe]

E eu achando que aqui é que era zuado...

2011/5/3 Gabriel Vieira :
> Renato++
>
> 2011/5/3 Renato Santos 
>>
>> site:*.gov.br filetype:sql" no Google é open data minha gente!
>> 2011/5/3 Stanislaw Pusep 
>>>
>>> $value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
>>> CPAN pra quê, né?
>>> Fraqueza intelectual quase tão revigorante quanto procurar por
>>> "site:*.gov.br filetype:sql" no Google :P
>>>
>>> ABS()
>>>
>>>
>>>
>>> 2011/5/3 Blabos de Blebe 

 Pessoal,

 Eu desconfiei que um comentátio em inglês num código que estou
 analisando fosse "demais" para o nível geral. Então googlei por:

 "Go through the pairs and determine the name"

 Como primeiro resultado encontrei a origem do meu comentário.
 Entretanto achei mais que isso...

 http://www.terra.com.br/esoterico/astrologia/afinidades.pl

 WTF???
 =begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
  L
 =end disclaimer
>>>
>>>
>>> =begin disclaimer
>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>>  L
>>> =end disclaimer
>>>
>>
>>
>>
>> --
>> Renato Santos
>> http://www.renatocron.com/blog/
>>
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>
>
>
> --
> Gabriel Vieira
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] [OFF TOPIC] WTF??

[Gabriel Vieira]

Renato++

2011/5/3 Renato Santos 

> site:*.gov.br filetype:sql" no Google é open data minha gente!
>
> 2011/5/3 Stanislaw Pusep 
>
>> $value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
>>
>> CPAN pra quê, né?
>> Fraqueza intelectual quase tão revigorante quanto procurar por "site:*.
>> gov.br filetype:sql" no Google :P
>>
>> ABS()
>>
>>
>>
>>
>> 2011/5/3 Blabos de Blebe 
>>
>>> Pessoal,
>>>
>>> Eu desconfiei que um comentátio em inglês num código que estou
>>> analisando fosse "demais" para o nível geral. Então googlei por:
>>>
>>> "Go through the pairs and determine the name"
>>>
>>> Como primeiro resultado encontrei a origem do meu comentário.
>>> Entretanto achei mais que isso...
>>>
>>> http://www.terra.com.br/esoterico/astrologia/afinidades.pl
>>>
>>> WTF???
>>> =begin disclaimer
>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>>  L
>>> =end disclaimer
>>>
>>
>>
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>>
>
>
> --
> Renato Santos
> http://www.renatocron.com/blog/
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>


-- 
Gabriel Vieira
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Eden Cardim]

> "Ulisses-IBIZ" == Ulisses-IBIZ   writes:

Ulisses-IBIZ> no contexto INTRA-comunidade esse post é engraçado e reflete 
um pouco da verve da moçada;
Ulisses-IBIZ> porém no contexto EXTRA-comunidade não pega bem (para certos 
olhos) esse lance de freak, alone e 'marginalizado';
 
Ulisses-IBIZ> qto mais Perl (e seu seguidor) parecer ser uma 
ferramenta(pessoa) normal, pragmática, estável e confiável melhor para a
Ulisses-IBIZ> comunidade como um todo;
 
Ulisses-IBIZ> [notem que nao estou aqui como agente da TFP (tradicao 
familia e propriedade) de bordões moralistas; nao se trata disso;
Ulisses-IBIZ> se trata em colocar um aspecto a ser considerado qdo se 
conecta com o mundo exterior e se busca emprego e oportunidade
Ulisses-IBIZ> oferecidos por aquele
Ulisses-IBIZ> contratante 'ignorante' na cultura Perl;
Ulisses-IBIZ> ]
 
Ulisses-IBIZ> Perl precisa deixar de ser seita e virar filosofia (alem de 
religiao), ao alcance de todos.

É, eu concordo, e não gostei nem um pouco do post. Inclusive, a
princípio, achei que era um flame contra o evento, mas vi que tinha o
banner e decidi reler.

O que precisa ser propagado a respeito de perl, invés do mantra elitista
legado dos anos 90, é que apesar de também existirem muitos gurus mais
bem-informados na comunidade, a linguagem é fácil e acessível para
todos. Inclusive vamos ter uma palestra do André Garcia que é um
publicitário e empreendendor que montou sozinho um portal de e-commerce
de livros usados muito bem-sucedido comercialmente tendo na mão apenas
um livro introdutório de perl, porque 1 - perl é fácil, 2 - já tá quase
tudo pronto. E pra mim, essa que é "uma criatura digna de ser chamada
Programador Perl".

-- 
   Eden Cardim   Need help with your Catalyst or DBIx::Class project?
  Code Monkeyhttp://www.shadowcat.co.uk/catalyst/
 Shadowcat Systems Ltd.  Want a managed development or deployment platform?
http://blog.edencardim.com/http://www.shadowcat.co.uk/servers/
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] [OFF TOPIC] WTF??

[Renato Santos]

site:*.gov.br filetype:sql" no Google é open data minha gente!

2011/5/3 Stanislaw Pusep 

> $value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
>
> CPAN pra quê, né?
> Fraqueza intelectual quase tão revigorante quanto procurar por "site:*.
> gov.br filetype:sql" no Google :P
>
> ABS()
>
>
>
>
> 2011/5/3 Blabos de Blebe 
>
>> Pessoal,
>>
>> Eu desconfiei que um comentátio em inglês num código que estou
>> analisando fosse "demais" para o nível geral. Então googlei por:
>>
>> "Go through the pairs and determine the name"
>>
>> Como primeiro resultado encontrei a origem do meu comentário.
>> Entretanto achei mais que isso...
>>
>> http://www.terra.com.br/esoterico/astrologia/afinidades.pl
>>
>> WTF???
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>


-- 
Renato Santos
http://www.renatocron.com/blog/
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Ulisses-IBIZ]

para evitar-se erros semanticos:

leia-se 

Perl precisa deixar de ser seita e virar filosofia (alem DA religiao), ao 
alcance de todos.

[explicacao = Filosofia tem o Discernimento como aliado; Religiao nem sempre]

  From: Ulisses-IBIZ 
  To: saopaulo...@mail.pm.org 
  Sent: Tuesday, May 03, 2011 1:16 PM
  Subject: Re: [SP-pm] II São Paulo Perl Workshop


  no contexto INTRA-comunidade esse post é engraçado e reflete um pouco da 
verve da moçada;

  porém no contexto EXTRA-comunidade não pega bem (para certos olhos) esse 
lance de freak, alone e 'marginalizado';

  qto mais Perl (e seu seguidor) parecer ser uma ferramenta(pessoa) normal, 
pragmática, estável e confiável melhor para a comunidade como um todo;

  [notem que nao estou aqui como agente da TFP (tradicao familia e propriedade) 
de bordões moralistas; nao se trata disso;
  se trata em colocar um aspecto a ser considerado qdo se conecta com o mundo 
exterior e se busca emprego e oportunidade oferecidos por aquele
  contratante 'ignorante' na cultura Perl;
  ]

  Perl precisa deixar de ser seita e virar filosofia (alem de religiao), ao 
alcance de todos.

From: Marcio Ferreira 
To: saopaulo...@mail.pm.org 
Sent: Tuesday, May 03, 2011 10:51 AM
Subject: Re: [SP-pm] II São Paulo Perl Workshop


Melhor post até o momento  
http://sysd.org/ii-sao-paulo-perl-workshop/

[]s,


@_marcioferreira
Marcio Ferreira
marciodesouzaferreira.blogspot.com


"Perl lives as the 'toolbox for Unix' "




Em 3 de maio de 2011 10:39, Giuliani Sanches  
escreveu:

  O quality na rouxinol 57 ? É perto do evento ? (/me procurando pontos
  de referência pra não se perder :P )

  Em 2 de maio de 2011 20:54, Tiago Peczenyj  
escreveu:

  > tem um hotel na frente, o Quality, muito bom.
  >
  > 2011/5/2 Joner Cyrre Worm :
  >> Eu vou!
  >>
  >> Já twittei: http://twitter.com/jonerworm
  >>
  >> Já identi.quei: http://identi.ca/worm
  >>
  >> Já botei banner e postei notítica: http://www.worm.sh
  >>
  >> Alguém sabe de alguma "espelunca familiar" na redondeza do envento ou
  >> aeroporto Congonhas? (no sentido de família ;-)
  >>
  >> Worm
  >>
  >> 2011/5/2 Oscar Marques :
  >>> Eu gostaria de ir mas nao vou poder participar por causa do dia das 
maes
  >>> Fica pra proxima!
  >>> Valeu!
  >>>
  >>> Em 2 de maio de 2011 14:01, Thiago Rondon  
escreveu:
  
   Olá Pessoal,
  
   O nosso evento esta perto, é sábado agora e gostaria de pedir a 
ajuda de
   vocês, nesta última semana, para ajudar a divulgar o nosso evento 
mais
   ainda, vamos dar uma força nesta divulgação!
  
   http://www.perlworkshop.com.br/
  
   Divulguem no twitter, em listas de discussão, empresas, 
universidades e
   etc.
  
   Valeu pessoal!
   -Thiago Rondon
  
   =begin disclaimer
    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
   SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
   L
   =end disclaimer
  >>>
  >>>
  >>>
  >>> --
  >>> Oscar Marques
  >>> osca...@gmail.com
  >>> http://www.dunkelheit.com.br
  >>> Twitter: @f117usbr
  >>> +55 21 9293-9343
  >>>
  >>> 
  >>> Participe do I Hack'n Rio
  >>> 
  >>>
  >>>
  >>> =begin disclaimer
  >>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
  >>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
  >>>  L
  >>> =end disclaimer
  >>>
  >>>
  >>
  >>
  >>
  >> --
  >> Joner Cyrre Worm
  >> counter.li.org #290.476
  >> gnugp id: 0xEA0A5FB2
  >> http://www.worm.sh
  >> =begin disclaimer
  >>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
  >>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
  >>  L
  >> =end disclaimer
  >>
  >
  >
  >
  > --
  > Tiago B. Peczenyj
  > Linux User #405772
  >
  > http://pacman.blog.br
  > =begin disclaimer
  >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
  >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
  >  L
  > =end disclaimer
  >




  --
  Giuliani Sanches
  twitter.com/giulianisanches
  giulianisanches.blogspot.com

  Como elaborar uma pergunta:
  http://www.istf.com.br/perguntas/

  =begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
   SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
   L
  =end disclaimer





-

Re: [SP-pm] II São Paulo Perl Workshop

[Ulisses-IBIZ]

no contexto INTRA-comunidade esse post é engraçado e reflete um pouco da verve 
da moçada;

porém no contexto EXTRA-comunidade não pega bem (para certos olhos) esse lance 
de freak, alone e 'marginalizado';

qto mais Perl (e seu seguidor) parecer ser uma ferramenta(pessoa) normal, 
pragmática, estável e confiável melhor para a comunidade como um todo;

[notem que nao estou aqui como agente da TFP (tradicao familia e propriedade) 
de bordões moralistas; nao se trata disso;
se trata em colocar um aspecto a ser considerado qdo se conecta com o mundo 
exterior e se busca emprego e oportunidade oferecidos por aquele
contratante 'ignorante' na cultura Perl;
]

Perl precisa deixar de ser seita e virar filosofia (alem de religiao), ao 
alcance de todos.

  From: Marcio Ferreira 
  To: saopaulo...@mail.pm.org 
  Sent: Tuesday, May 03, 2011 10:51 AM
  Subject: Re: [SP-pm] II São Paulo Perl Workshop


  Melhor post até o momento 
  http://sysd.org/ii-sao-paulo-perl-workshop/

  []s,


  @_marcioferreira
  Marcio Ferreira
  marciodesouzaferreira.blogspot.com


  "Perl lives as the 'toolbox for Unix' "




  Em 3 de maio de 2011 10:39, Giuliani Sanches  
escreveu:

O quality na rouxinol 57 ? É perto do evento ? (/me procurando pontos
de referência pra não se perder :P )

Em 2 de maio de 2011 20:54, Tiago Peczenyj  
escreveu:

> tem um hotel na frente, o Quality, muito bom.
>
> 2011/5/2 Joner Cyrre Worm :
>> Eu vou!
>>
>> Já twittei: http://twitter.com/jonerworm
>>
>> Já identi.quei: http://identi.ca/worm
>>
>> Já botei banner e postei notítica: http://www.worm.sh
>>
>> Alguém sabe de alguma "espelunca familiar" na redondeza do envento ou
>> aeroporto Congonhas? (no sentido de família ;-)
>>
>> Worm
>>
>> 2011/5/2 Oscar Marques :
>>> Eu gostaria de ir mas nao vou poder participar por causa do dia das maes
>>> Fica pra proxima!
>>> Valeu!
>>>
>>> Em 2 de maio de 2011 14:01, Thiago Rondon  
escreveu:

 Olá Pessoal,

 O nosso evento esta perto, é sábado agora e gostaria de pedir a ajuda 
de
 vocês, nesta última semana, para ajudar a divulgar o nosso evento mais
 ainda, vamos dar uma força nesta divulgação!

 http://www.perlworkshop.com.br/

 Divulguem no twitter, em listas de discussão, empresas, universidades e
 etc.

 Valeu pessoal!
 -Thiago Rondon

 =begin disclaimer
  Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
 =end disclaimer
>>>
>>>
>>>
>>> --
>>> Oscar Marques
>>> osca...@gmail.com
>>> http://www.dunkelheit.com.br
>>> Twitter: @f117usbr
>>> +55 21 9293-9343
>>>
>>> 
>>> Participe do I Hack'n Rio
>>> 
>>>
>>>
>>> =begin disclaimer
>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>>  L
>>> =end disclaimer
>>>
>>>
>>
>>
>>
>> --
>> Joner Cyrre Worm
>> counter.li.org #290.476
>> gnugp id: 0xEA0A5FB2
>> http://www.worm.sh
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>
>
>
> --
> Tiago B. Peczenyj
> Linux User #405772
>
> http://pacman.blog.br
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>




--
Giuliani Sanches
twitter.com/giulianisanches
giulianisanches.blogspot.com

Como elaborar uma pergunta:
http://www.istf.com.br/perguntas/

=begin disclaimer
  Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer





--


  =begin disclaimer
 Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
   SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
   L
  =end disclaimer
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] [OFF TOPIC] WTF??

[Marcio Ferreira]

O terra é uma empresa moderna, em breve o código estará no github



[]s,

@_marcioferreira
Marcio Ferreira
marciodesouzaferreira.blogspot.com

"Perl lives as the 'toolbox for Unix' "



2011/5/3 Otavio Pereira 

> Que desleixo!
>
> Otávio
>
>
>
> 2011/5/3 Stanislaw Pusep 
>
>> $value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
>>
>> CPAN pra quê, né?
>> Fraqueza intelectual quase tão revigorante quanto procurar por "site:*.
>> gov.br filetype:sql" no Google :P
>>
>> ABS()
>>
>>
>>
>>
>> 2011/5/3 Blabos de Blebe 
>>
>>> Pessoal,
>>>
>>> Eu desconfiei que um comentátio em inglês num código que estou
>>> analisando fosse "demais" para o nível geral. Então googlei por:
>>>
>>> "Go through the pairs and determine the name"
>>>
>>> Como primeiro resultado encontrei a origem do meu comentário.
>>> Entretanto achei mais que isso...
>>>
>>> http://www.terra.com.br/esoterico/astrologia/afinidades.pl
>>>
>>> WTF???
>>> =begin disclaimer
>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>>  L
>>> =end disclaimer
>>>
>>
>>
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>>
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Daniel Vinciguerra]

Animal!!!
rsrsrs muito louco


Daniel Vinciguerra

Web Solutions Architect and Co-Owner at Bivee
http://github.com/dvinciguerra



From: marciodesouzaferre...@gmail.com
Date: Tue, 3 May 2011 10:51:46 -0300
To: saopaulo...@mail.pm.org
Subject: Re: [SP-pm] II São Paulo Perl Workshop

Melhor post até o momento http://sysd.org/ii-sao-paulo-perl-workshop/
[]s,



@_marcioferreiraMarcio Ferreiramarciodesouzaferreira.blogspot.com

"Perl lives as the 'toolbox for Unix' "





Em 3 de maio de 2011 10:39, Giuliani Sanches  
escreveu:


O quality na rouxinol 57 ? É perto do evento ? (/me procurando pontos

de referência pra não se perder :P )



Em 2 de maio de 2011 20:54, Tiago Peczenyj  escreveu:

> tem um hotel na frente, o Quality, muito bom.

>

> 2011/5/2 Joner Cyrre Worm :

>> Eu vou!

>>

>> Já twittei: http://twitter.com/jonerworm

>>

>> Já identi.quei: http://identi.ca/worm

>>

>> Já botei banner e postei notítica: http://www.worm.sh

>>

>> Alguém sabe de alguma "espelunca familiar" na redondeza do envento ou

>> aeroporto Congonhas? (no sentido de família ;-)

>>

>> Worm

>>

>> 2011/5/2 Oscar Marques :

>>> Eu gostaria de ir mas nao vou poder participar por causa do dia das maes

>>> Fica pra proxima!

>>> Valeu!

>>>

>>> Em 2 de maio de 2011 14:01, Thiago Rondon  escreveu:



 Olá Pessoal,



 O nosso evento esta perto, é sábado agora e gostaria de pedir a ajuda de

 vocês, nesta última semana, para ajudar a divulgar o nosso evento mais

 ainda, vamos dar uma força nesta divulgação!



 http://www.perlworkshop.com.br/



 Divulguem no twitter, em listas de discussão, empresas, universidades e

 etc.



 Valeu pessoal!

 -Thiago Rondon



 =begin disclaimer

  Sao Paulo Perl Mongers: http://sao-paulo.pm.org/

 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org

 L

 =end disclaimer

>>>

>>>

>>>

>>> --

>>> Oscar Marques

>>> osca...@gmail.com

>>> http://www.dunkelheit.com.br

>>> Twitter: @f117usbr

>>> +55 21 9293-9343

>>>

>>> 

>>> Participe do I Hack'n Rio

>>> 

>>>

>>>

>>> =begin disclaimer

>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/

>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org

>>>  L

>>> =end disclaimer

>>>

>>>

>>

>>

>>

>> --

>> Joner Cyrre Worm

>> counter.li.org #290.476

>> gnugp id: 0xEA0A5FB2

>> http://www.worm.sh

>> =begin disclaimer

>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/

>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org

>>  L

>> =end disclaimer

>>

>

>

>

> --

> Tiago B. Peczenyj

> Linux User #405772

>

> http://pacman.blog.br

> =begin disclaimer

>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/

>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org

>  L

> =end disclaimer

>







--

Giuliani Sanches

twitter.com/giulianisanches

giulianisanches.blogspot.com



Como elaborar uma pergunta:

http://www.istf.com.br/perguntas/

=begin disclaimer

   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/

 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org

 L

=end disclaimer




=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer   =begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

[SP-pm] Socket - algumas questões:

[Andre Carneiro]

Salve Monges!


Estou com uns problemas com Sockets que mesmo fuçando bastante eu não
consegui resolver. Os sockets tanto do lado do servidor quanto do lado do
cliente estão ok, e isso significa:

- O 'socket' do lado do 'client' escreve coisas no socket
- O 'socket' do lado do server lê coisas do Socket;

Agora eu preciso que o socket do lado do servidor envie os resultados como
mensagens de erros e dados, de maneira geral, para o client. O que tá
rolando agora:


SERVER:


use strict;
use warnings;
use IO::Socket::INET
use Daemon::Generic;
use feature qw/ say switch /;
.
.
.
#configuração
.
.
.
my $usock = IO::Socket::INET->new (
Type => SOCK_STREAM ,
LocalAddr => $config_socket->{ SocketBind },
LocalPort => $config_socket->{ SocketPort },
Proto => 'tcp',
Listen => 1,
ReuseAddr => 1,
) or die $!;


  my $pid = fork;
  if(!defined($pid)){
say "FATAL! Sem recursos para o fork! Abortando!";
exit 0;
}
elsif($pid == 0){
my $newconn = &get_conn();
while(1){
#uma 'pá' de coisa aqui no child...
sleep 60;
}
exit(1);
}
else {
my $r = undef;
while(1){
say "I'm working!";
if( $r = $usock->accept ){
&process_commands($r, \$usock);
}
else {
$logerr->write('error','Problemas com o socket! Abortando!'
. $!);
exit(0);
}
sleep 1;
}
#$usock->close;
close $out;

waitpid($pid,0);
}



sub process_commands {
my $sh = shift;
my $rsock = shift;
my $res = 0;
while(<$sh>){
#tratando o que vem do client
my $out = $_ || 'none';
$out =~ s/^(\ |\t)+//;
my @params = split /\ +/, $out;
my ($command,$parameter) = ( $params[0],$params[1] );
#separando algumas informações
my %client_auth_data = (host => undef,
user => undef,
password => undef,
port => undef,
);

#Implementar a camada de autenticação aqui.

given($command){
when( 'stopsafe' ){
say 'Executando o stopsafe';
if(!&pause_MTAs()){
 #enviar mensagem de erro via socket
}
else {
 #enviar mensagem de ok para o socket...
}

$res = 1;
}
#mais uma pancada de comandos aqui...
default {
my $msg = "Comando inválido! '$command $parameter' ";
}
}
}
return $res;
}






Resumo: Eu tenho um processo que fica executando várias outras coisas, e um
outro só para ficar escutando comando vindo do socket do lado do CLIENT! O
que eu quero fazer, imagino eu, seria gravar alguma coisa no socket de
dentro dessa função 'process_commands'. E de alguma forma ler isso do
client.



CLIENT


use strict;
use warnings;
use IO::Socket::INET;
.
.
.

my ($bind, $port ) = @_;
my $sock = IO::Socket::INET->new (
PeerAddr => $bind,
PeerPort => $port,
Proto => 'tcp',
Blocking=> 0,
ReuseAddr   => 1,
) or die $!;

$sock->send('chave1 valor1 chave2 valor2');

while(<$sock>){
#Teoricamente deveria ter alguma coisa no socket, mas nao rola...
}

$sock->close();





Perguntas:


- Como gravar no socket do lado do server, de modo que isso seja legível do
lado do client?
- Preciso de protocolo específico para fazer isso ?
- Eu vi algumas pessoas usando udp ao invés de tcp alegando aumento de
performance, mas abrindo mão de vários quesitos de segurança dentre outros
problemas. Confirma?







Cheers!




-- 
André Garcia Carneiro
Analista/Desenvolvedor Perl
(11)82907780
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Marcio Ferreira]

Melhor post até o momento
http://sysd.org/ii-sao-paulo-perl-workshop/

[]s,

@_marcioferreira
Marcio Ferreira
marciodesouzaferreira.blogspot.com

"Perl lives as the 'toolbox for Unix' "



Em 3 de maio de 2011 10:39, Giuliani Sanches
escreveu:

> O quality na rouxinol 57 ? É perto do evento ? (/me procurando pontos
> de referência pra não se perder :P )
>
> Em 2 de maio de 2011 20:54, Tiago Peczenyj 
> escreveu:
> > tem um hotel na frente, o Quality, muito bom.
> >
> > 2011/5/2 Joner Cyrre Worm :
> >> Eu vou!
> >>
> >> Já twittei: http://twitter.com/jonerworm
> >>
> >> Já identi.quei: http://identi.ca/worm
> >>
> >> Já botei banner e postei notítica: http://www.worm.sh
> >>
> >> Alguém sabe de alguma "espelunca familiar" na redondeza do envento ou
> >> aeroporto Congonhas? (no sentido de família ;-)
> >>
> >> Worm
> >>
> >> 2011/5/2 Oscar Marques :
> >>> Eu gostaria de ir mas nao vou poder participar por causa do dia das
> maes
> >>> Fica pra proxima!
> >>> Valeu!
> >>>
> >>> Em 2 de maio de 2011 14:01, Thiago Rondon 
> escreveu:
> 
>  Olá Pessoal,
> 
>  O nosso evento esta perto, é sábado agora e gostaria de pedir a ajuda
> de
>  vocês, nesta última semana, para ajudar a divulgar o nosso evento mais
>  ainda, vamos dar uma força nesta divulgação!
> 
>  http://www.perlworkshop.com.br/
> 
>  Divulguem no twitter, em listas de discussão, empresas, universidades
> e
>  etc.
> 
>  Valeu pessoal!
>  -Thiago Rondon
> 
>  =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
>  =end disclaimer
> >>>
> >>>
> >>>
> >>> --
> >>> Oscar Marques
> >>> osca...@gmail.com
> >>> http://www.dunkelheit.com.br
> >>> Twitter: @f117usbr
> >>> +55 21 9293-9343
> >>>
> >>> 
> >>> Participe do I Hack'n Rio
> >>> 
> >>>
> >>>
> >>> =begin disclaimer
> >>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >>>  L
> >>> =end disclaimer
> >>>
> >>>
> >>
> >>
> >>
> >> --
> >> Joner Cyrre Worm
> >> counter.li.org #290.476
> >> gnugp id: 0xEA0A5FB2
> >> http://www.worm.sh
> >> =begin disclaimer
> >>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >>  L
> >> =end disclaimer
> >>
> >
> >
> >
> > --
> > Tiago B. Peczenyj
> > Linux User #405772
> >
> > http://pacman.blog.br
> > =begin disclaimer
> >   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
> >  L
> > =end disclaimer
> >
>
>
>
> --
> Giuliani Sanches
> twitter.com/giulianisanches
> giulianisanches.blogspot.com
>
> Como elaborar uma pergunta:
> http://www.istf.com.br/perguntas/
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] [OFF TOPIC] WTF??

[Otavio Pereira]

Que desleixo!

Otávio


2011/5/3 Stanislaw Pusep 

> $value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
>
> CPAN pra quê, né?
> Fraqueza intelectual quase tão revigorante quanto procurar por "site:*.
> gov.br filetype:sql" no Google :P
>
> ABS()
>
>
>
>
> 2011/5/3 Blabos de Blebe 
>
>> Pessoal,
>>
>> Eu desconfiei que um comentátio em inglês num código que estou
>> analisando fosse "demais" para o nível geral. Então googlei por:
>>
>> "Go through the pairs and determine the name"
>>
>> Como primeiro resultado encontrei a origem do meu comentário.
>> Entretanto achei mais que isso...
>>
>> http://www.terra.com.br/esoterico/astrologia/afinidades.pl
>>
>> WTF???
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] [OFF TOPIC] WTF??

[Stanislaw Pusep]

$value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack("C", hex($1))/eg;

CPAN pra quê, né?
Fraqueza intelectual quase tão revigorante quanto procurar por "site:*.
gov.br filetype:sql" no Google :P

ABS()



2011/5/3 Blabos de Blebe 

> Pessoal,
>
> Eu desconfiei que um comentátio em inglês num código que estou
> analisando fosse "demais" para o nível geral. Então googlei por:
>
> "Go through the pairs and determine the name"
>
> Como primeiro resultado encontrei a origem do meu comentário.
> Entretanto achei mais que isso...
>
> http://www.terra.com.br/esoterico/astrologia/afinidades.pl
>
> WTF???
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

[SP-pm] [OFF TOPIC] WTF??

[Blabos de Blebe]

Pessoal,

Eu desconfiei que um comentátio em inglês num código que estou
analisando fosse "demais" para o nível geral. Então googlei por:

"Go through the pairs and determine the name"

Como primeiro resultado encontrei a origem do meu comentário.
Entretanto achei mais que isso...

http://www.terra.com.br/esoterico/astrologia/afinidades.pl

WTF???
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] II São Paulo Perl Workshop

[Giuliani Sanches]

O quality na rouxinol 57 ? É perto do evento ? (/me procurando pontos
de referência pra não se perder :P )

Em 2 de maio de 2011 20:54, Tiago Peczenyj  escreveu:
> tem um hotel na frente, o Quality, muito bom.
>
> 2011/5/2 Joner Cyrre Worm :
>> Eu vou!
>>
>> Já twittei: http://twitter.com/jonerworm
>>
>> Já identi.quei: http://identi.ca/worm
>>
>> Já botei banner e postei notítica: http://www.worm.sh
>>
>> Alguém sabe de alguma "espelunca familiar" na redondeza do envento ou
>> aeroporto Congonhas? (no sentido de família ;-)
>>
>> Worm
>>
>> 2011/5/2 Oscar Marques :
>>> Eu gostaria de ir mas nao vou poder participar por causa do dia das maes
>>> Fica pra proxima!
>>> Valeu!
>>>
>>> Em 2 de maio de 2011 14:01, Thiago Rondon  escreveu:

 Olá Pessoal,

 O nosso evento esta perto, é sábado agora e gostaria de pedir a ajuda de
 vocês, nesta última semana, para ajudar a divulgar o nosso evento mais
 ainda, vamos dar uma força nesta divulgação!

 http://www.perlworkshop.com.br/

 Divulguem no twitter, em listas de discussão, empresas, universidades e
 etc.

 Valeu pessoal!
 -Thiago Rondon

 =begin disclaimer
  Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
 =end disclaimer
>>>
>>>
>>>
>>> --
>>> Oscar Marques
>>> osca...@gmail.com
>>> http://www.dunkelheit.com.br
>>> Twitter: @f117usbr
>>> +55 21 9293-9343
>>>
>>> 
>>> Participe do I Hack'n Rio
>>> 
>>>
>>>
>>> =begin disclaimer
>>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>>  L
>>> =end disclaimer
>>>
>>>
>>
>>
>>
>> --
>> Joner Cyrre Worm
>> counter.li.org #290.476
>> gnugp id: 0xEA0A5FB2
>> http://www.worm.sh
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>
>
>
> --
> Tiago B. Peczenyj
> Linux User #405772
>
> http://pacman.blog.br
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>



-- 
Giuliani Sanches
twitter.com/giulianisanches
giulianisanches.blogspot.com

Como elaborar uma pergunta:
http://www.istf.com.br/perguntas/
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer