Re: [Rio-pm] ES

[Fernando Oliveira]

Aqui! Vc tá no Rio?!

via Newton Mail 
[https://cloudmagic.com/k/d/mailapp?ct=pi=9.8.195=11.2.6=email_footer_2]
On qua, mar 14, 2018 at 19:45, Blabos de Blebe <bla...@gmail.com> wrote:
kd vcs?
2018-03-14 19:37 GMT-03:00 Fernando Oliveira < fernandocor...@gmail.com 
[fernandocor...@gmail.com] > :
Chegando
Em qua, 14 de mar de 2018 às 18:57, breno < oainikus...@gmail.com 
[oainikus...@gmail.com] > escreveu:
Já chegaram? To saindo 19:30 pro Mercadinho!

On Wed, Mar 14, 2018 at 10:36 AM Fernando Oliveira < fernandocor...@gmail.com 
[fernandocor...@gmail.com] > wrote:
é hj!!! espero vcs lá!



Just another Perl Hacker,
Fernando (SmokeMachine)
Em 13 de março de 2018 10:02, breno < oainikus...@gmail.com 
[oainikus...@gmail.com] > escreveu:
VAMOS!! É amanhã, hein?! \o/

Lá no Mercadinho, onde era o Botero agora é um São Bartô, que tem cervejas e 
sanduíches interessantes! Por mim, tá fechado :D

[]s
-b

On Tue, Mar 6, 2018 at 11:38 PM Fabio Martins < fosf...@gmail.com 
[fosf...@gmail.com] > wrote:
nozes. dentro.

--
[]s Fosforo (x9p)
-- -- -
--
-- -- -
2018-03-06 18:23 GMT-03:00 Fernando Oliveira < fernandocor...@gmail.com 
[fernandocor...@gmail.com] > :
Estou passando por aqui só p/ lembrar q o próximo ES será dia 14 agora!
Mercadinho?

Just another Perl Hacker,
Fernando (SmokeMachine)
__ _
Rio-pm mailing list
Rio-pm@pm.org [Rio-pm@pm.org]
http://mail.pm.org/mailman/ listinfo/rio-pm 
[http://mail.pm.org/mailman/listinfo/rio-pm]


__ _
Rio-pm mailing list
Rio-pm@pm.org [Rio-pm@pm.org]
http://mail.pm.org/mailman/ listinfo/rio-pm 
[http://mail.pm.org/mailman/listinfo/rio-pm]

__ _
Rio-pm mailing list
Rio-pm@pm.org [Rio-pm@pm.org]
http://mail.pm.org/mailman/ listinfo/rio-pm 
[http://mail.pm.org/mailman/listinfo/rio-pm]


__ _
Rio-pm mailing list
Rio-pm@pm.org [Rio-pm@pm.org]
http://mail.pm.org/mailman/ listinfo/rio-pm 
[http://mail.pm.org/mailman/listinfo/rio-pm]
__ _
Rio-pm mailing list
Rio-pm@pm.org [Rio-pm@pm.org]
http://mail.pm.org/mailman/ listinfo/rio-pm 
[http://mail.pm.org/mailman/listinfo/rio-pm]

__ _
Rio-pm mailing list
Rio-pm@pm.org [Rio-pm@pm.org]
http://mail.pm.org/mailman/ listinfo/rio-pm 
[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] ES

[Fernando Oliveira]

Chegando
Em qua, 14 de mar de 2018 às 18:57, breno <oainikus...@gmail.com> escreveu:

> Já chegaram? To saindo 19:30 pro Mercadinho!
>
> On Wed, Mar 14, 2018 at 10:36 AM Fernando Oliveira <
> fernandocor...@gmail.com> wrote:
>
>> é hj!!! espero vcs lá!
>>
>>
>>
>>
>> Just another Perl Hacker,
>> Fernando (SmokeMachine)
>>
>> Em 13 de março de 2018 10:02, breno <oainikus...@gmail.com> escreveu:
>>
>>> VAMOS!! É amanhã, hein?! \o/
>>>
>>> Lá no Mercadinho, onde era o Botero agora é um São Bartô, que tem
>>> cervejas e sanduíches interessantes! Por mim, tá fechado :D
>>>
>>> []s
>>> -b
>>>
>>> On Tue, Mar 6, 2018 at 11:38 PM Fabio Martins <fosf...@gmail.com> wrote:
>>>
>>>> nozes. dentro.
>>>>
>>>> --
>>>> []s Fosforo (x9p)
>>>> -
>>>> --
>>>> -
>>>>
>>>> 2018-03-06 18:23 GMT-03:00 Fernando Oliveira <fernandocor...@gmail.com>
>>>> :
>>>>
>>>>> Estou passando por aqui só p/ lembrar q o próximo ES será dia 14 agora!
>>>>>
>>>>> Mercadinho?
>>>>>
>>>>> Just another Perl Hacker,
>>>>> Fernando (SmokeMachine)
>>>>>
>>>>> ___
>>>>> 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] ES

[Fernando Oliveira]

é hj!!! espero vcs lá!




Just another Perl Hacker,
Fernando (SmokeMachine)

Em 13 de março de 2018 10:02, breno <oainikus...@gmail.com> escreveu:

> VAMOS!! É amanhã, hein?! \o/
>
> Lá no Mercadinho, onde era o Botero agora é um São Bartô, que tem cervejas
> e sanduíches interessantes! Por mim, tá fechado :D
>
> []s
> -b
>
> On Tue, Mar 6, 2018 at 11:38 PM Fabio Martins <fosf...@gmail.com> wrote:
>
>> nozes. dentro.
>>
>> --
>> []s Fosforo (x9p)
>> -
>> --
>> -----
>>
>> 2018-03-06 18:23 GMT-03:00 Fernando Oliveira <fernandocor...@gmail.com>:
>>
>>> Estou passando por aqui só p/ lembrar q o próximo ES será dia 14 agora!
>>>
>>> Mercadinho?
>>>
>>> Just another Perl Hacker,
>>> Fernando (SmokeMachine)
>>>
>>> ___
>>> 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] ES

[Fernando Oliveira]

Estou passando por aqui só p/ lembrar q o próximo ES será dia 14 agora!

Mercadinho?

Just another Perl Hacker,
Fernando (SmokeMachine)
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] (sem assunto)

[Fernando Oliveira]

Enviado do meu iPhone

> Em 24 de mar de 2017, às 14:18, Aureliano Guedes  
> escreveu:
> 
> Eu resolvi o problema, era so eu retornar um array de resultados da recurção 
> [caso tenha] e incluir juntar com o array da interação anterior sempre que 
> terminar uma das recurções.
> 
> Quanto a dúvida da string, seria forçar uma string vazia (uma string que não 
> está guardando nenhuma referência) virar um array;
> 
> my @a = qw(a b c d e);
> 
> my $b = \@a; #isso é uma string com o endereço de memoria do array 
> (referÊncia)
> 
Não, isso não é uma string, isso é uma variável scalar com uma referencia
> 
> my $b;
> 
> @$b = qw(a b c d e); #isso é um array forçado
> 
Nao, isso é uma variável escalar com uma referencia e sendo desreferenciado. E 
isso funciona graças a auto-vivificação
> 
> mas a dúvida é, o que fica em $b?
> 
Como eu disse, $b é uma referencia a array
> Pelo que me parece ele cria automaticamente uma referência pra um array 
> anonimo que dereferenciado por @$b 
> 
Autovivificação
> 
> O que me leva a crer que
> my @a = qw(a b c d e);
> 
> my $b = \@a;
> 
A única diferença é @a não ser anônimo 
> 
> é o mesmo que
> 
> my $b ;
> 
> @$b = qw(a b c d e);j
> From: Rio-pm  on behalf of 
> Andre Carneiro 
> Sent: Friday, March 24, 2017 4:54:22 PM
> To: Perl Mongers Rio de Janeiro
> Subject: Re: [Rio-pm] (sem assunto)
>  
> Creio que você esteja pensando nisso errado!
> 
> Se vc tem uma String em $S, você não tem uma referência para array @A. Se 
> você quer uma referência do array @A em $S, você pode fazer:
> 
> my $S = \@A;
> 
> Eu sugiro que você use Data::Printer ou mesmo Data::Dumper para ver o 
> conteúdo das variáveis.
> 
> Quanto ao problema da string, não sei se entendi o que vc quer. Vou dizer 
> como transformar uma string em array sem usar 'join'.
> 
> 
> use strict;
> use warnings;
> use feature qw/say/;
> use Data::Printer colored => 1;
> 
> my $s = "WHATEVER";
> my @A = split //,$s;
> 
> print p @A;
> 
> 
> 
> 
> 
> 
> 
> 2017-03-22 19:14 GMT-03:00 Aureliano Guedes :
>> Olá monges,
>> 
>> Estou com uma série de dúvidas relacionada a uma rotina que estou fazendo;
>> 
>> Dado um hash de arrays eu preciso construir uma hierarquia não redundante 
>> dos valores desse array.
>> 
>> Tudo esta explicado melhor em :
>> http://pastebin.com/64fJvYr6
>> 
>> Duas dúvidas surgiram meio essa questão
>> 1- Como forçar uma string virar um array sem fazer join dos valores, sendo 
>> que a string não está guardando uma referência?
>> Algo como:
>> my $s;
>> @$s = qw(a b c d e);
>> 
>> 
>> 2- Se eu tenho uma string $S que guarda uma referencia para um array @A, 
>> essa string está dentro de uma rotina e a rotina é recursiva, e precisa 
>> enviar os valores da string S para a recursão, o que deve ser enviado é a 
>> string $S ou o array @$S? 
>> sub teste{
>> 
>> my ($S) = @_;
>> 
>> teste(\@$S) # ou simplesmente $S?
>> }
>> 
>> Desde já grato.
>> 
>> Att,
>> acp
>> 
>> ___
>> Rio-pm mailing list
>> Rio-pm@pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
> 
> 
> 
> -- 
> André Garcia Carneiro
> Software Engineer
> (11)982907780
> ___
> 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] Função uniq com bug ou erro no codigo?

[Fernando Oliveira]

Enviado do meu iPhone

> Em 5 de mar de 2017, às 17:19, Gabriel Vieira <gabriel.vie...@gmail.com> 
> escreveu:
> 
> GOLF???!?!?! \o/
> 
> 
> NÃO RETORNA NECESSARIAMENTE NA ORDEM ENCONTRADA (76 chars)
> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM"|perl -nE'@x{/\w+/g}++;say keys%x'
https://glot.io/snippets/enq3cdjqa5
> 
> MANTÉM A ORDEM (76 chars)
> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM"|perl -nE'$x{$_}++||say for/\w+/g'
https://glot.io/snippets/enq3dys5ew
> 
> 2017-03-05 12:43 GMT-05:00 Aureliano Guedes <guedes_1...@hotmail.com>:
>> Obrigado, era so o chomp mesmo.
>> 
>> Perl6 é interessante mas pra agora não seria ideal.
>> A solução com array seria a melhor talvez, mas ate tentei
>> 
>> 
>> echo "WXG+WXG+PT-COG5412+Tox-SHH+TM+TM+TM+TM" | perl -MDDP -nE 
>> 'foreach(split /\+/){$a{$_}++}; p %a'
>> 
>> 
>> Mas deu problema que fiquei com preguissa de tratar. saiu linha em branco e 
>> a ultima repetição.
>> 
>> Obrigado monges
>> 
>> 
>> 
>> From: Rio-pm <rio-pm-bounces+guedes_1000=hotmail@pm.org> on behalf of 
>> Fernando Oliveira <fernandocor...@gmail.com>
>> Sent: Sunday, March 5, 2017 5:15:08 PM
>> To: Perl Mongers Rio de Janeiro
>> Subject: Re: [Rio-pm] Função uniq com bug ou erro no codigo?
>>  
>>>> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl6 -n 'say set .split: "+"'
>> 
>> Enviado do meu iPhone
>> 
>> Em 5 de mar de 2017, às 13:59, Fernando Oliveira <fernandocor...@gmail.com> 
>> escreveu:
>> 
>>> Eu não sei qual é o problema, mas tenho uma sugestão de solução (código não 
>>> testado, tô no celular):
>>>> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl -nE '%a{split "+"}++; 
>>>> say keys %a}'
>>> 
>>> Enviado do meu iPhone
>>> 
>>> Em 5 de mar de 2017, às 13:51, Lucas Mateus 
>>> <lucasmateus.olive...@gmail.com> escreveu:
>>> 
>>>> É algum bug no código
>>>> 
>>>> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | xargs perl -MList::Util=uniq 
>>>> -MDDP -e '@a=uniq(split(/\+/,$ARGV[0]));p @a'
>>>> 
>>>> Em 5 de março de 2017 13:35, Aureliano Guedes <guedes_1...@hotmail.com> 
>>>> escreveu:
>>>>> Ola,
>>>>> 
>>>>> Caros Monges.
>>>>> 
>>>>> Estou com uma pequena dúvida.
>>>>> Estou usando a função uniq (List::Util e List::MoreUtils) para reduzir a 
>>>>> redundância de um array.
>>>>> 
>>>>> 
>>>>> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl -MList::Util='uniq' 
>>>>> -MDDP -ne '@a = uniq (split (/\+/, $_)); print "\n"; p @a; print "\n"'
>>>>> 
>>>>> 
>>>>> Separa os elementos pelo '+' e depois remove a redundância. Acontece que 
>>>>> o ultimo elemento for redundante ele não é eliminado.
>>>>> 
>>>>> Alguém sabe o porque disso??
>>>>> 
>>>>> Alguma sujestão de como reverter sem q eu tenha que criar um script pra 
>>>>> isso ou minha propria rotina uniq??
>>>>> 
>>>>> Desde já grato.
>>>>> 
>>>>> 
>>>>> ___
>>>>> 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
> 
> 
> 
> -- 
> Gabriel Vieira
> ___
> 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] Função uniq com bug ou erro no codigo?

