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