[Rio-pm] Mudando de formato

[Aureliano Guedes]

Fvox, não disse que não me ajuda mais, inclusive me ajudou nesses ultimos dias.
A questão é que eu tava tentando falar para o Bablos, que um caso como o meu, que não faço um 
curso na área de computação o forum foi o melhor lugar para começar a aprender foi la.
O forum não me responde mais como "extremamente-iniciante" mas como iniciante que ainda sou,
me responde em alto nivel, agora não mais postando duvidas, e sim postando pequenas sources
onde a galera mais experiente, e muitas vezes que nem programam em perl, dão dicas para eu melhorar
minha logica dentre outros, ou seja, continuo aprendendo. Perca de tempo seria postar duvidas nas mail list 
esperando entender a alta linguagem técnica, e o elevado conhecimento que o pessoal de anos e anos de experiencia
ja tem.


From: juniiior182 em gmail.com
Date: Sun, 1 Apr 2012 16:58:18 -0300
To: rio-pm em pm.org
Subject: Re: [Rio-pm] Mudando de formato

Hi.
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.
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!


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.

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.
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? :-)


[]'s

Em 1 de abril de 2012 11:48, Blabos de Blebe <blabos em gmail.com> escreveu:


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



-- 

 ______________________
< Junior "fvox" Moraes >
 ----------------------
   \
    \
        .--.
       |o_o |
       |:_/ |
      //   \ \
     (|     | )
    /'\_   _/`\
    \___)=(___/



_______________________________________________
Rio-pm mailing list
Rio-pm em pm.org
http://mail.pm.org/mailman/listinfo/rio-pm 		 	   		  
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120401/aa36e871/attachment-0001.html>