[Fernando Oliveira]

>> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl6 -n 'say set .split: "+"'

Enviado do meu iPhone

> Em 5 de mar de 2017, às 13:59, Fernando Oliveira <fernandocor...@gmail.com> 
> escreveu:
> 
> Eu não sei qual é o problema, mas tenho uma sugestão de solução (código não 
> testado, tô no celular):
>> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl -nE '%a{split "+"}++; say 
>> keys %a}'
> 
> Enviado do meu iPhone
> 
>> Em 5 de mar de 2017, às 13:51, Lucas Mateus <lucasmateus.olive...@gmail.com> 
>> escreveu:
>> 
>> É algum bug no código
>> 
>> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | xargs perl -MList::Util=uniq 
>> -MDDP -e '@a=uniq(split(/\+/,$ARGV[0]));p @a'
>> 
>> Em 5 de março de 2017 13:35, Aureliano Guedes <guedes_1...@hotmail.com> 
>> escreveu:
>>> Ola,
>>> 
>>> Caros Monges.
>>> 
>>> Estou com uma pequena dúvida.
>>> Estou usando a função uniq (List::Util e List::MoreUtils) para reduzir a 
>>> redundância de um array.
>>> 
>>> 
>>> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl -MList::Util='uniq' -MDDP 
>>> -ne '@a = uniq (split (/\+/, $_)); print "\n"; p @a; print "\n"'
>>> 
>>> 
>>> Separa os elementos pelo '+' e depois remove a redundância. Acontece que o 
>>> ultimo elemento for redundante ele não é eliminado.
>>> 
>>> Alguém sabe o porque disso??
>>> 
>>> Alguma sujestão de como reverter sem q eu tenha que criar um script pra 
>>> isso ou minha propria rotina uniq??
>>> 
>>> Desde já grato.
>>> 
>>> 
>>> ___
>>> 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] Função uniq com bug ou erro no codigo?

[Fernando Oliveira]

Eu não sei qual é o problema, mas tenho uma sugestão de solução (código não 
testado, tô no celular):
> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl -nE '%a{split "+"}++; say 
> keys %a}'

Enviado do meu iPhone

> Em 5 de mar de 2017, às 13:51, Lucas Mateus  
> escreveu:
> 
> É algum bug no código
> 
> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | xargs perl -MList::Util=uniq 
> -MDDP -e '@a=uniq(split(/\+/,$ARGV[0]));p @a'
> 
> Em 5 de março de 2017 13:35, Aureliano Guedes  
> escreveu:
>> Ola,
>> 
>> Caros Monges.
>> 
>> Estou com uma pequena dúvida.
>> Estou usando a função uniq (List::Util e List::MoreUtils) para reduzir a 
>> redundância de um array.
>> 
>> 
>> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl -MList::Util='uniq' -MDDP 
>> -ne '@a = uniq (split (/\+/, $_)); print "\n"; p @a; print "\n"'
>> 
>> 
>> Separa os elementos pelo '+' e depois remove a redundância. Acontece que o 
>> ultimo elemento for redundante ele não é eliminado.
>> 
>> Alguém sabe o porque disso??
>> 
>> Alguma sujestão de como reverter sem q eu tenha que criar um script pra isso 
>> ou minha propria rotina uniq??
>> 
>> Desde já grato.
>> 
>> 
>> ___
>> 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] ES de Fevereiro

[Fernando Oliveira]

$ perl6 -MDateTime::Extended -e 'say date-extended.next-riopm-social'

2017-02-10




Just another Perl Hacker,
Fernando (SmokeMachine)

Em 4 de fevereiro de 2017 17:38, Fernando Oliveira <fernandocor...@gmail.com
> escreveu:

> Mercadinho?
>
> Enviado do meu iPhone
>
> Em 4 de fev de 2017, às 16:51, breno <oainikus...@gmail.com> escreveu:
>
> Algum lugar perto do largo do machado?
>
> On Sat, Feb 4, 2017 at 4:19 PM Rodrigo Mosconi (perl) <p...@mosconi.mat.br>
> wrote:
>
>> E onde será?
>>
>> Em 3 de fevereiro de 2017 17:09, Fernando Oliveira <
>> fernandocor...@gmail.com> escreveu:
>>
>> 2a sexta-feira de fevereiro! Dia 10!
>>
>> Enviado do meu iPhone
>>
>> > Em 3 de fev de 2017, às 16:59, Rodrigo Mosconi (perl) <
>> p...@mosconi.mat.br> escreveu:
>> >
>> > Então pessoal,
>> > onde e quando será o ES de Fevereiro?
>> >
>> > Att,
>> >
>> > Mosconi
>> >
>> > ___
>> > 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] ES de Fevereiro

[Fernando Oliveira]

2a sexta-feira de fevereiro! Dia 10!

Enviado do meu iPhone

> Em 3 de fev de 2017, às 16:59, Rodrigo Mosconi (perl)  
> escreveu:
> 
> Então pessoal, 
> onde e quando será o ES de Fevereiro?
> 
> Att,
> 
> Mosconi
> 
> ___
> 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] Site rio.pm.org

[Fernando Oliveira]

aqui: https://github.com/Rio-Perl-Mongers/rio.pm.org/tree/gh-pages

Em 16 de jan de 2017, à(s) 23:26, Blabos de Blebe 
escreveu:

A gente tinha os fonte dele em algum lugar

2017-01-14 12:15 GMT-02:00 Robson Mothé :

> Blz, é só me passarem os dados do site para bolarmos algo. Sou o novo
> voluntário para cuidar do site da rio.pm.org, se todos concordarem, é
> claro!
>
> Em 14 de janeiro de 2017 12:11, breno  escreveu:
>
>> Oi Robson! Continua sendo o Rafael, até onde sei :D
>>
>> Uma das coisas que o Nuba nos ensinou foi que o importante é levar
>> iniciativas pro grupo, por isso Fernando e eu levantamos a bola do ES e ele
>> aproveitou pra criar o grupo no Telegram. E uma das coisas que o Rafael nos
>> ensinou é que qualquer desculpa para beber em grupo está imediatamente
>> apoiada :P
>>
>> Sobre quem está cuidando do site, não faço ideia... está se
>> voluntariando? :D
>>
>> []s
>> -b
>>
>> On Sat, Jan 14, 2017 at 11:28 AM Robson Mothé  wrote:
>>
>>> Pessoal, andei vendo o site e parece que está desatualizado. Alguém sabe
>>> quem está cuidando dele?
>>>
>>> Outra coisa, o último líder listado lá é o Rafael Oliveira Lopes
>>> (2014...)... Quem é o atual líder?
>>>
>>>
>>> --
>>> Robson Mothé
>>> Register Linux User #318909 
>>> rmo...@gmail.com
>>> +55 (21) 99888-1021 <+55%2021%2099888-1021>
>>> ___
>>> 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
>>
>
>
>
> --
> Robson Mothé
> Register Linux User #318909 
> rmo...@gmail.com
> +55 (21) 99888-1021 <+55%2021%2099888-1021>
>
> ___
> 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] Site rio.pm.org

[Fernando Oliveira]

No gh-pages tá o atual...
> Em 16 de jan de 2017, à(s) 23:28, Blabos de Blebe  escreveu:
> 
> Minha mão do céu, achei.
> 
> Mas tá feito com Mojolicioius em uma versão pré-histórica
> 
> https://github.com/Rio-Perl-Mongers/rio.pm.org 
> 
> 
> 2017-01-16 23:26 GMT-02:00 Blabos de Blebe  >:
> A gente tinha os fonte dele em algum lugar
> 
> 2017-01-14 12:15 GMT-02:00 Robson Mothé  >:
> Blz, é só me passarem os dados do site para bolarmos algo. Sou o novo 
> voluntário para cuidar do site da rio.pm.org , se todos 
> concordarem, é claro!
> 
> Em 14 de janeiro de 2017 12:11, breno  > escreveu:
> Oi Robson! Continua sendo o Rafael, até onde sei :D
> 
> Uma das coisas que o Nuba nos ensinou foi que o importante é levar 
> iniciativas pro grupo, por isso Fernando e eu levantamos a bola do ES e ele 
> aproveitou pra criar o grupo no Telegram. E uma das coisas que o Rafael nos 
> ensinou é que qualquer desculpa para beber em grupo está imediatamente 
> apoiada :P
> 
> Sobre quem está cuidando do site, não faço ideia... está se voluntariando? :D
> 
> []s
> -b
> 
> On Sat, Jan 14, 2017 at 11:28 AM Robson Mothé  > wrote:
> Pessoal, andei vendo o site e parece que está desatualizado. Alguém sabe quem 
> está cuidando dele?
> 
> Outra coisa, o último líder listado lá é o Rafael Oliveira Lopes 
> (2014...)... Quem é o atual líder?
> 
> 
> -- 
> Robson Mothé
> Register Linux User #318909 
> rmo...@gmail.com 
> +55 (21) 99888-1021 
> ___
> 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 
> 
> 
> 
> 
> -- 
> Robson Mothé
> Register Linux User #318909 
> rmo...@gmail.com 
> +55 (21) 99888-1021 
> 
> ___
> 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] Site rio.pm.org

[Fernando Oliveira]

aqui: https://github.com/Rio-Perl-Mongers/rio.pm.org/tree/gh-pages
> Em 16 de jan de 2017, à(s) 23:26, Blabos de Blebe  escreveu:
> 
> A gente tinha os fonte dele em algum lugar
> 
> 2017-01-14 12:15 GMT-02:00 Robson Mothé  >:
> Blz, é só me passarem os dados do site para bolarmos algo. Sou o novo 
> voluntário para cuidar do site da rio.pm.org , se todos 
> concordarem, é claro!
> 
> Em 14 de janeiro de 2017 12:11, breno  > escreveu:
> Oi Robson! Continua sendo o Rafael, até onde sei :D
> 
> Uma das coisas que o Nuba nos ensinou foi que o importante é levar 
> iniciativas pro grupo, por isso Fernando e eu levantamos a bola do ES e ele 
> aproveitou pra criar o grupo no Telegram. E uma das coisas que o Rafael nos 
> ensinou é que qualquer desculpa para beber em grupo está imediatamente 
> apoiada :P
> 
> Sobre quem está cuidando do site, não faço ideia... está se voluntariando? :D
> 
> []s
> -b
> 
> On Sat, Jan 14, 2017 at 11:28 AM Robson Mothé  > wrote:
> Pessoal, andei vendo o site e parece que está desatualizado. Alguém sabe quem 
> está cuidando dele?
> 
> Outra coisa, o último líder listado lá é o Rafael Oliveira Lopes 
> (2014...)... Quem é o atual líder?
> 
> 
> -- 
> Robson Mothé
> Register Linux User #318909 
> rmo...@gmail.com 
> +55 (21) 99888-1021 
> ___
> 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 
> 
> 
> 
> 
> -- 
> Robson Mothé
> Register Linux User #318909 
> rmo...@gmail.com 
> +55 (21) 99888-1021 
> 
> ___
> 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] Mudança de dias de ES

[Fernando Oliveira]

