[Rio-pm] GENTILEZA GERA GENTILEZA (was: Mudando de formato)
Blabos de Blebe
blabos em gmail.com
Segunda Abril 2 05:04:00 PDT 2012
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
Mais detalhes sobre a lista de discussão Rio-pm