<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Não tiro sua razão, mas ha casos que se você não sabe absolutamente nada e<br>tem pouco tempo, foruns pode não te ensinar der o "hackerzão-fodastico" mas <br>podem te dar um apoio, mesmo que inesperiente. <br>São menos de 9 meses que eu uso Perl, ou melhor, que sequer programo.<br>E realmente eu ainda não programo, faço alguns filtros de arquivo para bioinformatica,<br>mas coisas bestas, no começo o forum me ajudou muito, hoje o forum não é mas capaz de <br>me ajudar tanto assim.<br>Sou academico de biomedicina, formo esse ano, tenho 21 anos, e sou casado(noivo mas moro junto), ja<br>dei assistencia tecnica quando era mas novo, e essa é minha história. O que quero programando, curiosidade e interesse pra começar<br>e bioinformatica como campo de atuação, isso responde.<br>Não é facil, eu sei, mas quero tentar, hoje procuro as comunidades Perl, mas quando eu não sabia<br>escrever sequer um "Ola Mundo" realmente, o tempo curto me fez procurar foruns. <br><br><div><div id="SkyDrivePlaceholder"></div>> From: blabos@gmail.com<br>> Date: Sun, 1 Apr 2012 11:48:49 -0300<br>> To: rio-pm@pm.org<br>> Subject: Re: [Rio-pm] Mudando de formato<br>> <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>> http://www.forum-invaders.com.br/vb/showthread.php/40480-Perl-Obtendo-o-conteúdo-de-Sites?highlight=perl<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 <guedes_1000@hotmail.com>:<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: bruno.buss@gmail.com<br>> > Date: Sat, 31 Mar 2012 22:07:26 -0300<br>> ><br>> > To: rio-pm@pm.org<br>> > Subject: Re: [Rio-pm] Mudando de formato<br>> ><br>> > 2012/3/31 Aureliano Guedes <guedes_1000@hotmail.com><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>> > http://perldoc.perl.org/perlvar.html<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>> > http://perldoc.perl.org/perlreftut.html<br>> ><br>> > [ ]'s<br>> > --<br>> > Bruno C. Buss<br>> > http://brunobuss.wordpress.com/<br>> > http://www.dcc.ufrj.br/~brunobuss/<br>> ><br>> > _______________________________________________ Rio-pm mailing list<br>> > Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm<br>> ><br>> > _______________________________________________<br>> > Rio-pm mailing list<br>> > Rio-pm@pm.org<br>> > http://mail.pm.org/mailman/listinfo/rio-pm<br>> _______________________________________________<br>> Rio-pm mailing list<br>> Rio-pm@pm.org<br>> http://mail.pm.org/mailman/listinfo/rio-pm<br></div> </div></body>
</html>