Pessoal, estávamos conversando no grupo do telegram (https://telegram.me/riopm) 
e parece q estamos tendendo a mudar os dias dos nossos ESs.
O caso é que tem gente q não consegue ir quinta-feira. Assim como tem gente que 
não pode na 5a, deve ter gente q não pode outros dias. Então a proposta é 
fazermos algo parecido com o que o Vienna.pm fez: mudar o dia de semana dos ESs 
cada mês. Janeiro o ES foi na 2a quinta-feira do mês. A proposta é fevereiro o 
ES ser na 2a sexta-feira, março ser na 2a segunda-feira, abril, na 2a 
terça-feira… assim por diante…

p/ não ficar duvida:

$ perl6 -e 'my $wd = 3; for 2017 .. * -> $year { for 1 .. 12 -> $month { say 
"{$month.fmt("%02d")}/$year: {($wd++ % 5) + 2}ª-feira" } }'
01/2017: 5ª-feira
02/2017: 6ª-feira
03/2017: 2ª-feira
04/2017: 3ª-feira
05/2017: 4ª-feira
06/2017: 5ª-feira
07/2017: 6ª-feira
08/2017: 2ª-feira
09/2017: 3ª-feira
10/2017: 4ª-feira
11/2017: 5ª-feira
12/2017: 6ª-feira
01/2018: 2ª-feira
02/2018: 3ª-feira
03/2018: 4ª-feira
04/2018: 5ª-feira
05/2018: 6ª-feira
06/2018: 2ª-feira
07/2018: 3ª-feira
08/2018: 4ª-feira
09/2018: 5ª-feira
10/2018: 6ª-feira
11/2018: 2ª-feira
12/2018: 3ª-feira
01/2019: 4ª-feira
02/2019: 5ª-feira
03/2019: 6ª-feira
04/2019: 2ª-feira
05/2019: 3ª-feira
06/2019: 4ª-feira

O q vcs acham?___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

[Rio-pm] Grupo no telegram

[Fernando Oliveira]

Acabei de criar um grupo no telegram para agente: http://t.me/riopm___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] (sem assunto)

[Fernando Oliveira]

Oi Aureliano!

o diamante (<>) pode resolver isso p/ vc.

se vc não passa um arquivo, ele le da stdin:

$ echo "bla" | perl -E 'say while <>'

bla


mas se vc passa um (ou mais) arquivo(s), ele o(s) le:

$ echo test > file$ perl -E 'say while <>' file

test


outras opções que facilitam ainda mais (vc não precisa nem usar o while) é
usar o -n e o -p...





Just another Perl Hacker,
Fernando (SmokeMachine)

Em 10 de novembro de 2016 20:43, Aureliano Guedes 
escreveu:

> Ola monges,
>
>
> Tenho uma pergunta simples pra vocês.
>
>
> Eu tenho um script que abre um arquivo e printa o resultado na saida
> padrão.
>
>
> Os parâmetros adicionais são processados via Getopt::Long;
>
>
> Bom, o que eu queria era fazer algo mais Unix style.
>
>
> Quero poder receber o nome do arquivo para abrir ou poder redirecionar a
> saida padrão pro script caso esteja em um pipeline.
>
>
> Por exemplo, hoje, se eu der um grep em um arquivo pra depois passar pro
> script eu tenho que fazer:
>
> $ grep '' arquivo >arquivo.tmp
>
> $ script.pl arquivo.tmp
>
>
> Eu quero poder fazer algo no estilo
>
> $ grep '' arquivo | script.pl
>
>
> Como eu poderia fazer isso? lembrando que eu posso passar pro script mais
> parametros se precisar
>
>
> Abraços,
>
> ___
> 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] Encontro Social

[Fernando Oliveira]

Pessoal!

Isso aqui tá muito parado!
Por isso estou sugerindo um retorno às origens!
ES do mes q vem no mercadinho São José!

Quem vai?!



Just another Perl Hacker,
Fernando (SmokeMachine)
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] RES: RES: [SP-pm] Testando o Slack (https://brazil-pm.slack.com)

[Fernando Oliveira]

Não rola de fazer um bot p/ convidar?

-- 
Fernando Oliveira

Em 6 de maio de 2016 às 10:36:01, João Gabriel Casteluber Laass (
gabr...@joaogabriel.org) escreveu:

> Aceito convite: gabr...@joaogabriel.org
>
> abraços,
> João Gabriel
> ___
> 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] Testando o Slack (https://brazil-pm.slack.com)

[Fernando Oliveira]

Eu quero convite tb pf!
Agora, se obrigatoriamente precisarmos do mesmo domínio de e-mail, talvez
seja mais abrangente usar o @cpan...

Em segunda-feira, 11 de abril de 2016, Otávio Fernandes 
escreveu:

> Olá Renan,
>
> Eu acho que convite automático vai requerer usar um domínio conhecido de
> email, e a maioria dos nossos usuários vão usar os conhecidos
> Gmail/Hotmail/etc. Você conhece uma forma de fazer isso mesmo com
> provedores tão diferentes de email? O Slack vincula o acesso ao provedor de
> email a sua conta, e por este motivo é mais complicado aceitar todo mundo
> que é @gmail.com.
>
> Valeu!
>
> -- OF
>
> 2016-04-11 11:34 GMT+02:00 Renan Carvalho <
> renan.azevedo.carva...@gmail.com
> >:
>
>> Otavio, bom dia
>>
>> Hoje a maioria dos canais do slack estão utilizando o convite automático,
>> acho que seria melhor do que ficar preso esperando alguem fazer convite.
>>
>> Dessa forma podemos divulgar e só disponibilizar o link para se
>> convidarem.
>>
>> obs: gostei da iniciativa
>> Em 11/04/2016 05:52, "Otávio Fernandes" > > escreveu:
>>
>>> Olá,
>>>
>>> Estamos testando o Slack como uma alternativa pro IRC. A ideia é juntar
>>> mais gente relacionada ao Perl do que só a São-Paulo.PM ou Rio.PM,
>>> portanto, sinta-se a vontade para se juntar e convidar mais gente pra
>>> participar. Lá dentro nós podemos nos re-organizar em grupos menores,
>>> porem, a plataforma é uma só para quem está relacionado ao assunto Perl no
>>> Brasil (Brazil).
>>>
>>> Os convites inicialmente são apenas via email, porem, todo mundo pode
>>> convidar outras pessoas, se você precisa de um convite, por favor me dê um
>>> toque. :-)
>>>
>>> Com o Slack abrimos um bom leque de opções para integrações, interface
>>> mobile e estamos também modernizando como fazemos a nossa comunicação,
>>> portando, sinta-se à vontade pra explorar e brincar com as alternativas que
>>> este serviço oferece, comente sobre as suas idéias.
>>>
>>> https://brazil-pm.slack.com
>>>
>>> Um abraço,
>>>
>>> -- OF
>>>
>>> ___
>>> 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
>>
>
>

-- 



Just another Perl Hacker,
Fernando (SmokeMachine)
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] ES de Junho

[Fernando Oliveira]

Eu TO aqui!


On 11 de jun de 2015 19:50 -0300, Blabos de Blebebla...@gmail.com, wrote:
 Putz, não to achando vcs :(
  
 2015-06-11 19:46 GMT-03:00 Rodrigo Mosconi 
 (perl)p...@mosconi.mat.br(mailto:p...@mosconi.mat.br):
   
  Estamos (eu e Vicente) em pé perto sa entrada
   
  On Jun 11, 2015 7:41 PM, Blabos de 
  Blebebla...@gmail.com(mailto:bla...@gmail.com)wrote:
   Levanta a mão aí para eu te ver!!!



   2015-06-11 18:58 GMT-03:00 Rodrigo Mosconi 
   (perl)p...@mosconi.mat.br(mailto:p...@mosconi.mat.br):
 
@colarinho, mais alguém chegou, ou está a caminho?
 
On Jun 11, 2015 3:30 PM, Blabos de 
Blebebla...@gmail.com(mailto:bla...@gmail.com)wrote:
 Prefiro na Barra
  
 2015-06-11 10:58 GMT-03:00 Rafael 
 Lopesrafaoliveiralo...@gmail.com(mailto:rafaoliveiralo...@gmail.com):
  Colarinho é um excelente lugar.33
   
  Pena que não poderei ir. Aproveitem e bebam uma por mim. =(
   
  []s
  bola
   
  2015-06-11 1:35 GMT-03:00 Blabos de 
  Blebebla...@gmail.com(mailto:bla...@gmail.com):
   Barra?

   On Wed, Jun 10, 2015 at 10:59 PM, Rodrigo Mosconi 
   (perl)p...@mosconi.mat.br(mailto:p...@mosconi.mat.br)wrote:
ok, ES no colarinho 19h
 
 
 
___
Rio-pm mailing list
Rio-pm@pm.org(mailto:Rio-pm@pm.org)
http://mail.pm.org/mailman/listinfo/rio-pm


   ___
   Rio-pm mailing list
   Rio-pm@pm.org(mailto:Rio-pm@pm.org)
   http://mail.pm.org/mailman/listinfo/rio-pm
   
   
  ___
  Rio-pm mailing list
  Rio-pm@pm.org(mailto:Rio-pm@pm.org)
  http://mail.pm.org/mailman/listinfo/rio-pm
  
  
 ___
 Rio-pm mailing list
 Rio-pm@pm.org(mailto:Rio-pm@pm.org)
 http://mail.pm.org/mailman/listinfo/rio-pm
 
___
Rio-pm mailing list
Rio-pm@pm.org(mailto:Rio-pm@pm.org)
http://mail.pm.org/mailman/listinfo/rio-pm


   ___
   Rio-pm mailing list
   Rio-pm@pm.org(mailto:Rio-pm@pm.org)
   http://mail.pm.org/mailman/listinfo/rio-pm
   
  ___
  Rio-pm mailing list
  Rio-pm@pm.org(mailto: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] ES de Junho

[Fernando Oliveira]

Bom, então vou embora... :(



--
Fernando - Gmail

On 11 de jun de 2015 19:50 -0300, Blabos de Blebebla...@gmail.com, wrote:
 Putz, não to achando vcs :(
  
 2015-06-11 19:46 GMT-03:00 Rodrigo Mosconi 
 (perl)p...@mosconi.mat.br(mailto:p...@mosconi.mat.br):
   
  Estamos (eu e Vicente) em pé perto sa entrada
   
  On Jun 11, 2015 7:41 PM, Blabos de 
  Blebebla...@gmail.com(mailto:bla...@gmail.com)wrote:
   Levanta a mão aí para eu te ver!!!



   2015-06-11 18:58 GMT-03:00 Rodrigo Mosconi 
   (perl)p...@mosconi.mat.br(mailto:p...@mosconi.mat.br):
 
@colarinho, mais alguém chegou, ou está a caminho?
 
On Jun 11, 2015 3:30 PM, Blabos de 
Blebebla...@gmail.com(mailto:bla...@gmail.com)wrote:
 Prefiro na Barra
  
 2015-06-11 10:58 GMT-03:00 Rafael 
 Lopesrafaoliveiralo...@gmail.com(mailto:rafaoliveiralo...@gmail.com):
  Colarinho é um excelente lugar.33
   
  Pena que não poderei ir. Aproveitem e bebam uma por mim. =(
   
  []s
  bola
   
  2015-06-11 1:35 GMT-03:00 Blabos de 
  Blebebla...@gmail.com(mailto:bla...@gmail.com):
   Barra?

   On Wed, Jun 10, 2015 at 10:59 PM, Rodrigo Mosconi 
   (perl)p...@mosconi.mat.br(mailto:p...@mosconi.mat.br)wrote:
ok, ES no colarinho 19h
 
 
 
___
Rio-pm mailing list
Rio-pm@pm.org(mailto:Rio-pm@pm.org)
http://mail.pm.org/mailman/listinfo/rio-pm


   ___
   Rio-pm mailing list
   Rio-pm@pm.org(mailto:Rio-pm@pm.org)
   http://mail.pm.org/mailman/listinfo/rio-pm
   
   
  ___
  Rio-pm mailing list
  Rio-pm@pm.org(mailto:Rio-pm@pm.org)
  http://mail.pm.org/mailman/listinfo/rio-pm
  
  
 ___
 Rio-pm mailing list
 Rio-pm@pm.org(mailto:Rio-pm@pm.org)
 http://mail.pm.org/mailman/listinfo/rio-pm
 
___
Rio-pm mailing list
Rio-pm@pm.org(mailto:Rio-pm@pm.org)
http://mail.pm.org/mailman/listinfo/rio-pm


   ___
   Rio-pm mailing list
   Rio-pm@pm.org(mailto:Rio-pm@pm.org)
   http://mail.pm.org/mailman/listinfo/rio-pm
   
  ___
  Rio-pm mailing list
  Rio-pm@pm.org(mailto: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] ES de Junho

[Fernando Oliveira]

Q tal o colarinho?


On 9 de jun de 2015 19:55 -0300, Rodrigo Mosconi (perl)p...@mosconi.mat.br, 
wrote:
  
  
 Em 9 de junho de 2015 08:47, Fernando 
 Oliveirafernandocor...@gmail.com(mailto:fernandocor...@gmail.com)escreveu:
  Algum lugar em botafogo p/ eu poder dar uma passada?
   
  
 Pode ser também (tem algum lugar?), pois sairei do centro.
  
  On 8 de jun de 2015 18:21 -0300, Rodrigo Mosconi 
  (perl)p...@mosconi.mat.br(mailto:p...@mosconi.mat.br), wrote:
   Então pessoal,
   Onde será o ES deste mês (dia 11/06)?

   Podemos comemorar o lançamendo do Perl 5.22.0, que teve release em 
   02/06...

   Local default?

   Att___
   Rio-pm mailing list
   Rio-pm@pm.org(mailto:Rio-pm@pm.org)
   http://mail.pm.org/mailman/listinfo/rio-pm
   
  ___
  Rio-pm mailing list
  Rio-pm@pm.org(mailto: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] ES de Junho

[Fernando Oliveira]

Algum lugar em botafogo p/ eu poder dar uma passada?


On 8 de jun de 2015 18:21 -0300, Rodrigo Mosconi (perl)p...@mosconi.mat.br, 
wrote:
 Então pessoal,
 Onde será o ES deste mês (dia 11/06)?
  
 Podemos comemorar o lançamendo do Perl 5.22.0, que teve release em 02/06...
  
 Local default?
  
 Att___
 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] ES de Janeiro

[Fernando Oliveira]

Onde é esse Bar Brasil?

 Em 05/01/2015, à(s) 12:15, Rafael Lopes rafaoliveiralo...@gmail.com 
 escreveu:
 
 Bar Brasil! :-)
 
 Em 05/01/2015 12:10, breno oainikus...@gmail.com 
 mailto:oainikus...@gmail.com escreveu:
 Bar Brasil? :D
 
 2015-01-05 12:04 GMT-02:00 Rodrigo Mosconi (perl) p...@mosconi.mat.br 
 mailto:p...@mosconi.mat.br:
 Fala pessoal,
 
 Então nesta quinta (8/1) será a segunda quinta do mês, e onde será o ES?
 
 Att,
 
 ___
 Rio-pm mailing list
 Rio-pm@pm.org mailto:Rio-pm@pm.org
 http://mail.pm.org/mailman/listinfo/rio-pm 
 http://mail.pm.org/mailman/listinfo/rio-pm
 
 
 ___
 Rio-pm mailing list
 Rio-pm@pm.org mailto:Rio-pm@pm.org
 http://mail.pm.org/mailman/listinfo/rio-pm 
 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] ES de Janeiro

[Fernando Oliveira]

Onde é a praça são salvador?
 Em 05/01/2015, à(s) 13:17, Rafael Lopes rafaoliveiralo...@gmail.com 
 escreveu:
 
 Praça São Salvador.
 
 Em 05/01/2015 13:14, Fernando Oliveira fernandocor...@gmail.com 
 mailto:fernandocor...@gmail.com escreveu:
 Onde é esse Bar Brasil?
 
 Em 05/01/2015, à(s) 12:15, Rafael Lopes rafaoliveiralo...@gmail.com 
 mailto:rafaoliveiralo...@gmail.com escreveu:
 
 Bar Brasil! :-)
 
 Em 05/01/2015 12:10, breno oainikus...@gmail.com 
 mailto:oainikus...@gmail.com escreveu:
 Bar Brasil? :D
 
 2015-01-05 12:04 GMT-02:00 Rodrigo Mosconi (perl) p...@mosconi.mat.br 
 mailto:p...@mosconi.mat.br:
 Fala pessoal,
 
 Então nesta quinta (8/1) será a segunda quinta do mês, e onde será o ES?
 
 Att,
 
 ___
 Rio-pm mailing list
 Rio-pm@pm.org mailto:Rio-pm@pm.org
 http://mail.pm.org/mailman/listinfo/rio-pm 
 http://mail.pm.org/mailman/listinfo/rio-pm
 
 
 ___
 Rio-pm mailing list
 Rio-pm@pm.org mailto:Rio-pm@pm.org
 http://mail.pm.org/mailman/listinfo/rio-pm 
 http://mail.pm.org/mailman/listinfo/rio-pm
 ___
 Rio-pm mailing list
 Rio-pm@pm.org mailto:Rio-pm@pm.org
 http://mail.pm.org/mailman/listinfo/rio-pm 
 http://mail.pm.org/mailman/listinfo/rio-pm
 
 ___
 Rio-pm mailing list
 Rio-pm@pm.org mailto:Rio-pm@pm.org
 http://mail.pm.org/mailman/listinfo/rio-pm 
 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] reflexão, revolução, anyone? :)

