[Rio-pm] GENTILEZA GERA GENTILEZA (was: Mudando de formato)
Junior Moraes
juniiior182 em gmail.com
Segunda Abril 2 05:37:55 PDT 2012
Hi.
Conformei já falei, minha intenção ao levar o perl ao fórum-invaders e
retomar a posição da linguagem na área de segurança da informação foi de
boa intenção.
Entendo a posição do Blabos ao ver "noobs" tentando ensinar algo e
demonstrando práticas dos anos 90. Mas, o Perl lá não parou nos anos 90.
Muito pelo contrário - ele começou em 2012.
Não sei até que ponto esta "nova geração" será bem vinda, mas, de minha
parte, continuarão sendo estimulados. Deste modo, continuarão escrevendo e
disseminando a linguagem mesmo quando tiverem um bom conhecimento técnico.
[]'s
Em 2 de abril de 2012 09:13, Samir Cury <eu em samircury.eng.br> escreveu:
> Ola pessoal,
>
> Uma opiniao de quem ja esteve do outro lado (~recentemente)
>
> Quando estava realmente engatinhando em Perl (2007) eu tambem fazia
> perguntas toscas aqui na lista, que poderia achar facilmente em algum
> manual, e a resposta do pessoal bambeava entre "RTFM" e "Poderia ser
> assim, mas nao vou perder mais que 5 min com isso". O que eu chamo de
> "RTFM educativo". RTFM, mas te diz qual "M".
>
> Acho isso bem interessante porque de um lado que muito RTFM espanta
> novato, pouco deixa eles mal-acostumados. Depois de algumas respostas
> comecei a procurar nas ferramentas que me apresentavam (Perldoc no
> terminal, na web) do que no google, e tive um aprendizado bem mais
> eficiente que isso.
>
> Acho isso, um jeito de educar os novatos bem mais eficiente do que
> algumas listas que ja vi, onde o pessoal e super-simpatico, mas so
> fazem e recomendar livros/cursos, codigo que e bom na lista, nada.
>
> Apesar de nao postar muito mais perguntas aqui, continuo lendo
> bastante, pois 90% das respostas eu vejo codigo, tecnicas
> interessantes ou opinioes tecnicas que agregam.
>
> Bottom line e - RTFM bem aplicado pode ser construtivo, arrogancia
> demais e o que pode estragar.
>
> Abracos,
> Samir
>
> 2012/4/2 Blabos de Blebe <blabos em gmail.com>:
> > Usar sapatos macios demais deixa os pés frágeis.
> >
> > Alguns superlativos às vezes transmitem melhor a mensagem ao causar
> > impacto. Sabe, pouco papo mais ação?
> >
> > É claro, minha opinião não reflete a opinião do grupo.
> >
> > []'s
> >
> > 2012/4/2 Nuba Princigalli <nuba em fastmail.fm>:
> >> Blabos,
> >>
> >> Forum Invaders usa Perl? Que bacana! Usam mal? Você se importa com isso?
> >> Use a oportunidade para apresentar um bom Perl à eles, você pode soltar
> >> bile aqui ou soltar uma luz lá, com comparavelmente o mesmo esforço.
> >>
> >> Apesar dos "sou legal de novo" e "amigão" sua resposta é tudo menos
> >> "legal" e "amigão". A cultura da nossa comunidade é fruto das ações de
> >> todos, vamos ser gentis com quem chega, apontar na direção dos próximos
> >> passos e ter paciência. Não precisamos jogar pedra no vidro de nenhuma
> >> outra comunidade, como diz Gandhi: quem precisa humilhar os outros pra
> >> se sentir forte é o fraco. Pode não ser sua realidade, mas acredite,
> >> passada a poeira, é essa a leitura que fica.
> >>
> >> Olha o tópico do nosso canal:
> >>
> >> 07:34 Topic for #rio-pm: Rio.PM | MEUS FILHOS BEM VINDOS AO RIO
> >> GENTILEZA GERA GENTILEZA AMORRR BELEZA PERFEIÇÃOO BONDADE E RIQUEZA
> >> 07:34 Topic set by garu breno em shadow.cat ; Mon Mar 26 01:00:27 2012
> >>
> >> Abraços,
> >>
> >> Nuba Princigalli
> >>
> >>
> >> On Sun, Apr 1, 2012, at 11:48 AM, Blabos de Blebe wrote:
> >>> Forum Invaders?
> >>>
> >>> É por isso que vc tá fazendo pergunta tosca.
> >>>
> >>> Pelamor..., os exemplos desse site não tem nem use strict.
> >>>
> >>> É por isso que você não sabe o que é contexto, o que é $_, @_, o
> básico.
> >>>
> >>> Olha só, eu vou ser legal denovo.
> >>>
> >>> "Qualquer tecnologia suficientemente avançada parece ser mágica" (
> >>> Arthur C. Clarke )
> >>>
> >>> É por isso que nos anos 90 quem usava Perl era tido como
> >>> hackerzão-fodástico-ultra-ultra.
> >>>
> >>> Desde então tem um monte de forum cuspindo Perl 4 dos anos 90, como se
> >>> isso fosse o supra-sumo da programação.
> >>>
> >>> A menos que me provem o contrário, em termos de programação, onde
> >>> existem as duas palavras juntas, perl e forum, há quase sempre lixo.
> >>>
> >>> Olhe um exemplo do tal forum
> >>>
> >>>
> http://www.forum-invaders.com.br/vb/showthread.php/40480-Perl-Obtendo-o-conteúdo-de-Sites?highlight=perl
> >>>
> >>> Ele é de 2012, e não usa nem strict. Ele trata html com expressão
> >>> regular. É típico de quem parou no tempo, em 1997.
> >>>
> >>> Os caras são tão bons que acham que Perl é PHP.
> >>>
> >>> É brincadeira isso, só pode.
> >>>
> >>> Aureliano, você precisa estudar o básico da linguagem antes de querer
> >>> ficar *pegando atalho*.
> >>>
> >>> Não existe almoço grátis, amigão. Quer trabalhar com Bioinformática,
> >>> vai ter que estudar Biologia *E* Programação.
> >>>
> >>> Olha só, a partir de agora, eu só vou te responder, depois que vc
> >>> largar essa idéia de forum adolescente e ler pelo menos o Modern Perl.
> >>>
> >>> Não desperdice o tempo que que eu já gastei com vc.
> >>>
> >>> Aff
> >>>
> >>>
> >>>
> >>> 2012/4/1 Aureliano Guedes <guedes_1000 em hotmail.com>:
> >>> > Consegui, mais ou menos aqui, apesar da grande ajuda que tive aqui e
> no
> >>> > Forum-Invaders,
> >>> > ainda sim fui eu que fiz, portanto entendi muita coisa.
> >>> >
> >>> > Contudo ainda tem me voltado um erro na hora de executar, apesar de
> gerar a
> >>> > saida como o desejado
> >>> > aparece alguns prints desnecessarios.
> >>> >
> >>> > exemplo #11, #20, #26 aprarecem duas vezes, na primeira vez como
> deveria ser
> >>> > na segunda sem nada, conferi os dados, saem todos corretos, mas
> quando o
> >>> > trabalho
> >>> > do script é 0 ($work = 0), ele continua printando o dado.
> >>> >
> >>> > se alguem puder dar uma lida e tenta me ajudar como resolver esse
> >>> > encomodo...
> >>> >
> >>> > [CODE]
> >>> > #!/usr/bin/perl
> >>> > use common::sense;
> >>> > my $work = 0;
> >>> > my $count = 0;
> >>> > my $lastline = /[A-Za-z]/;
> >>> > foreach my $line(<DATA>){
> >>> > chop($line);
> >>> > if($work == 1){
> >>> > $line =~ /(.+),\s+(.+)$/;
> >>> >
> >>> > if($1 eq ($lastline x 3)){
> >>> > $work = 0;
> >>> > $count--;
> >>> >
> >>> > }
> >>> >
> >>> > my @contents= split(/\s/, $2);
> >>> >
> >>> >
> >>> >
> >>> > my ( @first, @second );
> >>> > foreach (@contents){
> >>> > my ($first, $second) = /(\d{2})(\d{2})/;
> >>> > push(@first, int($first));
> >>> > push(@second, int($second));
> >>> > }
> >>> >
> >>> > $count++;
> >>> > print "#$count\n", join(" ", @first), "\n", join(" ",
> @second),
> >>> > "\n";
> >>> > }
> >>> > if($line eq "Pop"){
> >>> > $work = 1;
> >>> > }
> >>> > }
> >>> > __DATA__
> >>> >
> >>> > Pop
> >>> > 001, 0303 0303 0101 1011 0304
> >>> > 002, 0303 0003 0101 0410 0405
> >>> > 003, 0303 0305 0101 1013 0304
> >>> > 004, 0103 0304 0102 0207 0104
> >>> > 005, 0303 0506 0101 0407 0405
> >>> > 006, 0303 0405 0101 0506 0405
> >>> > 007, 0303 0104 0101 0204 0305
> >>> > 008, 0303 0105 0101 0203 0304
> >>> > 009, 0303 0303 0101 1011 0404
> >>> > 010, 0303 0303 0101 0507 0405
> >>> >
> >>> > Gra, 0203 0304 0202 0207 0105
> >>> > Pop
> >>> > 050, 0103 0304 0102 0206 0105
> >>> > 051, 0103 0304 0202 0102 0105
> >>> > 052, 0303 0305 0102 0404 0507
> >>> > 053, 0103 0506 0202 0205 0105
> >>> > 054, 0303 0404 0101 0411 0405
> >>> > 055, 0103 0505 0202 0306 0102
> >>> > 056, 0303 0404 0101 0912 0304
> >>> > 057, 0303 0404 0102 0406 0105
> >>> > Lev, 0303 0303 0202 0106 0105
> >>> > Pop
> >>> > 078, 0303 0303 0101 0407 0405
> >>> > 079, 0303 0303 0101 0506 0405
> >>> > 080, 0203 0303 0102 0510 0405
> >>> > 081, 0303 0303 0101 0708 0404
> >>> > 082, 0101 0404 0202 0202 0101
> >>> > Mod, 0303 0203 0102 0608 0105
> >>> > Pop
> >>> > 011, 0303 0304 0102 0710 0405
> >>> > 002, 0103 0405 0102 0313 0104
> >>> > 003, 0303 0204 0202 0209 0405
> >>> > 004, 0303 0303 0101 1011 0404
> >>> > 005, 0303 0305 0101 0413 0405
> >>> > 006, 0101 0404 0202 0202 0101
> >>> > 007, 0303 0104 0101 0211 0304
> >>> > 008, 0303 0103 0101 0210 0304
> >>> > 009, 0303 0304 0102 0210 0405
> >>> > 010, 0303 0303 0101 0411 0405
> >>> > 011, 0303 0305 0102 0407 0405
> >>> > 012, 0101 0404 0202 0203 0101
> >>> > 013, 0303 0303 0101 0404 0404
> >>> > 014, 0303 0303 0101 0110 0405
> >>> > 015, 0103 0404 0202 0206 0101
> >>> > 016, 0303 0304 0202 0204 0305
> >>> > 017, 0303 0304 0202 0511 0407
> >>> > 018, 0103 0204 0202 0102 0105
> >>> > CTR, 0103 0304 0202 0210 0303
> >>> > [/CODE]
> >>> >
> >>> > Bem, agradeço a todos, mas ainda digo que essa é so uma parte do
> programa...
> >>> > mas é a mais dificil.
> >>> >
> >>> >
> >>> >
> >>> >
> >>> >
> >>> > ________________________________
> >>> > From: bruno.buss em gmail.com
> >>> > Date: Sat, 31 Mar 2012 22:07:26 -0300
> >>> >
> >>> > To: rio-pm em pm.org
> >>> > Subject: Re: [Rio-pm] Mudando de formato
> >>> >
> >>> > 2012/3/31 Aureliano Guedes <guedes_1000 em hotmail.com>
> >>> >
> >>> > Primeiro, sei que $_ é uma variavel especial, sei pra que serve, mas
> quando
> >>> > temos $_[0], $_[1] etc... isso é o mesmo que manipulação direta de
> array??
> >>> >
> >>> >
> >>> > Sim, no caso você está manipulando o array @_ ;)
> >>> > http://perldoc.perl.org/perlvar.html
> >>> >
> >>> >
> >>> >
> >>> > Outra duvida é quando temos @{alguma coisa}, por exemplo @{$_}... o
> que esse
> >>> > array com chaves quer dizer, digo, o que ele faz??
> >>> >
> >>> >
> >>> > http://perldoc.perl.org/perlreftut.html
> >>> >
> >>> > [ ]'s
> >>> > --
> >>> > Bruno C. Buss
> >>> > http://brunobuss.wordpress.com/
> >>> > http://www.dcc.ufrj.br/~brunobuss/
> >>> >
> >>> > _______________________________________________ Rio-pm mailing list
> >>> > Rio-pm em pm.org http://mail.pm.org/mailman/listinfo/rio-pm
> >>> >
> >>> > _______________________________________________
> >>> > Rio-pm mailing list
> >>> > Rio-pm em pm.org
> >>> > http://mail.pm.org/mailman/listinfo/rio-pm
> >>> _______________________________________________
> >>> Rio-pm mailing list
> >>> Rio-pm em pm.org
> >>> http://mail.pm.org/mailman/listinfo/rio-pm
> >> --
> >> Nuba R. Princigalli nuba em pauleira.com http://pauleira.com @nprincigalli
> >> Discipline is not an end in itself, just a means to an end. - King
> Crimson
> >>
> >> _______________________________________________
> >> Rio-pm mailing list
> >> Rio-pm em pm.org
> >> http://mail.pm.org/mailman/listinfo/rio-pm
> > _______________________________________________
> > Rio-pm mailing list
> > Rio-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/rio-pm
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
--
______________________
< Junior "fvox" Moraes >
----------------------
\
\
.--.
|o_o |
|:_/ |
// \ \
(| | )
/'\_ _/`\
\___)=(___/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120402/90538e44/attachment-0001.html>
Mais detalhes sobre a lista de discussão Rio-pm