Hi.<div><br></div><div>Blabos, só queria deixar claro que antes de "instaurar" o Perl no Invaders, a data do último tópico era de 2007 sobre uma dúvida escrota de mod_perl.</div><div><br></div><div>Notei que o Perl tinha perdido forças na área de segurança da informação e o pessoal começou a fazer as ferramentas em Python ou Ruby. Então, resolvi reviver o Perl na infosec e trouxe uma molecadinha totalmente nova para aprender algo do zero. Para a *minha* felicidade, gostaram!</div>
<div><br></div><div>Sei que todos são iniciantes, assim como eu, e tem muito o que aprender. Mas lembre-se que o nosso foco é segurança, e não bem programação. E mesmo assim, temos uma geração nova com vontade de aprender e ensinar. Então, por que não ajudá-los ao invés de simplesmente chamar de "lixo"? Isto é, a não ser que a *comunidade* queira manter o nível impedindo que os newbies entrem, mantendo apenas os já programadores, mesmo com a falta de material do último equinócio. Este próprio tópico que você exemplificou, fica claro que a galera tem vontade de escrever e ajudar, mas falta técnica.</div>
<div>Quanto ao Modern Perl, o link está num tópico fixo na sessão. Se um ou dois membros não leram porque não quiseram, não dá pra julgar à todos.</div><div><br></div><div>E Aureliano, se o fórum não te ajuda mais, não perca mais seu tempo postando as dúvidas lá. Posta só nas mail lists! Melhor, né não? :-)</div>
<div><br></div><div>[]'s<br><br><div class="gmail_quote">Em 1 de abril de 2012 11:48, Blabos de Blebe <span dir="ltr"><<a href="mailto:blabos@gmail.com">blabos@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
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>
<div class="HOEnZb"><div class="h5">> 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/~brunobuss/" 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>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <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>
</div>