[Fernando Oliveira]

Discordo, sou contra e não aceito!
a Rio.PM tem liderança, sempre teve e (me desculpe Nuba) o lider não tem poder 
suficiente p/ abolir a liderança!
Na verdade o lider não tem poder! O lider sempre teve foi trabalho...
Quem tem o poder de decidir se a Rio.PM deve ou não ter um lider é a Rio.PM.
Até q a Rio.PM decida, na minha opinião (desculpe Nuba) vc ainda é o lider...

Em 11/03/2013, às 15:09, Nuba Princigalli n...@fastmail.fm escreveu:

 Caros,
  
 Eu gosto muito da vibe que temos aqui na lista, mas sinto muita falta de 
 termos mais iniciativas que transcendam threads de email, e que não sejam 
 atividades que já faríamos mesmo por conta própria, apenas envelopadas numa 
 cara de atividade do coletivo.
  
 Ano passado, quando a SP.pm ia puxar o equinócio avançado (que furou) houve a 
 idéia de produzirmos uma cartilha para levar novos Perl Hackers do nível 
 básico ao intermediário (que também furou).
  
 Esse ano, a volta do Equinócio à pauta serve como um lembrete de que um ano 
 se passou, e, sem desmerecer o que foi feito, mas a minha sensação é de 
 frustração, frente ao quão pouco fizemos, nesse tempo, e quão pouco 
 engajamento houve.
  
 Como líder, aceito e declaro o mea culpa de não ter trabalhado mais para 
 fazer mais coisas acontecerem. Poderia replicar que também tive expectativas 
 frustradas nesse tempo, mas não vejo que entrar nessa linha seja produtivo, 
 construtivo ou mesmo interessante. No final do dia, o que pesa mesmo é o 
 passo que damos hoje, com o que temos, e a proposição para amanhã.
  
 Um líder é necessário quando um projeto precisa de uma coordenação 
 centralizada para acontecer. Só que hoje os coletivos estão cada vez mais 
 descentralizados e distribuídos, peer-to-peer, com lideranças surgindo e 
 desaparecendo organicamente, em função da necessidade dos projetos ou ações 
 em andamento.
  
 Disso sai que a minha vontade, para a Rio.PM, hoje, é abolir a figura do 
 líder, e que a gente se desorganize um pouco. Explico: não para debandarmos, 
 mas para desmontar esse modelo de uma meia dúzia carregando o piano e alguém 
 com o ônus de mobilizar o grupo.
  
 Para mim é simples: se um grupo de pessoas quiser fazer algo, ele tem plenos 
 meios de se organizar pela lista, pelo IRC, pelo facebook, por qualquer 
 canal, para fazer acontecer. Mais ainda: se a iniciativa estiver alinhada com 
 a cultura e os valores do grupo, não tem que pedir licença pra ninguém para 
 se identificar como Rio.PM.
  
 Na pior das hipóteses, ficamos onde já estamos: a mesma meia dúzia atuante 
 vai continuar atuando. Só que Lean! e da experiência nós sabemos muito bem 
 que não é a figura de um líder na Rio.PM que fez ou deixou de fazer alguma 
 iniciativa acontecer.
  
 Bom...
  
 No que diz respeito à minha posição, é decisão dormida, amadurecida, 
 tranquila. Não irei mais assumir o papel de “Líder Rio.PM 2012-2014”. Quero 
 olhar para todos os membros como potenciais líderes ou seguidores, em função 
 do momento, e do senso de responsabilidade que cada um se atribua, nos 
 projetos ou problemas que surgirem.
  
 Se alguém quiser assumir o papel de líder, e trazer uma visão pro grupo, no 
 modelo tradicional, etc. fique à vontade. No coletivo, agora sou mais um, e 
 pode muito bem acontecer do coletivo rejeitar essa idéia e clamar por uma 
 estrutura centralizada, tradicional.
  
 A verdade é que a estrutura organizacional é a última das minhas preocupações 
 aqui. Eu vou continuar atuando onde sentir que seja útil e tenha capacidade 
 de me comprometer, o que me importa é no final poder escrever “feito com 
 carinho para a comunidade brasileira de Perl”.
  
 Se você chegou até aqui, obrigado pelo seu tempo! Pois é, cara, nesse momento 
 você pertence à um coletivo de profissionais e entusiastas do Perl com 
 potencial de ser horizontal, descentralizado. O que você vai fazer com isso? 
 :)
  
 Abraço,
  
 Nuba
  
  
 --
 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

Re: [Rio-pm] ES de fevereiro

[Fernando Oliveira]

Já teve uns 4 ou 5 ESs na barra no ultimo ano... E em todos esses eu fui o
único q apareci...

Enviado via iPhone

Em 14/02/2013, às 14:16, Tiago Peczenyj tiago.pecze...@gmail.com escreveu:

Eu imploro pra fazer na barra e vcs não me escutam.

2013/2/14 Nuba Princigalli n...@fastmail.fm

 **
 Pô, ES colado no Carnaval é maldade! Para mim não rola, mas se a turma der
 conta, viva!!! Divirtam-se :)

 Heavy Duty, apesar de fora-de-mão, quando tem música, é um lugar jóia. Mas
 já rolaram vários ES lá recentemente, e eu fui em todos, enquanto essa
 turma que fica sugerindo é a mesma que não aparece (né, pacman?!?...) aí
 fica difícil!... rsrs



 On Thu, Feb 14, 2013, at 01:51 PM, leonardo.bal...@gmail.com wrote:

 Adiar por “bagunça de carnaval” é pra galera de SP.

 Heavy Dutch é uma boa, assim como Rua Alice.

 *De:* Marcio Ferreira
 *Enviado:* 14 de fevereiro de 2013 13:38
 *Para:* Perl Mongers Rio de Janeiro
 *Assunto:* Re: [Rio-pm] ES de fevereiro

 Hmm, por conta da bagunça do carnaval, podemos adiar pra 3º semana?

 []s,

 Marcio Ferreira

 skype: marcio.ferreir4
 (21) 8365-7768


 2013/2/14 Rodrigo Mosconi (perl) p...@mosconi.mat.br

 onde será o ES de fevereiro?
 hoje é a segunda quinta do mes

 ___
  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


 --
 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




-- 
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

Re: [Rio-pm] ESX - Comemoracao Breno

[Fernando Oliveira]

Então chegaremos lá q horas?


Just another Perl Hacker,
Fernando (SmokeMachine)


Em 21 de junho de 2012 14:39, breno br...@rio.pm.org escreveu:

 Isso que dá viver na gandaia ¬¬

 2012/6/21 Tiago Peczenyj tiago.pecze...@gmail.com:
  Pessoal
 
  Eu adoraria ir mas to indo pra casa, fiquei gripado :/
 
 
  2012/6/21 breno br...@rio.pm.org
 
  Cervantes? Eu topo!
 
  Temos que comemorar também o aniversário do Pacman!!
 
  []s
 
  -b
 
  2012/6/20 Fernando Oliveira fernandocor...@gmail.com:
   Eu to dentro!!!
  
   Just another Perl Hacker,
   Fernando (SmokeMachine)
  
  
   Em 20 de junho de 2012 14:17, Diana Rosa diana.g.a.r...@gmail.com
   escreveu:
  
   Que tal irmos amanha 20h comemorar a premiacao do Breno  em
 copacabana
   com
   os melhores sanduiches da cidade?
   (Breno, como a comemoracao e sua pode mudar o local dia hora, so nao
   vale
   fugir de ter uma comemoracao!!)
  
   restaurante Cervantes
   Av. Prado Júnior, 335 - loja B, Copacabana, Rio de Janeiro - RJ
   ___
   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
 
 
 
 
  --
  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
 ___
 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] Tratamento de dados para CSV

