Re: [Rio-pm] Número no final do package
eu! huahuxiao! kuakua 0le 2014-05-04 16:21 GMT-03:00 Aureliano Guedes guedes_1...@hotmail.com: 'Warning! The consumption of alcohol may cause you to think you have mystical kung-fu powers.' -- Date: Sun, 4 May 2014 20:08:49 +0200 From: creakt...@gmail.com To: rio-pm@pm.org Subject: Re: [Rio-pm] Número no final do package (0x2B or not 0x2B) воскресенье, 4 мая 2014 г. пользователь Adriano Ferreira написал: 2014-05-04 12:12 GMT-03:00 breno br...@rio.pm.org: Só de curiosidade: http://returnvalues.useperl.at (especificamente, http://returnvalues.useperl.at/values.html) Eu costumo botar 1 em trabalhos profissionais, e 42 em projetos open-source. Em alguns módulos do SDL a gente botou all your base are belong to us, e o Dancer exporta a DSL true e recomenda seu uso nas apps feitas com ele. Qual o seu valor de retorno favorito? :D 0 but true =) []s -b 2014-05-03 18:30 GMT-03:00 Bruno Buss bruno.b...@gmail.com: Os dois 1os resultados do Google... http://stackoverflow.com/questions/5293246/why-the-1-at-the-end-of-each-perl-package http://stackoverflow.com/questions/3606528/why-do-you-have-to-put-a-1-at-the-end-of-a-perl-5-module 2014-05-03 18:03 GMT-03:00 Aureliano Guedes guedes_1...@hotmail.com: Ola monges, tenho uma dúvida meio idiota: O que é aquele número no final do módulo?? exemplo: package Meu::Modulo; ... 1; No módulo do Garu mesmo: package Acme::BOPE; . 42; Eu sempre coloquei de forma automática o '1;', mas não faço ideia do que é, alguns módulos tem números diferentes. Mas o que é esse numero? Pra que serve? Como seu qual número devo colocar? Abraços, ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- Bruno C. Buss http://www.brunobuss.net ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter - ole at ufg.br http://mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] [OFF-TOPIC] Manifestações no Brasil / SP
Puutz, Nilson, faz tempo que estava procurando esse frase de ouro... diz tudo!!! Precisamos defender a liberdade nosso, pois senao resta ninguem para defender o nosso proprio!!! 0le When the Nazis came for the communists, I remained silent; I was not a communist. When they locked up the social democrats, I remained silent; I was not a social democrat. When they came for the trade unionists, I did not speak out; I was not a trade unionist. When they came for the Jews, I remained silent; I wasn't a Jew. When they came for me, there was no one left to speak out. -- Martin Niemölle, sobre a opressão nazista. Peço desculpas pelo off-topic. -Nilson ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] Submissão de Palestras para o YAPC::Brasil
to 'finish' a language. .. takes a long, long time... many people say that if you speak portuguese, spanish is 'easy' - while the reverse is false. i agree! much like perl and php, in that order.. 0le Send via Android On Jun 7, 2013 1:48 PM, breno br...@rio.pm.org wrote: On Tue, Jun 4, 2013 at 9:02 PM, Randal L. Schwartz mer...@stonehenge.com wrote: My Spanish is getting better... and once I finish that, I'm on to PT_BR! \o/ Agora em português! :P []s -b ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] breakpoint
trabalhei com breakpoints e debuggers de IDE noa ano,s im, 90s... era TurboPascal e TurboC, muito bons - mas ja desmamei... 0le 2013/6/6 Solli Honorio shono...@gmail.com Marcio, Concordo contigo, tenho trabalho com Java e PHP utilizando uma IDE e os breakpoints tem sido viciantes. Quando abro o VIM para trabalhar no Perl só falta a mensagem 'Seja muito bem vindo aos anos 90' :D !!! Solli Honorio Em 4 de junho de 2013 21:54, Marcio Ferreira marciodesouzaferre...@gmail.com escreveu: Andei escrevendo no Visual Studio C# e ~viciei~ em breakpoints, alterar coisas em tempo de execução e etc. Conheço o perl -d, mas nao consigo ter a mesma sensação. Alguém aqui usa breakpoint? Alguma magia escondida por aí? []s, Marcio Ferreira skype: marcio.ferreir4 (21) 8365-7768 ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- o animal satisfeito dorme. - Guimarães Rosa ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] E o ES de Abril?
ah, ta... ae tenho que encontrar um buteco aqui no interior goianos... mas pensando bem, nao sera muito deficil bom ESX pra vcs!!! 0le 2013/4/19 Bruno Buss bruno.b...@gmail.com Estamos no bar que fica na esquina da Alice com a Mário Portela :-) On Friday, April 19, 2013, Marcio Ferreira wrote: Breno, depois vc fala os bastidores :P []s, Marcio Ferreira skype: marcio.ferreir4 (21) 8365-7768 2013/4/19 breno oainikus...@gmail.com Falando em Minas... reza a lenda que alguém, e não vou mencionar o nome do Nilson, talvez faça uma participação especial no ESX hoje :D Nos vemos lá! []s -b 2013/4/19 Blabos de Blebe bla...@gmail.com: Ooops, janela errada! 2013/4/19 Tiago Peczenyj tiago.pecze...@gmail.com To indo p minas :-( Em 19/04/2013 15:34, Blabos de Blebe bla...@gmail.com escreveu: Fui On Thu, Apr 18, 2013 at 11:10 PM, Bruno Buss bruno.b...@gmail.com wrote: Então, R. Alice amanhã confirmado? :-) [ ]'s 2013/4/17 Bruno Buss bruno.b...@gmail.com Voto na 6a, Rua Alice :D [ ]'s 2013/4/17 Marcio Ferreira marciodesouzaferre...@gmail.com Blz, na Estante Virtual, ops, Alice =P []s, Marcio Ferreira skype: marcio.ferreir4 (21) 8365-7768 2013/4/17 Rodrigo Mosconi (perl) p...@mosconi.mat.br Prefiria quinta, na rua alice mesmo Em 17 de abril de 2013 02:42, breno oainikus...@gmail.com escreveu: Opa, ESX essa sexta na rua Alice? Eu topo!! 2013/4/13 Blabos de Blebe bla...@gmail.com: Voto por um ESX na próxima *sexta*, na rua Alice 2013/4/13 Diana Rosa diana.g.a.r...@gmail.com Apoio! Em 12 de abril de 2013 14:37, Leo Balter leonardo.bal...@gmail.com escreveu: Voto por um ESX na próxima quinta feira. Claro, na Rua Alice. Em 12 de abril de 2013 14:34, Rodrigo Mosconi (perl) p...@mosconi.mat.br escreveu: -- Bruno C. Buss http://www.brunobuss.net ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] Ajuda com split
eu fazia o split(/\s+/,..) primeiro e depois o split(/[\\\/]/,...) depois (ou melhor ainda: if (=~/[\\\/]/...). 0le 2013/3/18 Ole Peter Smith ole@gmail.com somente se vc pode garantir que nao ha mais '/' nos strings... caso sim, tera que tratar isso. 0le 2013/3/18 Guilherme Alves guilhermeareal+ri...@gmail.com Caros Monges, venho aqui pedir ajuda de vocês para solucionar o meu problema. Tenho o seguinte arquivo de texto: --DATA 25/Bla Primeira Entrada 2/Tal Segunda Entrada de Texto --DATA Gostaria de fazer com que o texto fique com: $var1=25 $var2=Bla $var3=Primeira Entrada e $var1=2 $var2=Tal $var3=Segunda Entrada de Texto Para isto fiz um loop para o tratamento de cada linha. No momento uso 2 splits (um para o /e outro para o primeiro espaço em branco) ($var1,$lixo) = split(/,$linha); ($var2,$var3) = split(/\s+/,$lixo,2); Isto funciona porém o $var3 está ficando estranho, possuindo quebras de linhas e tal. Gostaria de saber se existe alguma maneira de eu fazer este split todo de uma só vez, tipo: ($var1,$var2,$var3) = split(/\s+,$linha,3); Obrigado pela ajuda.. -- Guilherme Alves Redes, Sites e Sistemas(RSS) - GRIS-DCC-UFRJ Grupo de Resposta a Incidentes de Segurança Conheça o GRIS em www.gris.dcc.ufrj.br ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] Ajuda com split
if ($var=/^(\d+)\/(\S+)\s+(.+)/)
{
my ($num,$str1,$rest)=($1,$2,$3);
}
0le
2013/3/18 Guilherme Alves guilhermeareal+ri...@gmail.com
Opa,
eu fiz primeiro desta forma, pegando o primeiro espaço e depois separando
o que tem o /
Posso sim garantir que terá apenas uma barra.
Depois mudei para separar primeiro pelo / e depois pelo espaço pois estava
dando um problema estranho com a quebra de linha.
Enfim. Resolvi o problema. Só que eu gostaria de aprender a fazer isto de
uma maneira mais simples, onde eu passaria as 3 variáveis de uma só vez.
Desta forma eu poderia adaptar fácil para outros casos.. onde por exemplo:
Primeira entrada - 25/Bla
Segunda Entrada de Texto - 2/Tal
Abs
2013/3/18 Ole Peter Smith ole@gmail.com
eu fazia o split(/\s+/,..) primeiro e depois o split(/[\\\/]/,...) depois
(ou melhor ainda: if (=~/[\\\/]/...).
0le
2013/3/18 Ole Peter Smith ole@gmail.com
somente se vc pode garantir que nao ha mais '/' nos strings... caso sim,
tera que tratar isso.
0le
2013/3/18 Guilherme Alves guilhermeareal+ri...@gmail.com
Caros Monges,
venho aqui pedir ajuda de vocês para solucionar o meu problema.
Tenho o seguinte arquivo de texto:
--DATA
25/Bla Primeira Entrada
2/Tal Segunda Entrada de Texto
--DATA
Gostaria de fazer com que o texto fique com:
$var1=25
$var2=Bla
$var3=Primeira Entrada
e
$var1=2
$var2=Tal
$var3=Segunda Entrada de Texto
Para isto fiz um loop para o tratamento de cada linha. No momento uso 2
splits (um para o /e outro para o primeiro espaço em branco)
($var1,$lixo) = split(/,$linha);
($var2,$var3) = split(/\s+/,$lixo,2);
Isto funciona porém o $var3 está ficando estranho, possuindo quebras de
linhas e tal.
Gostaria de saber se existe alguma maneira de eu fazer este split todo
de uma só vez, tipo:
($var1,$var2,$var3) = split(/\s+,$linha,3);
Obrigado pela ajuda..
--
Guilherme Alves
Redes, Sites e Sistemas(RSS) - GRIS-DCC-UFRJ
Grupo de Resposta a Incidentes de Segurança
Conheça o GRIS em www.gris.dcc.ufrj.br
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
--
/
( O O )
=oOO==(_)==OOo=
Every day and every hour, I'm Learning more
The more I Learn, the less I Know about before
The Less I know, the more I want to Look around
Diggin' deeper into Higher Ground... UB40
.oooO Oooo.
==( )=( )=
\ ( ) /
\_) (_/
===
Ole Peter Smith, IME, UFG
http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter -
ole at mat.ufg.br
===
Life sure is a Mystery to be Lived
Not a Problem to be Solved
===
--
/
( O O )
=oOO==(_)==OOo=
Every day and every hour, I'm Learning more
The more I Learn, the less I Know about before
The Less I know, the more I want to Look around
Diggin' deeper into Higher Ground... UB40
.oooO Oooo.
==( )=( )=
\ ( ) /
\_) (_/
===
Ole Peter Smith, IME, UFG
http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter -
ole at mat.ufg.br
===
Life sure is a Mystery to be Lived
Not a Problem to be Solved
===
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
--
Guilherme Alves
Redes, Sites e Sistemas(RSS) - GRIS-DCC-UFRJ
Grupo de Resposta a Incidentes de Segurança
Conheça o GRIS em www.gris.dcc.ufrj.br
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
--
/
( O O )
=oOO==(_)==OOo=
Every day and every hour, I'm Learning more
The more I Learn, the less I Know about before
The Less I know, the more I want to Look around
Diggin' deeper into Higher Ground... UB40
Re: [Rio-pm] remaps (was: IDE para Perl)
caps lock? retirei do teclado... fisicamente hehe... 0le Send via Android On Mar 8, 2013 8:26 AM, Giuliani Sanches giulianisanc...@gmail.com wrote: Já tem algum tempo que alterei o Caps Lock para ser o meu ESC tempo que alterei o Caps Lock para ser o meu ESC alterei o Caps Lock para ser o meu ESC Caps Lock meu ESC Caps Lock ... ESC hehehee Abraço. P.S: O CapsLock dele é que não se sabe onde foi parar, mas capslock é algo pouco usado. Eu movi o meu para uma tecla inutil qualquer a direita do teclado :) Giuliani D. Sanches about.me/giulianisanches 2013/3/7 Renato Santos renato.c...@gmail.com what? e o ESC foi pra onde? 2013/3/7 Diogo Leal estra...@diogoleal.com Já tem algum tempo que alterei o Caps Lock para ser o meu ESC. Foi uma das melhores configurações que fiz no meu ambiente. Diogo Leal [estranho] http://diogoleal.com msn | gtalk: estra...@diogoleal.com 2013/3/7 Nuba Princigalli n...@fastmail.fm: Caros, Vendo isso aqui dá pra entender melhor os keybindings do vim: https://en.wikipedia.org/wiki/Esc_key#Uses Eu vivi com mindinho cansado/dolorido no fim do dia por um certo tempo, mas depois dos remaps, nunca mais. E nem me preocupei em colocar CAPS LOCKS em algum lugar. Foi pro s*. É uma posição muito estratégica (home row, ao lado do A) pra uma tecla tão pouco útil. Para quem não quiser sair remapeando, mas quiser manter a mão mais na área da home row, fica a dica de que * TAB é ^I * ESC é ^[ :D Abraço, Nuba On Sat, Mar 2, 2013, at 09:02 AM, Gabriel Andrade wrote: On Mar 1, 2013, at 11:51 PM, Giuliani Sanches giulianisanc...@gmail.com wrote: Quanto ao Emacs faço uma recomendação: faça sua tecla caps lock virar um control. Você pode inverter ela com o control esquerdo (control vira caps, caps vira control) ou então fazer com que ela simplesmente seja mais um control e migrar o caps para outra tecla como eu fiz no windows com o SharpKeys e quero testar o mesmo no Mac. Leva um tempo para se acostumar mas pode ter certeza, vc estará fazendo um bem imenso para suas mãos (eu recomendo essa mudança pra qqer um e qqer editor, mas ninguém me escuta :) ) +1 ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- Nuba R. Princigalli n...@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@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- Saravá, Renato CRON http://www.renatocron.com/blog/ @renato_cron http://twitter.com/#!/renato_cron ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] remaps (was: IDE para Perl)
aproveitam e troca esses teclas logo, pois apos 20+ anos como eu, mudou as teclas de lugar, ja fico louco 0le 2013/3/7 Renato Santos renato.c...@gmail.com what? e o ESC foi pra onde? 2013/3/7 Diogo Leal estra...@diogoleal.com Já tem algum tempo que alterei o Caps Lock para ser o meu ESC. Foi uma das melhores configurações que fiz no meu ambiente. Diogo Leal [estranho] http://diogoleal.com msn | gtalk: estra...@diogoleal.com 2013/3/7 Nuba Princigalli n...@fastmail.fm: Caros, Vendo isso aqui dá pra entender melhor os keybindings do vim: https://en.wikipedia.org/wiki/Esc_key#Uses Eu vivi com mindinho cansado/dolorido no fim do dia por um certo tempo, mas depois dos remaps, nunca mais. E nem me preocupei em colocar CAPS LOCKS em algum lugar. Foi pro s*. É uma posição muito estratégica (home row, ao lado do A) pra uma tecla tão pouco útil. Para quem não quiser sair remapeando, mas quiser manter a mão mais na área da home row, fica a dica de que * TAB é ^I * ESC é ^[ :D Abraço, Nuba On Sat, Mar 2, 2013, at 09:02 AM, Gabriel Andrade wrote: On Mar 1, 2013, at 11:51 PM, Giuliani Sanches giulianisanc...@gmail.com wrote: Quanto ao Emacs faço uma recomendação: faça sua tecla caps lock virar um control. Você pode inverter ela com o control esquerdo (control vira caps, caps vira control) ou então fazer com que ela simplesmente seja mais um control e migrar o caps para outra tecla como eu fiz no windows com o SharpKeys e quero testar o mesmo no Mac. Leva um tempo para se acostumar mas pode ter certeza, vc estará fazendo um bem imenso para suas mãos (eu recomendo essa mudança pra qqer um e qqer editor, mas ninguém me escuta :) ) +1 ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- Nuba R. Princigalli n...@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@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- Saravá, Renato CRON http://www.renatocron.com/blog/ @renato_cron http://twitter.com/#!/renato_cron ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] IDE para Perl
://mail.pm.org/mailman/listinfo/rio-pm -- Gabriel Vieira ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- Tiago B. Peczenyj Linux User #405772 http://about.me/peczenyj ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] [Passatempo] Interpretador para BrainFuck
Você pode dar continue dentro de um when, aí ele vai fall through para o próximo when. Perl só fez algo inteligente: na maior parte dos casos, normalmente, você *não* quer fall through - mas quando precisa, é só dar continue. Por isso Perl e a linguagem livre, nao 'deve' fazer, mas se sabe o que esta fazendo you're free to do so... 0le -Nilson ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://olepeter.mat.ufg.brhttp://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] Comparação de arquivos
vergonha nada, orgulho, rapaz!
0le
Send via Android
On Nov 26, 2012 1:53 AM, breno br...@rio.pm.org wrote:
Assim vcs me matam de vergonha =P
[]s
-b
2012/11/24 Blabos de Blebe bla...@gmail.com:
Três coisas são infinitas: o universo, a paciência do Breno e a
estupidez humana. Mas, no que respeita ao universo, ainda não adquiri
a certeza absoluta.
2012/11/24 Ole Peter Smith ole@gmail.com:
On Nov 24, 2012 4:52 PM, Aureliano Guedes guedes_1...@hotmail.com
wrote:
Breno, que ser meu orientador... hahaha...
se eu era reitor universitario, eu daria o grau de dr honoratis para o
este
nosso breno, pela sua competencia, vastoconhecimento e infinita
paciencia de
enseminar conhecimentos
0le
Enfim, ficou assim http://pastebin.com/zrpLGwQs
Ha algo que você mudaria???
Date: Sat, 24 Nov 2012 09:45:41 -0200
From: br...@rio.pm.org
To: rio-pm@pm.org
Subject: Re: [Rio-pm] Comparação de arquivos
2012/11/24 Aureliano Guedes guedes_1...@hotmail.com:
Se não for ser muito chato, como faço para seguir a forma abaixo:
2) trocar de abordagem, fazendo seu parser ler linha a linha (sem
modificar $/) e ir acumulando as linhas até encontrar um símbolo
que
indique nova entrada.
seria algo do tipo:
while ($fh){
if(/primeira linha/){
print $_;
}
elsif (/ultima linha/){
#sair do loop
}
else {
print $_
}
}
Algo como (atenção, código não testado):
---8---
my %dados = ();
my $mirna;
my $acumulador;
while (my $linha = $fh) {
if ( $linha =~ m{tag magica (?mirna\S+)} ) {
$dados{$mirna} = $acumulador if $mirna;
$mirna = $+{mirna};
$acumulador = q();
}
else {
$acumulador .= $linha;
}
}
use DDP; p %dados;
---8---
O que isso faz (ou deveria fazer: já mencionei que não testei?
Programar a essa hora da manhã não é meu forte, então favor
desconsiderar qualquer besteira):
1) le o arquivo linha por linha, atribuindo o valor de cada linha a
$linha (sem usar $_)
2) sempre que encontrar a tag mágica que separa entradas (estou
assumindo que a tag indica um novo registro que pode ser chave do seu
hash de dados:
2.1) se já estiver com um registro em memória ($mirna), bota os dados
acumulados ($acumulador) dentro do hash;
2.2) atribui à $mirna o novo registro encontrado. Note que estou
usando grupos nomeados na regex, fazendo (?tag...) em vez de apenas
(...). Isso funciona a partir do 5.10.0 e me permite acessar os
valores agrupados na regex por nome dentro do hash %+. No caso,
acessei o grupo (?mirna) fazendo $+{mirna};
2.2) zera o acumulador.
3) se não encontrar a tag mágica, vai acumulando os dados. Dentro
desse 'else' vc pode fazer coisas como next if $linha =~ /.../ caso
não queira guardar alguma linha, por exemplo.
4) Depois do while vc pode inspecionar %dados para saber se está tudo
ok.
Entendeu?
[]s
-b
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] Comparação de arquivos
On Nov 24, 2012 4:52 PM, Aureliano Guedes guedes_1...@hotmail.com wrote:
Breno, que ser meu orientador... hahaha...
se eu era reitor universitario, eu daria o grau de dr honoratis para o este
nosso breno, pela sua competencia, vastoconhecimento e infinita paciencia
de enseminar conhecimentos
0le
Enfim, ficou assim http://pastebin.com/zrpLGwQs
Ha algo que você mudaria???
Date: Sat, 24 Nov 2012 09:45:41 -0200
From: br...@rio.pm.org
To: rio-pm@pm.org
Subject: Re: [Rio-pm] Comparação de arquivos
2012/11/24 Aureliano Guedes guedes_1...@hotmail.com:
Se não for ser muito chato, como faço para seguir a forma abaixo:
2) trocar de abordagem, fazendo seu parser ler linha a linha (sem
modificar $/) e ir acumulando as linhas até encontrar um símbolo que
indique nova entrada.
seria algo do tipo:
while ($fh){
if(/primeira linha/){
print $_;
}
elsif (/ultima linha/){
#sair do loop
}
else {
print $_
}
}
Algo como (atenção, código não testado):
---8---
my %dados = ();
my $mirna;
my $acumulador;
while (my $linha = $fh) {
if ( $linha =~ m{tag magica (?mirna\S+)} ) {
$dados{$mirna} = $acumulador if $mirna;
$mirna = $+{mirna};
$acumulador = q();
}
else {
$acumulador .= $linha;
}
}
use DDP; p %dados;
---8---
O que isso faz (ou deveria fazer: já mencionei que não testei?
Programar a essa hora da manhã não é meu forte, então favor
desconsiderar qualquer besteira):
1) le o arquivo linha por linha, atribuindo o valor de cada linha a
$linha (sem usar $_)
2) sempre que encontrar a tag mágica que separa entradas (estou
assumindo que a tag indica um novo registro que pode ser chave do seu
hash de dados:
2.1) se já estiver com um registro em memória ($mirna), bota os dados
acumulados ($acumulador) dentro do hash;
2.2) atribui à $mirna o novo registro encontrado. Note que estou
usando grupos nomeados na regex, fazendo (?tag...) em vez de apenas
(...). Isso funciona a partir do 5.10.0 e me permite acessar os
valores agrupados na regex por nome dentro do hash %+. No caso,
acessei o grupo (?mirna) fazendo $+{mirna};
2.2) zera o acumulador.
3) se não encontrar a tag mágica, vai acumulando os dados. Dentro
desse 'else' vc pode fazer coisas como next if $linha =~ /.../ caso
não queira guardar alguma linha, por exemplo.
4) Depois do while vc pode inspecionar %dados para saber se está tudo
ok.
Entendeu?
[]s
-b
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] Onde você usa Perl?
hehehe, sendo um pco ausente do perl em se... mas tenho uns scripts, que ainda uso no meu dia-a-dia, que geram em forma de um documento latex (e em seguida pdf, claro) meus diarios, lista de exercisios (com e sem gabarito), provas e colecoes de provas antigos,... goest without saying, tambem sou um fa de latex... 0le 2012/7/18 Luiz Felipe Pericolo luizperic...@gmail.com: Estou estagiando na Stone Age Tech, na Barra. A empresa em si não usa Perl (por enquanto auhauha), mas atualmente eu usei Perl para criar os SQL de inserts de dados de um CSV de 400mb+ :D 2012/7/18 Nuba Princigalli n...@fastmail.fm Caros, Conversando com o Jim Keenan (NY.PM) de como sabemos pouco sobre que empresas usam Perl aqui, ele me rebateu com uma pergunta muito boa e muito óbvia: já experimentou perguntar na lista? rsrs e realmente, até agora, não mas isso é fácil de resolver! Então lá vai: * Pessoal, em que empresas, instituições, startups, etc. vocês estão usando Perl, ou usaram recentemente, Perl? Aos mais inspirados, fica o convite de contarem também sobre *como* estão usando, e junto com o quê! :) Abraço, Nuba Princigalli -- Nuba R. Princigalli n...@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@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- -- Luiz Felipe da Costa Pericolo Barbosa UFRJ - Ciência da Computação / Computer Science Baykush - Programador / Game Programmer And The Heavens Shall Tremble Stay hungry. Stay foolish. ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] duvida subprocesso e nice
deve ser o default valor nice do SO. Do cron deve ser possivel rodar o comando via nice: /usr/bin/nice -n -20 command arg arg... 0le 2012/6/13 Alexei Znamensky rus...@gmail.com: Talvez o ffmpeg se auto-renice-eie? 2012/6/13 Tiago Peczenyj tiago.pecze...@gmail.com Ola Tenho um script danadinho em perl que é chamado pela crontab. Ele abre um subprocesso para executar o ffmpeg (e fazer algum encoding de video) via open (assim eu posso ler a stdout e monitorar o progresso). Esta acontecendo algo estranho: rodando em um FreeBSD eu vejo o perl rodando com nice 0 e o ffmpeg esta rodando com nice 20. WTF? Eu não estou alterando o nice do processo em momento algum! Inclusive eu tentei executar informando um valor diferente de nice (5 por exemplo) mas no top eu só vejo 20. Pode ser que tenha algum daemon que faça isso sem que eu veja, não descarto esta possibilidade, mas isso é o esperado? deveria rodar o ffmpeg com nice 0 tb, não? É perl 5.12 e não fui eu que fiz (nem tem chamas explicitas a nice ou Posix::nice). Alguma ideia? -- Tiago B. Peczenyj Linux User #405772 http://pacman.blog.br ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- Alexei RUSSOZ Znamensky | russoz EM gmail com | http://russoz.org GPG fingerprint = 42AB E78C B83A AE31 7D27 1CF3 C66F B5C7 71CA 9F3C http://www.flickr.com/photos/alexeiz | http://github.com/russoz I don't know... fly casual! -- Han Solo ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] Golf, brincadeira? ERA: Re: Unzip
Marco Amei estas palavras, que valem nao somente em programacao/it. Em todas as ciencias, simplicidade deve ser considerado como uma criteria de avaliacao de hipoteses e metodos. Mais simples sempre tera mais chance de da certo: Economia de pensamento. E... ficando cada vez mais velho um pco, esse economia esta se fazendo necessario... Marco++ 0le 2012/6/1 Marco Lima braun.l...@gmail.com: O Perl nasceu e faz parte da filosofia Unix! portanto para pensar em programar em Perl ... Esta é a filosofia Unix: Escreva programas que façam apenas uma coisa mas que façam bem feito. Escreva programas que trabalhem juntos. Escreva programas que manipulem streams de texto, pois esta é uma interface universal. Ou, de maneira simples, como: faça apenas uma coisa e faça bem. Algoritmos extravagantes contém mais defeitos que algoritmos simples e são mais difíceis de implementar. Utilize algoritmos simples assim como estrutura de dados simples. O dado domina. Se você escolher a estrutura de dados certa e organizar bem as coisas, os algoritmos surgirão naturalmente. O elemento central da programação é a estrutura de dados, não o algoritmo. Unix is simple. It just takes a genius to understand its simplicity. – Dennis Ritchie O pequeno é belo e o pior é melhor (worse is better) Favoreça simplicidade sobre a perfeição! Keep it Simple, Stupid. [ ]++ Marco Lima braun.l...@gmail.com im:m...@jabber-br.org Register Linux User #483170 Slackware Linux, for the subgenius Aquele que pensa que é demasiado grande para fazer trabalhos pequenos é talvez demasiado pequeno para realizar grandes trabalhos. Ter acesso ao conhecimento é um dever de todos; transmitir conhecimento é um dever de quem tem. Na visão do hacker, o sentido da vida está em dedicar-se a uma paixão. Esta paixão é, na realidade, uma atividade significativa, inspiradora e prazerosa para o indivíduo, seja ela rotulada como trabalho ou como diversão. Ninguém é tão grande que não possa aprender, e nem tão pequeno que não possa ensinar Compartilhe o seu conhecimento. É uma maneira de alcançar a imortalidade Em 1 de junho de 2012 22:31, Bruno Buss bruno.b...@gmail.com escreveu: 2012/6/1 Raphael Carpi (GMAIL) raphael.ca...@gmail.com até onde eu me lembro programar é oferecer a solução do problema com o menor caminho possivel Não, isso é golf... e é uma brincadeira. Programar, emho, é desenvolver uma solução elegante e eficiente ;-) (E claro que pode existir interseção entre golfs e solução elegantes e eficientes =P) [ ]'s -- Bruno C. Buss http://www.brunobuss.net ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
Re: [Rio-pm] Ajuda com configuração do CPAN
1) Configure o cpan numa máquina. 2) Nesta máquina, faça `cpan -J SeuArquivoDeConfiguracao.pm` 3) Copie esse arquivo para as outras máquinas. 4) Basta executar o cpan nas outras máquinas com `cpan -j SeuArquivoDeConfiguracao.pm`. Perl e fera So Unix-like... hiiix! 0le -- / ( O O ) =oOO==(_)==OOo= Every day and every hour, I'm Learning more The more I Learn, the less I Know about before The Less I know, the more I want to Look around Diggin' deeper into Higher Ground... UB40 .oooO Oooo. ==( )=( )= \ ( ) / \_) (_/ === Ole Peter Smith, IME, UFG http://www.mat.ufg.br/docentes/olepeter - ole at mat.ufg.br === Life sure is a Mystery to be Lived Not a Problem to be Solved === ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