[Fernando Oliveira]

Breno,

Me pareceu q ele quer fazer uma tabela relacionando os dados da 1a coluna
com os da 1a linha...
Tipo assim:

   Pedro Manoel  Manoel XJoão XPedro   X

É isso?

Just another Perl Hacker,
Fernando (SmokeMachine)


Em 1 de junho de 2012 11:47, breno br...@rio.pm.org escreveu:

 2012/6/1 Manoel Domingues Junior manoel.domingues.jun...@gmail.com:
  Olá pessoal,
 
  Estou com um dificuldade em encontrar um módulo no cpan que me ajude a
  fazer a geração de uma matriz...
 
  Eu obtenho os dados de um software no seguinte formato:
  Manoel;Pedro
  João;Pedro
  Pedro;Manoel
  
 
  Esses dados eu gostaria de colocar em uma matriz do tipo:
  X; Pedro;Manoel;
  Manoel; 1;;
  João;1;;
  Pedro;;1;
 
  Alguém conhece algum módulo que me permita fazer isso?
 

 Manoel,

 desculpa a pergunta, mas isso o quê? Pode ser pq ainda não acordei
 direito, mas não entendi o que vc está fazendo...

 Supondo que vc tem uma lista na forma:

 my @linhas = (
'Manoel;Pedro',
'João;Pedro',
'Pedro;Manoel',
 );

 você pode gerar uma nova lista fazendo algo como:

 my @nova = ();

 foreach my $linha (@linhas) {
my @campos = split /\s*;\s*/ = $linha;

# modifique @campos como bem entender...

push @nova, join ';' = @campos;
 }

 é isso?


 []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] Tratamento de dados para CSV

[Fernando Oliveira]

Assumindo q exita o arquivo: tabela.txt
contendo:

Manoel;Pedro
Joao;Pedro
Pedro;Manoel

GOLF?!
minha 1a tacada:

perl
-lnE'/;/;$l{$'}//=$i++;$c{$`}=[];$c{$`}[$l{$'}]=1}{say;,join(;,sort{$l{$a}=$l{$b}}keys%l);say
join;,$_,@{$c{$_}}[0..keys%l]for keys%c' tabela.txt

Just another Perl Hacker,
Fernando (SmokeMachine)


Em 1 de junho de 2012 12:00, Stanislaw Pusep creakt...@gmail.com escreveu:

 @breno, infelizmente, se for um CSV gerado por algumas ferramentas de
 escritório cujo nome não quero citar nessa lista, expressão regular não
 basta, já dizia o brian d foy:
 http://www.effectiveperlprogramming.com/blog/1386
 @cleysinho, bacana o Class:CSV, pelo que entendi, é uma interface
 user-friendly para o Text::CSV que, apesar de funcionar muito bem, é
 bastante prolixo. Um módulo que tentei usar recentemente é o Parse::CSV,
 porém ele, como já diz o nome, apenas lê o CSV (também via Text::CSV).

 ABS()




 2012/6/1 breno br...@rio.pm.org

 2012/6/1 Manoel Domingues Junior manoel.domingues.jun...@gmail.com:
  Olá pessoal,
 
  Estou com um dificuldade em encontrar um módulo no cpan que me ajude a
  fazer a geração de uma matriz...
 
  Eu obtenho os dados de um software no seguinte formato:
  Manoel;Pedro
  João;Pedro
  Pedro;Manoel
  
 
  Esses dados eu gostaria de colocar em uma matriz do tipo:
  X; Pedro;Manoel;
  Manoel; 1;;
  João;1;;
  Pedro;;1;
 
  Alguém conhece algum módulo que me permita fazer isso?
 

 Manoel,

 desculpa a pergunta, mas isso o quê? Pode ser pq ainda não acordei
 direito, mas não entendi o que vc está fazendo...

 Supondo que vc tem uma lista na forma:

 my @linhas = (
'Manoel;Pedro',
'João;Pedro',
'Pedro;Manoel',
 );

 você pode gerar uma nova lista fazendo algo como:

 my @nova = ();

 foreach my $linha (@linhas) {
my @campos = split /\s*;\s*/ = $linha;

# modifique @campos como bem entender...

push @nova, join ';' = @campos;
 }

 é isso?


 []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] Tratamento de dados para CSV

[Fernando Oliveira]

s/exita/exista/



Just another Perl Hacker,
Fernando (SmokeMachine)


Em 1 de junho de 2012 12:32, Fernando Oliveira
fernandocor...@gmail.comescreveu:

 Assumindo q exita o arquivo: tabela.txt
 contendo:

 Manoel;Pedro
 Joao;Pedro
 Pedro;Manoel

 GOLF?!
 minha 1a tacada:

 perl
 -lnE'/;/;$l{$'}//=$i++;$c{$`}=[];$c{$`}[$l{$'}]=1}{say;,join(;,sort{$l{$a}=$l{$b}}keys%l);say
 join;,$_,@{$c{$_}}[0..keys%l]for keys%c' tabela.txt


 Just another Perl Hacker,
 Fernando (SmokeMachine)


 Em 1 de junho de 2012 12:00, Stanislaw Pusep creakt...@gmail.comescreveu:

 @breno, infelizmente, se for um CSV gerado por algumas ferramentas de
 escritório cujo nome não quero citar nessa lista, expressão regular não
 basta, já dizia o brian d foy:
 http://www.effectiveperlprogramming.com/blog/1386
 @cleysinho, bacana o Class:CSV, pelo que entendi, é uma interface
 user-friendly para o Text::CSV que, apesar de funcionar muito bem, é
 bastante prolixo. Um módulo que tentei usar recentemente é o Parse::CSV,
 porém ele, como já diz o nome, apenas lê o CSV (também via Text::CSV).

 ABS()




 2012/6/1 breno br...@rio.pm.org

 2012/6/1 Manoel Domingues Junior manoel.domingues.jun...@gmail.com:
  Olá pessoal,
 
  Estou com um dificuldade em encontrar um módulo no cpan que me ajude a
  fazer a geração de uma matriz...
 
  Eu obtenho os dados de um software no seguinte formato:
  Manoel;Pedro
  João;Pedro
  Pedro;Manoel
  
 
  Esses dados eu gostaria de colocar em uma matriz do tipo:
  X; Pedro;Manoel;
  Manoel; 1;;
  João;1;;
  Pedro;;1;
 
  Alguém conhece algum módulo que me permita fazer isso?
 

 Manoel,

 desculpa a pergunta, mas isso o quê? Pode ser pq ainda não acordei
 direito, mas não entendi o que vc está fazendo...

 Supondo que vc tem uma lista na forma:

 my @linhas = (
'Manoel;Pedro',
'João;Pedro',
'Pedro;Manoel',
 );

 você pode gerar uma nova lista fazendo algo como:

 my @nova = ();

 foreach my $linha (@linhas) {
my @campos = split /\s*;\s*/ = $linha;

# modifique @campos como bem entender...

push @nova, join ';' = @campos;
 }

 é isso?


 []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] Golf, brincadeira? ERA: Re: Unzip

[Fernando Oliveira]

German,
Devo, não pago e nego enquanto puder! :P

Agora, qto a como funciona uma especifica tacada de golf, eu não vejo
problema de te explicar alguma duvida q alguém tenha em alguma das minhas
tacadas, e suponho q os outros desportistas tb não teriam problema em fazer
o mesmo, caso perguntados.

Isso resolve o problema?

Just another Perl Hacker,
Fernando (SmokeMachine)


Em 30 de maio de 2012 23:04, German Valenzuela
german.valenzu...@gmail.comescreveu:

 Fernando você ainda deve o twitter de golf.
 Acho golf foda, mas acho, a menos q eu seja o único q não entenda o que a
 linha mágica faz., q todo golf na lista devia vir explicado o que cada
 comando faz.

 2012/5/30 Gabriel Vieira gabriel.vie...@gmail.com

 Não se menospreze... já fazemos isso por você... ;P hehe (estou zoando)

 Realmente.. além de divertido, o golf permite aprimorar os
 conhecimentos, ter raciocínio mais rápido e descobrir novas formas de
 solucionar/pensar um problema, inclusive vendo a solução alheia.

 Outra coisa interessante é descobrir novas funcionalidades e tips 
 tricks da linguagem..

 Além de ser mão na roda pra solução de pequenas problemas...


 2012/5/30 Aureliano Guedes guedes_1...@hotmail.com:
  Golf me assusta, mas as vezes me arrisco. Eu sou um merda programando,
 sei
  disso, mas sou persistente, e quero tudo,
  com essa megalomania talvez eu chegue aos pés de vocês. Mas um dia,
  poderiamos fazer um golfzinho aqui. Iria ser legal.
 
  From: braun.l...@gmail.com
  Date: Wed, 30 May 2012 19:39:33 -0300
  To: rio-pm@pm.org
  Subject: Re: [Rio-pm] Golf, brincadeira? ERA: Re: Unzip
 
 
  Salve!
 
  Bom, vou começar pelos primórdios do século XXI ... quando achar um
  programador Perl era algo também difícil como encontrar as meias que
  os duetes roubaram ... enfim se me lembro bem, conheci um novato que
  em uma palestra ficou doido com o que Perl poderia e fazer a passou a
  me perturbar dia e noite com seus códigos para verificar como estavam
  ... se me lembro bem esse novato já escrevi códigos otimizados ... e
  apesar dele viver falando o tempo todo, eu acabei sendo chamado de
  papagaio ... esse novato se tornou um excelente programador Perl e
  outras coisas mais como agora esta aprendendo a hackear fraldas e em
  breve vai se especializar em papinhas ... O novato se tornou um Guru
  ao qual eu respeito e muito, e que contrataria para trabalhar comigo
  de olhos fechados, como já o fiz  e garanto que o Golf só ajudou
  na sua formação!
 
  Jogar Golf é igual jogar poker ou xadrez ... aprece ser uma diversão
  boba, mas sabemos que não é, pois ao brincar com isso você vai estar
  desenvolvendo suas habilidades e criando novas conexões neurais ...
  heheh portanto, como já disse antes, se alguém falar que acha que você
  não sabe codificar porque joga golf, é porque não tem a minima ideia
  do que esta fazendo, e portanto não deve ser uma pessoa adequada para
  lhe contratar e nem pensar em te gerenciar, então eu sugiro que
  procure alguém que saiba o que faz e o que quer ... trabalhe para quem
  sabe valorizar seu conhecimento e capacidade, pois garanto que vai
  ganhar melhor, ser mais feliz e se divertir muito muito muito mais!!!
 
  Só para constar ... o golf já me salvou muitas vezes no trabalho!
 
  [ ]++
 
  Marco Lima
  braun.l...@gmail.com
  im:m...@jabber-br.org
 
  Register Linux User #483170
  Slackware Linux, for the subgenius
 
  Em 30 de maio de 2012 18:59, Fernando Oliveira
  fernandocor...@gmail.com escreveu:
   alguém q faz aqueles codigos trabalhando lá...
  ___
  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



 --
 Gabriel Vieira
 ___
 Rio-pm mailing list
 Rio-pm@pm.org
 http://mail.pm.org/mailman/listinfo/rio-pm




 --
 German Alejandro Valenzuela Egas
 21.8053.6669


 ___
 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] Tratamento de dados para CSV

[Fernando Oliveira]

Menor:

perl
-lnE'/;/;$l{$'}//=$i++;$c{$`}=[];$c{$`}[$l{$'}]=1}{$,=;;say,sort{$l{$a}=$l{$b}}keys%l;say$_,@{$c{$_}}[0..keys%l]for
keys%c' tabela.txt



Just another Perl Hacker,
Fernando (SmokeMachine)


Em 1 de junho de 2012 12:34, Fernando Oliveira
fernandocor...@gmail.comescreveu:

 s/exita/exista/




 Just another Perl Hacker,
 Fernando (SmokeMachine)


 Em 1 de junho de 2012 12:32, Fernando Oliveira 
 fernandocor...@gmail.comescreveu:

 Assumindo q exita o arquivo: tabela.txt
 contendo:

 Manoel;Pedro
 Joao;Pedro
 Pedro;Manoel

 GOLF?!
 minha 1a tacada:

 perl
 -lnE'/;/;$l{$'}//=$i++;$c{$`}=[];$c{$`}[$l{$'}]=1}{say;,join(;,sort{$l{$a}=$l{$b}}keys%l);say
 join;,$_,@{$c{$_}}[0..keys%l]for keys%c' tabela.txt


 Just another Perl Hacker,
 Fernando (SmokeMachine)


 Em 1 de junho de 2012 12:00, Stanislaw Pusep creakt...@gmail.comescreveu:

 @breno, infelizmente, se for um CSV gerado por algumas ferramentas de
 escritório cujo nome não quero citar nessa lista, expressão regular não
 basta, já dizia o brian d foy:
 http://www.effectiveperlprogramming.com/blog/1386
 @cleysinho, bacana o Class:CSV, pelo que entendi, é uma interface
 user-friendly para o Text::CSV que, apesar de funcionar muito bem, é
 bastante prolixo. Um módulo que tentei usar recentemente é o Parse::CSV,
 porém ele, como já diz o nome, apenas lê o CSV (também via Text::CSV).

 ABS()




 2012/6/1 breno br...@rio.pm.org

 2012/6/1 Manoel Domingues Junior manoel.domingues.jun...@gmail.com:
  Olá pessoal,
 
  Estou com um dificuldade em encontrar um módulo no cpan que me ajude a
  fazer a geração de uma matriz...
 
  Eu obtenho os dados de um software no seguinte formato:
  Manoel;Pedro
  João;Pedro
  Pedro;Manoel
  
 
  Esses dados eu gostaria de colocar em uma matriz do tipo:
  X; Pedro;Manoel;
  Manoel; 1;;
  João;1;;
  Pedro;;1;
 
  Alguém conhece algum módulo que me permita fazer isso?
 

 Manoel,

 desculpa a pergunta, mas isso o quê? Pode ser pq ainda não acordei
 direito, mas não entendi o que vc está fazendo...

 Supondo que vc tem uma lista na forma:

 my @linhas = (
'Manoel;Pedro',
'João;Pedro',
'Pedro;Manoel',
 );

 você pode gerar uma nova lista fazendo algo como:

 my @nova = ();

 foreach my $linha (@linhas) {
my @campos = split /\s*;\s*/ = $linha;

# modifique @campos como bem entender...

push @nova, join ';' = @campos;
 }

 é isso?


 []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] Tratamento de dados para CSV

[Fernando Oliveira]

menor:

perl
-lnE'/;/;$l{$'}//=$i++;$c{$`}=[];$c{$`}[$l{$'}]=1}{$,=;;say,keys%l;say$_,@{$c{$_}}[values%l]for
keys%c' tabela.txt

Just another Perl Hacker,
Fernando (SmokeMachine)


Em 1 de junho de 2012 12:56, Fernando Oliveira
fernandocor...@gmail.comescreveu:

 Menor:

 perl
 -lnE'/;/;$l{$'}//=$i++;$c{$`}=[];$c{$`}[$l{$'}]=1}{$,=;;say,sort{$l{$a}=$l{$b}}keys%l;say$_,@{$c{$_}}[0..keys%l]for
 keys%c' tabela.txt




 Just another Perl Hacker,
 Fernando (SmokeMachine)


 Em 1 de junho de 2012 12:34, Fernando Oliveira 
 fernandocor...@gmail.comescreveu:

 s/exita/exista/




 Just another Perl Hacker,
 Fernando (SmokeMachine)


 Em 1 de junho de 2012 12:32, Fernando Oliveira 
 fernandocor...@gmail.comescreveu:

 Assumindo q exita o arquivo: tabela.txt
 contendo:

 Manoel;Pedro
 Joao;Pedro
 Pedro;Manoel

 GOLF?!
 minha 1a tacada:

 perl
 -lnE'/;/;$l{$'}//=$i++;$c{$`}=[];$c{$`}[$l{$'}]=1}{say;,join(;,sort{$l{$a}=$l{$b}}keys%l);say
 join;,$_,@{$c{$_}}[0..keys%l]for keys%c' tabela.txt


 Just another Perl Hacker,
 Fernando (SmokeMachine)


 Em 1 de junho de 2012 12:00, Stanislaw Pusep creakt...@gmail.comescreveu:

 @breno, infelizmente, se for um CSV gerado por algumas ferramentas de
 escritório cujo nome não quero citar nessa lista, expressão regular não
 basta, já dizia o brian d foy:
 http://www.effectiveperlprogramming.com/blog/1386
 @cleysinho, bacana o Class:CSV, pelo que entendi, é uma interface
 user-friendly para o Text::CSV que, apesar de funcionar muito bem, é
 bastante prolixo. Um módulo que tentei usar recentemente é o Parse::CSV,
 porém ele, como já diz o nome, apenas lê o CSV (também via Text::CSV).

 ABS()




 2012/6/1 breno br...@rio.pm.org

 2012/6/1 Manoel Domingues Junior manoel.domingues.jun...@gmail.com:
  Olá pessoal,
 
  Estou com um dificuldade em encontrar um módulo no cpan que me ajude
 a
  fazer a geração de uma matriz...
 
  Eu obtenho os dados de um software no seguinte formato:
  Manoel;Pedro
  João;Pedro
  Pedro;Manoel
  
 
  Esses dados eu gostaria de colocar em uma matriz do tipo:
  X; Pedro;Manoel;
  Manoel; 1;;
  João;1;;
  Pedro;;1;
 
  Alguém conhece algum módulo que me permita fazer isso?
 

 Manoel,

 desculpa a pergunta, mas isso o quê? Pode ser pq ainda não acordei
 direito, mas não entendi o que vc está fazendo...

 Supondo que vc tem uma lista na forma:

 my @linhas = (
'Manoel;Pedro',
'João;Pedro',
'Pedro;Manoel',
 );

 você pode gerar uma nova lista fazendo algo como:

 my @nova = ();

 foreach my $linha (@linhas) {
my @campos = split /\s*;\s*/ = $linha;

# modifique @campos como bem entender...

push @nova, join ';' = @campos;
 }

 é isso?


 []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] Tratamento de dados para CSV

[Fernando Oliveira]

perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{say join;,X=keys%m;say
join;,$_,@{$m{$_}}{keys%m}for keys%m' tabela.txt



Just another Perl Hacker,
Fernando (SmokeMachine)


Em 1 de junho de 2012 13:00, Stanislaw Pusep creakt...@gmail.com escreveu:

 perl -F\; -anE'chomp$F[1];++$m{$F[0]}{$F[1]}}{say join;,X=keys%m;say
 join;,$_,@{$m{$_}}{keys%m}for keys%m' tabela.txt

___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Tratamento de dados para CSV

[Fernando Oliveira]

perl -F\; -lanE'$,=;;++$m{$F[0]}{$F[1]}}{say
X=keys%m;say$_,@{$m{$_}}{keys%m}for keys%m' tabela.txt



Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{say join;,X=keys%m;say
 join;,$_,@{$m{$_}}{keys%m}for keys%m' tabela.txt
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Tratamento de dados para CSV

[Fernando Oliveira]

perl -F\; -anE'chomp$F[1];++$m{$F[0]}{$F[1]}}{$,=;;say X=@a=keys%m;say
$_,@{$m{$_}}{@a}for@a' tabela.txt



Just another Perl Hacker,
Fernando (SmokeMachine)


Em 1 de junho de 2012 13:03, Stanislaw Pusep creakt...@gmail.com escreveu:

 perl -F\; -anE'chomp$F[1];++$m{$F[0]}{$F[1]}}{$,=;;say X=keys%m;say
 $_,@{$m{$_}}{keys%m}for keys%m' tabela.txt

___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Tratamento de dados para CSV

[Fernando Oliveira]

perl -lnE'/;/;$,=$;++$m{$`}{$´}}{say X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a'
tabela.txt

tinha esquecido o ;



Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 perl -lnE'/;/;$,=$++$m{$`}{$´}}{say X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a'
 tabela.txt
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Tratamento de dados para CSV

[Fernando Oliveira]

Tem algo errado




Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 perl -lnE'/;/;$,=$;++$m{$`}{$´}}{say X=@a=keys%m;say
 $_,@{$m{$_}}{@a}for@a' tabela.txt

 tinha esquecido o ;




 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 perl -lnE'/;/;$,=$++$m{$`}{$´}}{say X=@a=keys%m;say
 $_,@{$m{$_}}{@a}for@a' tabela.txt



___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Tratamento de dados para CSV

[Fernando Oliveira]

perl -lnE'/;/;$,=$;++$m{$`}{$'}}{say X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a
' tabela.txt


Esse funciona



Just another Perl Hacker,
Fernando (SmokeMachine)


Em 1 de junho de 2012 13:17, Fernando Oliveira
fernandocor...@gmail.comescreveu:

 Tem algo errado




 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 perl -lnE'/;/;$,=$;++$m{$`}{$´}}{say X=@a=keys%m;say
 $_,@{$m{$_}}{@a}for@a' tabela.txt

 tinha esquecido o ;




 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 perl -lnE'/;/;$,=$++$m{$`}{$´}}{say X=@a=keys%m;say
 $_,@{$m{$_}}{@a}for@a' tabela.txt




___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Tratamento de dados para CSV

[Fernando Oliveira]

C:\perl -lnE/;/;$,=$;++$m{$`}{$'}}{say
X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt
X;Joao;Pedro;Manoel
Joao;;1;
Pedro;;;1
Manoel;;1;



Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 breno br...@rio.pm.org

 perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=;;say

 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt

___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Tratamento de dados para CSV

[Fernando Oliveira]

Pois é... aqui no trabalho é assim... :(

Eu garanto q vc não desgostou mais q eu... :(

Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 Stanislaw Pusep creakt...@gmail.com

 C:\ :(

 ABS()



 On Fri, Jun 1, 2012 at 1:23 PM, Fernando Oliveira 
 fernandocor...@gmail.com wrote:

 C:\perl -lnE/;/;$,=$;++$m{$`}{$'}}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt
 X;Joao;Pedro;Manoel
 Joao;;1;
 Pedro;;;1
 Manoel;;1;



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 breno br...@rio.pm.org

 perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=;;say

 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt



 ___
 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] Tratamento de dados para CSV

[Fernando Oliveira]

bom... aqui no windows funfa... :P
no windows eu to usando o  no -e...


Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 breno br...@rio.pm.org

 Ha! Alguém consegue usar $' na shell sem escapar?



 On Fri, Jun 1, 2012 at 1:24 PM, Stanislaw Pusep creakt...@gmail.comwrote:

 C:\ :(

 ABS()



 On Fri, Jun 1, 2012 at 1:23 PM, Fernando Oliveira 
 fernandocor...@gmail.com wrote:

 C:\perl -lnE/;/;$,=$;++$m{$`}{$'}}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt
 X;Joao;Pedro;Manoel
 Joao;;1;
 Pedro;;;1
 Manoel;;1;



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 breno br...@rio.pm.org

 perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=;;say

 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt



 ___
 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] Tratamento de dados para CSV

[Fernando Oliveira]

C:\perl -lnE$m{$`}{$'}=/;/;$,=$}{say
X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt



Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 bom... aqui no windows funfa... :P
 no windows eu to usando o  no -e...



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 breno br...@rio.pm.org

 Ha! Alguém consegue usar $' na shell sem escapar?



 On Fri, Jun 1, 2012 at 1:24 PM, Stanislaw Pusep creakt...@gmail.comwrote:

 C:\ :(

 ABS()



 On Fri, Jun 1, 2012 at 1:23 PM, Fernando Oliveira 
 fernandocor...@gmail.com wrote:

 C:\perl -lnE/;/;$,=$;++$m{$`}{$'}}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt
 X;Joao;Pedro;Manoel
 Joao;;1;
 Pedro;;;1
 Manoel;;1;



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 breno br...@rio.pm.org

 perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=;;say

 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt



 ___
 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] Tratamento de dados para CSV

[Fernando Oliveira]

Então façamos como arquivo:

#!perl -ln
$m{$`}{$'}=/;/;$,=$}{print X=@a=keys%m;print$_,@{$m{$_}}{@a}for@a



Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 Stanislaw Pusep creakt...@gmail.com

 Em bash, pelo menos, teria que rodar como:

 perl -MEnglish -lnE'$m{$`}{$POSTMATCH}=/;/;$,=$}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt

 ABS()




 On Fri, Jun 1, 2012 at 1:31 PM, Fernando Oliveira 
 fernandocor...@gmail.com wrote:

 C:\perl -lnE$m{$`}{$'}=/;/;$,=$}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 bom... aqui no windows funfa... :P
 no windows eu to usando o  no -e...



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 breno br...@rio.pm.org

 Ha! Alguém consegue usar $' na shell sem escapar?



 On Fri, Jun 1, 2012 at 1:24 PM, Stanislaw Pusep creakt...@gmail.comwrote:

 C:\ :(

 ABS()



 On Fri, Jun 1, 2012 at 1:23 PM, Fernando Oliveira 
 fernandocor...@gmail.com wrote:

 C:\perl -lnE/;/;$,=$;++$m{$`}{$'}}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt
 X;Joao;Pedro;Manoel
 Joao;;1;
 Pedro;;;1
 Manoel;;1;



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 breno br...@rio.pm.org

 perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=;;say

 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt



 ___
 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] Tratamento de dados para CSV

[Fernando Oliveira]

Se a segunda coluna tiver mais elementos inexistentes na 1a, esses não
aparecem.
Continuamos assim? ou voltamos do inicio?


Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 Mas e então? O arquivo foi aceito?

 E tem mais uma coisa: desde a 1a tacada do Stanislaw, se os elementos de
 antes do ; forem diferentes do de depois, a tabela fica errada...


 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 Então façamos como arquivo:

 #!perl -ln
 $m{$`}{$'}=/;/;$,=$}{print X=@a=keys%m;print$_,@{$m{$_}}{@a}for@a



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Stanislaw Pusep creakt...@gmail.com

 Em bash, pelo menos, teria que rodar como:

 perl -MEnglish -lnE'$m{$`}{$POSTMATCH}=/;/;$,=$}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt

 ABS()




 On Fri, Jun 1, 2012 at 1:31 PM, Fernando Oliveira 
 fernandocor...@gmail.com wrote:

 C:\perl -lnE$m{$`}{$'}=/;/;$,=$}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 bom... aqui no windows funfa... :P
 no windows eu to usando o  no -e...



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 breno br...@rio.pm.org

 Ha! Alguém consegue usar $' na shell sem escapar?



 On Fri, Jun 1, 2012 at 1:24 PM, Stanislaw Pusep 
 creakt...@gmail.comwrote:

 C:\ :(

 ABS()



 On Fri, Jun 1, 2012 at 1:23 PM, Fernando Oliveira 
 fernandocor...@gmail.com wrote:

 C:\perl -lnE/;/;$,=$;++$m{$`}{$'}}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt
 X;Joao;Pedro;Manoel
 Joao;;1;
 Pedro;;;1
 Manoel;;1;



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 breno br...@rio.pm.org

 perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=;;say

 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt



 ___
 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] Tratamento de dados para CSV

[Fernando Oliveira]

Bom, nova tacada, voltando aos requisitos originais:

#!perl -ln
/;/;$,=$;$l{$'}//=$i++;$c{$`}[$l{$'}]=1}{print X=keys%l;print
$_,@{$c{$_}}[values%l]for keys%c

Just another Perl Hacker,
Fernando (SmokeMachine)


Em 1 de junho de 2012 14:54, Manoel Domingues Junior 
manoel.domingues.jun...@gmail.com escreveu:

 Eu ainda estou testando todas as alternativas dadas e tentando entender
 algumas...rsrs

 Em tese, a primeira coluna e primeira linha não tem relação uma com as
 outras, ou seja, os dados podem se repetir ou não...

 Estava pensando em usar o Text::CSV para adicionar um elemento (no caso
 1) na posicao $1 $2, onde:

 ($a0,$a1) = (Manoel,João)

 Se der erro, vejo se a coluna existe, se existir adiciono a linha, senão
 existir adiciono a coluna...

 Acho que assim vai... estou testando...

 Abraços,

 Em 1 de junho de 2012 14:45, Fernando Oliveira 
 fernandocor...@gmail.comescreveu:

 Se a segunda coluna tiver mais elementos inexistentes na 1a, esses não
 aparecem.
 Continuamos assim? ou voltamos do inicio?



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 Mas e então? O arquivo foi aceito?

 E tem mais uma coisa: desde a 1a tacada do Stanislaw, se os elementos de
 antes do ; forem diferentes do de depois, a tabela fica errada...


 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 Então façamos como arquivo:

 #!perl -ln
 $m{$`}{$'}=/;/;$,=$}{print X=@a=keys%m;print$_,@{$m{$_}}{@a}for@a



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Stanislaw Pusep creakt...@gmail.com

 Em bash, pelo menos, teria que rodar como:

 perl -MEnglish -lnE'$m{$`}{$POSTMATCH}=/;/;$,=$}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt

 ABS()




 On Fri, Jun 1, 2012 at 1:31 PM, Fernando Oliveira 
 fernandocor...@gmail.com wrote:

 C:\perl -lnE$m{$`}{$'}=/;/;$,=$}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 bom... aqui no windows funfa... :P
 no windows eu to usando o  no -e...



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 breno br...@rio.pm.org

 Ha! Alguém consegue usar $' na shell sem escapar?



 On Fri, Jun 1, 2012 at 1:24 PM, Stanislaw Pusep 
 creakt...@gmail.com wrote:

 C:\ :(

 ABS()



 On Fri, Jun 1, 2012 at 1:23 PM, Fernando Oliveira 
 fernandocor...@gmail.com wrote:

 C:\perl -lnE/;/;$,=$;++$m{$`}{$'}}{say
 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a tabela.txt
 X;Joao;Pedro;Manoel
 Joao;;1;
 Pedro;;;1
 Manoel;;1;



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 2012/6/1 breno br...@rio.pm.org

 perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=;;say

 X=@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt



 ___
 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




 --
 --
 Manoel Domingues Junior
 Coletar dados é o primeiro passo para a sabedoria, mas compartilhar dados
 é o primeiro passo para a comunidade.
 IBM - Prodigy Linux


 ___
 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] Tratamento de dados para CSV

[Fernando Oliveira]

#!perl -ln
/;/;$c{$`}[$l{$'}//=$i++]=1;$,=$;}{print
X=keys%l;print$_,@{$c{$_}}[values%l]for keys%c



Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 Fernando Oliveira fernandocor...@gmail.com

 #!perl -ln
 /;/;$,=$;$l{$'}//=$i++;$c{$`}[$l{$'}]=1}{print
 X=keys%l;print$_,@{$c{$_}}[0..$i]for keys%c



 Just another Perl Hacker,
 Fernando (SmokeMachine)


 Em 1 de junho de 2012 15:06, Fernando Oliveira 
 fernandocor...@gmail.comescreveu:

 /;/;$,=amp;;$l{
 }//=$i++;$c{[$l{}]=1}{print X=keys%l;print
 $_,@{$c{$_}}[values%l]for keys%c



___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] variável $^H no Perl 5.16

[Fernando Oliveira]

eu tb não sei, mas deve ter algo com isso:
http://search.cpan.org/dist/perl-5.16.0/pod/perldelta.pod#use_VERSION



Just another Perl Hacker,
Fernando (SmokeMachine)


Em 31 de maio de 2012 11:09, Stanislaw Pusep creakt...@gmail.com escreveu:

 0x1c00
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Unzip

[Fernando Oliveira]

A quem interessar possa...
rodando o meu código aqui no windows do trabalho:

C:\perl -MArchive::Extract -ME -e A::E-new(archive,$_)-extract
for*.zip
IO::Handle - I::H
Locale::Maketext::Simple - L::M::S
List::Util - L::U
Tie::Hash - T::H
ExtUtils::MM_Unix - E::M
ExtUtils::MM - E::M
IPC::Cmd - I::C
Text::ParseWords - T::P
Scalar::Util - S::U
Module::Load::Conditional - M::L::C
File::Spec - F::S
ExtUtils::MM_Any - E::M
File::Path - F::P
ExtUtils::Liblist - E::L
File::Spec::Win32 - F::S::W
Module::Load - M::L
warnings::register - w::r
Time::HiRes - T::H
IO::Seekable - I::S
Params::Check - P::C
File::Basename - F::B
ExtUtils::MM_Win32 - E::M
version::vxs - v::v
Archive::Extract - A::E
File::Spec::Unix - F::S::U
Exporter::Heavy - E::H
ExtUtils::MakeMaker - E::M
ExtUtils::MY - E::M
IO::Select - I::S
IPC::Open3 - I::O
IO::File - I::F
ExtUtils::MakeMaker::Config - E::M::C
ExtUtils::Liblist::Kid - E::L::K

(o E da um warn dizendo quais alias ele criou p/ quais modulos...)


e segue o codigo do E:


package E;

sub import {
   for my $module(keys %INC) {
  (my $mod_name = $module) =~ s{/}{::}g;
  $mod_name =~ s{\.pm$}{}g;
  my $short = join ::, map{substr $_, 0, 1} split ::, $mod_name;
  if($short =~ /::/ and $short !~ /^\s*$/ and $short !~ /^:|:$|:{4,}/
and $mod_name ne $short){
 warn $mod_name,  - , $short, $/;
 $mod_name .= ::;
 *GLOB = *{$mod_name};
 for my $func(keys %{*GLOB}) {
my $orig_func = $mod_name . $func;
no strict 'refs';
my $new = $short . ::$func;
*{$new} = *{$orig_func};
 }
  }
   }
}

42

sim, ele foi feito correndo aqui p/ não pairarem duvidas de q esse modulo
é possível e simples...
certamente ele será refatorado antes de ir p/ o cpan...
tb escreverei alguns testes...
se alguém estiver interessado em ajudar, eu agradeço muito...
com a minha mulher gravida fica difícil arrumar tempo p/ essas
brincadeiras...

Just another Perl Hacker,
Fernando (SmokeMachine)


Em 30 de maio de 2012 17:37, Marco Lima braun.l...@gmail.com escreveu:

 Fernando:

 O pior é que vc nem sabe ... essa merda me tirou o sono, fritei a
 noite toda porque sabia que existia mas não lembrava como eh  =(

 definitivamente  estou ficando velho ... jah estou até caducando!
 e esse negócio de só ficar desenhando tá me deixando mais enferrujado
 ainda!

 SM++

 Marco Lima
 braun.l...@gmail.com
 im:m...@jabber-br.org


 Em 30 de maio de 2012 17:05, Fernando Oliveira
 fernandocor...@gmail.com escreveu:
 
  Em 30 de maio de 2012 03:33, Marco Lima braun.l...@gmail.com escreveu:
 
  estou ficando velho 
 
  perl -MArchive::Extract -e
  'Archive::Extract-new(archive,$_)-extract for*.zip'
 
  perl -MArchive::Extract -ME -e
 'A::E-new(archive,$_)-extract for*.zip'
 
  o Módulo E ainda não está no CPAN, mas vou por até o fds...
  Ele cria aliases dos modulos com apenas a 1a letra de cada nome...
 
  :P
 
 
  eu gosto mais com map ... mais tah com 3 a mais
 
  perl -MArchive::Extract -e
  'map{Archive::Extract-new(archive,$_)-extract}*.zip'
 
  vamos ver ...
 
  =)
 
  Marco Lima
  braun.l...@gmail.com
  im:m...@jabber-br.org
 
  Em 30 de maio de 2012 00:35, Gabriel Vieira gabriel.vie...@gmail.com
  escreveu:
   Tá de sacanagem 02?!
  
   Pro Fernando se divertir mais...
  
   perl -MArchive::Extract -e'Archive::Extract-new(archive,$_)-extract
   for*.zip'
  
  
   2012/5/30 Marco Lima braun.l...@gmail.com
  
   Então vamos acabar com essa historia ... seus nazistas 
  
   Fernando esta por ai!? ai vai 
  
   perl -MArchive::Extract -e
   'map{$a=Archive::Extract-new(archive=$_);$a-extract}*.zip'
  
   [ ]++
  
   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 29 de maio de 2012 22:15, Alexei Znamensky rus...@gmail.com
   escreveu:
DAS IST VERBOTEN!!! ES FUNKTIONIERT NICHT!!!
   
51, zembre uba boa ideia
   
   
2012/5/29 Leo Balter leonardo.bal...@gmail.com
   
Isso é o que Hitler diria.
   
(50)
   
Enviado via iPhone
   
Em 29/05/2012, às 20:34, Gabriel Vieira gabriel.vie...@gmail.com
 
escreveu:
   
E pensar que uma desavença gratuita dessa pode levar a coisas
 muito
maiores..
   
2012/5/29 Nilson Santos Figueiredo Jr. aci

Re: [Rio-pm] Unzip

[Fernando Oliveira]

Papagaio,

Eu tenho certeza disso! Muita gente só conhece o meu código por golf...
Alguns dos meus contratantes chegaram até mim por golf
Golf me ajuda muito. Eu melhoro o meu raciocino com golf...
Mas golf tb já me prejudicou...
Tem gente q, baseado em golf, acha q eu não sou capaz de
escrever código legível.

Bom, eu adoro golf, e vou continuar competindo...
Mas tudo tem 2 lados...

Just another Perl Hacker,
Fernando (SmokeMachine)


Em 30 de maio de 2012 18:15, Marco Lima braun.l...@gmail.com escreveu:

 Fernando:

 Eu ouvi isso sobre Perl da mesma forma e a mesma frase ... de alguém
 que nem merce que eu cite, e posso lhe garantir que esse não é o
 caminho, porque essa brincadeiras já lhe abriram muitas portas, pode
 ter certeza disso!

  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.

 =)

 Marco Lima
 braun.l...@gmail.com
 im:m...@jabber-br.org


 Em 30 de maio de 2012 18:09, Daniel Mantovani
 daniel.oliveira.mantov...@gmail.com escreveu:
  Fernando, o módulo é possível e existe a pragma aliased.
  O que eu quis dizer, é que você sabe que no golf quando você usa algum
  módulo todo código dentro conta. Então nesse caso, usar -ME só vai
 colocar
  mais códigos.
 
 
 
  --
  Software Engineer
  Just Another Perl Hacker
  Daniel Mantovani +5511 8538-9897
  XOXO
 
  On May 30, 2012, at 5:55 PM, Fernando Oliveira wrote:
 
  A quem interessar possa...
  rodando o meu código aqui no windows do trabalho:
 
  C:\perl -MArchive::Extract -ME -e A::E-new(archive,$_)-extract
  for*.zip
  IO::Handle - I::H
  Locale::Maketext::Simple - L::M::S
  List::Util - L::U
  Tie::Hash - T::H
  ExtUtils::MM_Unix - E::M
  ExtUtils::MM - E::M
  IPC::Cmd - I::C
  Text::ParseWords - T::P
  Scalar::Util - S::U
  Module::Load::Conditional - M::L::C
  File::Spec - F::S
  ExtUtils::MM_Any - E::M
  File::Path - F::P
  ExtUtils::Liblist - E::L
  File::Spec::Win32 - F::S::W
  Module::Load - M::L
  warnings::register - w::r
  Time::HiRes - T::H
  IO::Seekable - I::S
  Params::Check - P::C
  File::Basename - F::B
  ExtUtils::MM_Win32 - E::M
  version::vxs - v::v
  Archive::Extract - A::E
  File::Spec::Unix - F::S::U
  Exporter::Heavy - E::H
  ExtUtils::MakeMaker - E::M
  ExtUtils::MY - E::M
  IO::Select - I::S
  IPC::Open3 - I::O
  IO::File - I::F
  ExtUtils::MakeMaker::Config - E::M::C
  ExtUtils::Liblist::Kid - E::L::K
 
  (o E da um warn dizendo quais alias ele criou p/ quais modulos...)
 
 
  e segue o codigo do E:
 
 
  package E;
 
  sub import {
 for my $module(keys %INC) {
(my $mod_name = $module) =~ s{/}{::}g;
$mod_name =~ s{\.pm$}{}g;
my $short = join ::, map{substr $_, 0, 1} split ::, $mod_name;
if($short =~ /::/ and $short !~ /^\s*$/ and $short !~ /^:|:$|:{4,}/
  and $mod_name ne $short){
   warn $mod_name,  - , $short, $/;
   $mod_name .= ::;
   *GLOB = *{$mod_name};
   for my $func(keys %{*GLOB}) {
  my $orig_func = $mod_name . $func;
  no strict 'refs';
  my $new = $short . ::$func;
  *{$new} = *{$orig_func};
   }
}
 }
  }
 
  42
 
  sim, ele foi feito correndo aqui p/ não pairarem duvidas de q esse modulo
  é possível e simples...
  certamente ele será refatorado antes de ir p/ o cpan...
  tb escreverei alguns testes...
  se alguém estiver interessado em ajudar, eu agradeço muito...
  com a minha mulher gravida fica difícil arrumar tempo p/ essas
  brincadeiras...
 
  Just another Perl Hacker,
  Fernando (SmokeMachine)
 
 
  Em 30 de maio de 2012 17:37, Marco Lima braun.l...@gmail.com escreveu:
 
  Fernando:
 
  O pior é que vc nem sabe ... essa merda me tirou o sono, fritei a
  noite toda porque sabia que existia mas não lembrava como eh  =(
 
  definitivamente  estou ficando velho ... jah estou até caducando!
  e esse negócio de só ficar desenhando tá me deixando mais enferrujado
  ainda!
 
  SM++
 
  Marco Lima
  braun.l...@gmail.com
  im:m...@jabber-br.org
 
 
  Em 30 de maio de 2012 17:05, Fernando Oliveira
  fernandocor...@gmail.com escreveu:
  
   Em 30 de maio de 2012 03:33, Marco Lima braun.l...@gmail.com
 escreveu:
  
   estou ficando velho 
  
   perl -MArchive::Extract -e
   'Archive::Extract-new(archive,$_)-extract for*.zip'
  
   perl -MArchive::Extract -ME -e
   'A::E-new(archive,$_)-extract for*.zip'
  
   o Módulo E ainda não está no CPAN, mas vou por até o fds...
   Ele cria aliases dos modulos com apenas a 1a letra de cada nome...
  
   :P
  
  
   eu gosto mais com map ... mais tah com 3 a mais
  
   perl -MArchive::Extract -e
   'map{Archive::Extract-new(archive,$_)-extract}*.zip'
  
   vamos ver ...
  
   =)
  
   Marco Lima
   braun.l...@gmail.com
   im:m...@jabber-br.org
  
   Em 30 de maio de 2012 00:35, Gabriel Vieira 
 gabriel.vie...@gmail.com
   escreveu:
Tá de sacanagem

[Rio-pm] Golf, brincadeira? ERA: Re: Unzip

[Fernando Oliveira]

Tipo, vou começar dizendo:
Eu me divirto jogando golf...
se eu não me divertisse, eu não jogaria.
Golf, além de me divertir, me faz crescer como programador, me dá uma
flexibilidade maior de raciocínio. e isso é muito bom.
Mas golf tb assusta. Assusta os novatos que não estão preparados p/ ler
os códigos minúsculos.
Eu gosto de chamar golf de brincadeira p/ não assustar os novatos, do
tipo:

eu vou ter q entender isso p/ programar em perl?!


(embora a resposta, na minha opinião, seja: seria bom, eu não acho uma
boa ideia já fazer isso com novatos...)

outro problema é aquele q eu falei, já aconteceu de gente que podia me
contratar, não querer nem me entrevistar por só ver os meus golfs... Eu
imagino q ele tenha pensado q os códigos da empresa dele fossem ficar uma
zona com alguém q faz aqueles codigos trabalhando lá...

bom, mais alguém tem opinião?


Just another Perl Hacker,
Fernando (SmokeMachine)


Em 30 de maio de 2012 18:48, Marco Lima braun.l...@gmail.com escreveu:

 ueh!

 Estamos unzipando o assunto !!!

 Garanto que é mais ON que muita coisa que foi dita nessa thread heheheh

 e ganhou nada! isso ainda não acabou ...

 Marco Lima
 braun.l...@gmail.com
 im:m...@jabber-br.org

 Register Linux User #483170
 Slackware Linux, for the subgenius


 Em 30 de maio de 2012 18:45, Gabriel Vieira gabriel.vie...@gmail.com
 escreveu:
  Só pra completar...
 
  Acho que é de suma importância à discussão que se realiza na thread...
 
  EU GANHEIII \o/
 
 
  2012/5/30 Marco Lima braun.l...@gmail.com:
  Eu não largo o golf e não vejo o outro lado ... quem escreve código
  ruim é quem não sabe escrever código!
 
  Se alguém te julga porque você joga golf e acha que você não sabe
  escrever código é porque não entende nada do assunto, isso eu posso
  lhe garantir ... o mais importante não é passar perfume, mas ter uma
  visão/raciocínio tão desenvolvido, que seja capaz de dar a melhor
  solução da forma mais otimizada  quem passa perfume eh mulherzinha
  e programadores Python, Java e os PIW ... Perl é Unix! Perl é Radical!
  Perl é para macho! não é para crianças ... Perl é para hacker!
 
  [ ]++
 
  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 30 de maio de 2012 18:27, Fernando Oliveira
  fernandocor...@gmail.com escreveu:
  as tudo tem 2 lados...
  ___
  Rio-pm mailing list
  Rio-pm@pm.org
  http://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
 ___
 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] Unzip

[Fernando Oliveira]

ulisses++



Just another Perl Hacker,
Fernando (SmokeMachine)


Em 29 de maio de 2012 11:47, ulis...@ibiz.com.br escreveu:

   Mantovani, menos.

 Amadureça.

  *From:* Daniel Mantovani daniel.oliveira.mantov...@gmail.com
 *Sent:* Tuesday, May 29, 2012 11:04 AM
 *To:* ulis...@ibiz.com.br ; Perl Mongers Rio de Janeiro rio-pm@pm.org
 *Subject:* Re: [Rio-pm] Unzip

  Ulisses,

 Se for para fazer porcaria, use Shell Script.

  --
 Software Engineer
 Just Another Perl Hacker
 Daniel Mantovani +5511 8538-9897
 XOXO

  On May 29, 2012, at 10:14 AM, ulis...@ibiz.com.br wrote:

jeito ‘dirty’ que funciona em Linux e MS$ |(se vc baixar o unzip for
 windows na máquina).

 se vc puder dar um exec no comando unzip, sugiro

 $cmd = unzip -o \$in\ -d $path_temp_zip; # unzipa $in no subdir
 temporario, adicao de -o para overwrite sem perguntar nada para usuario

 vc pode colocar opções para extrair apenas os arquivos que vc deseja
 extrair: opções –x -C

 $cmd_msg = qx/$cmd 21/; # captura STDOUT e STDERR
 $cmd_status = $?; # memoriza status de retorno do unzip

 if ($cmd_status) {
 ($ok, $sev, $msg) = (0,1,Erro ao executar '$cmd': $cmd_status:
 $cmd_msg);
 
 } else {
navegue por   $path_temp_zip para tratar os arquivos do seu interesse,
 ja filtrados pelas opções que vc deve adicionar no $cmd unzip acima
 }

  *From:* Aureliano Guedes guedes_1...@hotmail.com
 *Sent:* Tuesday, May 29, 2012 8:19 AM
 *To:* Rio PM rio-pm@pm.org
 *Subject:* Re: [Rio-pm] Unzip

  O que tentei fazer foi isso:

 http://pastebin.com/45tHKZur

 Mas ainda não deu certo.


  --
 Date: Mon, 28 May 2012 23:08:44 -0300
 From: ole@gmail.com
 To: rio-pm@pm.org
 Subject: Re: [Rio-pm] Unzip

 Walking through a zipfile, com certeza te providencia o nomes dos
 arquivos. Afinal,.a extensão não importante, faz parte do nome...
 0le
 Send via Android
 Em 28/05/2012 22:48, Aureliano Guedes guedes_1...@hotmail.com
 escreveu:

  Ok. Entendo ja li a documentação, inclusive ja pesquisei codigo pronto
 ja internet. Mas ainda sim não consegui usa-lo, pois especificando a
 extenção do arquivo fica facil, o output saira com a extenção desejada,
 mesmo que você coloque *.cmj (casa da mãe joana).
 Minha duvida é, descompactar 800 arquivos *.zip onde o conteudo pode ser
 arquivos das mais diversas extenções, as vezes mais de um arquivo, as vezes
 uma pasta contendo outros arquivos, acontece que sempre sai um arquivo
 vazio como ja falei.

 Então, como fazer?



   From: gabi...@gmail.com
  Date: Mon, 28 May 2012 22:33:55 -0300
  To: rio-pm@pm.org
  Subject: Re: [Rio-pm] Unzip
 
 
  On May 28, 2012, at 10:18 PM, Aureliano Guedes wrote:
 
  
   Qual seria minh alternativa??
 
  Ao invés do IO::Uncompress::Unzip? Hmmm.. que tal o
 IO::Uncompress::Unzip?
 
 
 https://metacpan.org/module/IO::Uncompress::Unzip#Walking-through-a-zip-file
 
  :D
 
 
 
 
  ___
  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

___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] [OFF-TOPIC] Parentesco

[Fernando Oliveira]

Blabos, essa só os da antiga entenderam!!!

blabos++

Just another Perl Hacker,
Fernando (SmokeMachine)


Em 29 de maio de 2012 15:24, Blabos de Blebe bla...@gmail.com escreveu:

 Aureliano,

 É verdade que você é primo da Paty Silva?

 []'s
 ___
 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