Re: [Rio-pm] (sem assunto)

2017-03-24 Por tôpico Andre Carneiro
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

Re: [Rio-pm] [DÚVIDA]Hash: varias key pra um mesmo value

2016-04-13 Por tôpico Andre Carneiro
Humm... será que Bioperl pode ajudar?

http://search.cpan.org/dist/BioPerl/Bio/Tools/CodonTable.pm

http://search.cpan.org/dist/BioPerl/Bio/CodonUsage/Table.pm

Cheers!

2016-04-13 10:01 GMT-03:00 Ronaldo Ferreira de Lima :

> Saudações Aureliano,
>
> Vou sugerir a abordagem mais simplista que consegui pensar:
>
> Criar um hash com a correspondência entre aminoácidos e códons:
>
> my %a2c = (
> A => [qw[CGA CGC CGT CGG]],
> F => [qw[TTC TTT]],
> L => [qw[TTA TTG CTA CTG CTC CTT]],
> ...
> );
>
> E em seguida criar o hash %aa do seu exemplo:
>
> my %aa;
> foreach my $aminoacido ( keys %a2c ) {
> foreach my $codom ( @{ $a2c{$aminoacido} } ) {
> $aa{$codom} = $aminoacido;
> }
> }
>
> Uma vez que você tem o conhecimento de "o quê gera quem", seria possível
> ainda  modelar o  problema no  código  apenas codificando  as regras  do
> negócio. A implementação  (acho) que poderia ser  apenas com permutações
> e/ou funções/métodos.  Eu entendo nada  de BIO  e fico sem  poder ajudar
> neste aspecto.
>
> On Wed, Apr 13, 2016 at 12:24:53AM +, Aureliano Guedes wrote:
> [...]
> > Eu tenho varias códigos que acessam o mesmo valor (no caso que uso são
> vários
> > códons que traduzem o mesmo aminoácido).
> >
> > Exemplo:
> > Aminoacido -> Códons
> > Sendo os aminoácidos representados por 20 letras diferentes mais o X
> (stop
> > códon).
> > E os codons, combinações de 3 nucleotídeos, sendo um total de 4
> nucleotídeos
> > (A, T, C e G),  logo temos 64 combinações de 3 nucleotídeos (64 codons
> > possíveis).
> > Por isso um mesmo aminoácido pode ser codificado por mais de um códon.
> > No caso do aminoácido Alanina (Ala || A) é códificado pelos códons GCA,
> GCC,
> > GCT ou GCU.  Observe que os dois primeiros nucleotídeos são C e G,
> > respectivamente, e o terceiro pode ser ocupado por qualquer um dos 4
> > nucleotídeo possíveis.
> > Dessa forma:
> >
> >   o A -> CGA ou CGC ou CGT ou CGG
> >
> > Outros:
> >
> >   o F -> TTC || TTT
> >   o L -> TTA || TTG || CTA || CTG || CTC || CTT
> >
> > Bom, meu objetivo é simplesmente criar um hash, como esse:
> >
> >   o my %aa = ( "UUU" => "F", "UUC" => "F",   "UUA" => "L",
> "UUG" =>
> > "L", "UCU" => "S", "UCC" => "S", "UCA" => "S", "UCG" => "S",
> "UAU"
> > => "Y", "UAC" => "Y", "UAA" => "X","UAG" => "X", "UGU" => "C",
> "UGC" =>
> > "C", "UGA" => "X", "UGG" => "W", "CUU" => "L", "CUC" => "L",
> "CUA"
> > => "L", "CUG" => "L", "CCU" => "P", "CCC" => "P", "CCA" =>
> "P",
> > "CCG" => "P", "CAU" => "H", "CAC" => "H", "CAA" => "Q",
> "CAG"
> > => "Q", "CGU" => "R", "CGC" => "R", "CGA" => "R", "CGG" =>
> "R",
> > "AUU" => "I", "AUC" => "I", "AUA" => "I", "AUG" => "M",
> "ACU"
> > => "T", "ACC" => "T", "ACA" => "T", "ACG" => "T", "AAU" =>
> "N",
> > "AAC" => "N", "AAA" => "K", "AAG" => "K", "AGU" => "S",
> "AGC"
> > => "S", "AGA" => "R", "AGG" => "R", "GUU" => "V", "GUC" =>
> "V",
> > "GUA" => "V", "GUG" => "V", "GCU" => "A", "GCC" => "A",
> "GCA"
> > => "A", "GCG" => "A", "GAU" => "D", "GAC" => "D", "GAA" =>
> "E",
> > "GAG" => "E", "GGU" => "G", "GGC" => "G", "GGA" => "G", "GGG" =>
> "G",);
> >
> > Contudo pensei em tomar outra abordagem, informar pra chave quem ela
> pode ser.
> > Não sei se é possível, mas eu comecei tentando algo como:
> >
> >   o my %codon = ( "CG"./[ACTG]/ => "A", "TT"./[CT]/ => "F",
> > ("TT"./[AG]/||"CU"./[ACTG]/) => "L",);
> >
> > Mas não funcionou.
> >
> > Pensei em pegar uma abordagem mais IUPAC, onde:
> >
> >   o Y = C ou T
> >   o R = A ou G
> >   o N = A, C, G ou T
> >
> > *tem outros, mas por enquanto apenas estou vendo a possibilidade.
> > Então fiz:
> >
> >   o my $Y = /[CT]/;
> >   o my $R = /[AG]/;
> >   o my $N = /[ACTG]/;
> >   o
> >
> >   o my %codon = ( "CG".$N => "A", "TT".$Y => "F", ("TT".$R||"CU".$N) =>
> "L",);
> >
> > Mas não funcionou.
>
> --
> "Não manejo bem as palavras
> Mas manipulo bem as strings."
> --
> http://perspicazsite.wordpress.com
>
> ___
> 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

Re: [Rio-pm] ES

2016-02-01 Por tôpico Andre Carneiro
Falando em trabalho, estou desempregado!

Se alguém estiver precisando de 'braço', estou à disposição.


Atenciosamente

2016-02-01 11:37 GMT-02:00 Joenio Costa :

> Puts! Ainda tem grupo Perl Mongers aqui? Vamos marcar um chop marco!
>
> Estou trabalhando na UnB Gama, mas hoje estou remoto em casa no Guará.
>
> 2016-01-26 19:12 GMT-02:00 Marco Lima :
>
>> Brasília!
>>
>> Estou trabalhando na Caixa ... Asa Norte 507
>>
>> Marco Limabraun.lima@gmail.comim: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."
>>
>> On 26-01-2016 18:56, Fernando Oliveira wrote:
>>
>> O q é BSB?
>>
>>
>> Em 22 de janeiro de 2016 no 14:11:29, Joenio Costa (joe...@gmail.com)
>> escreveu:
>>
>> Se for em BSB estou dentro, me mudei pra cá alguns meses.
>>
>> Mago? Você está em BSB?
>>
>> 2016-01-14 18:28 GMT-02:00 Marco Lima :
>>
>>> BSB!
>>>
>>> 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."
>>>
>>>
>>> On 14-01-2016 18:10, Fernando Correa de Oliveira wrote:
>>>
 E aí?! Onde vai ser o 1o ES do ano?
 ___
 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
>>>
>>
>>
>>
>> --
>> Joenio Costa
>> http://joenio.me
>> ___
>> Rio-pm mailing list
>> Rio-pm@pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>>
>>
>> ___
>> Rio-pm mailing listRio-pm@pm.orghttp://mail.pm.org/mailman/listinfo/rio-pm
>>
>>
>>
>> ___
>> Rio-pm mailing list
>> Rio-pm@pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>
>
>
> --
> Joenio Costa
> http://joenio.me
>
> ___
> 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

Re: [Rio-pm] Dúvida com split

2014-11-07 Por tôpico Andre Carneiro
Aureliano,

Você considerou usar Bioperl, para auxiliá-lo na 'lida' com bioinformática?

É uma biblioteca bastante madura e amplamente usada. Seria bom dar uma
olhada - http://www.bioperl.org/wiki/Main_Page

https://metacpan.org/pod/distribution/BioPerl/BioPerl.pm


Atenciosamente

2014-11-07 20:35 GMT-02:00 Ronaldo Ferreira de Lima jimmy@gmail.com:

 Saudações Aureliano,

 On Fri, Nov 07, 2014 at 02:03:08PM +, Aureliano Guedes wrote:
 [...]
  o fato é que ainda não aprendi bem regex então não conhecia \w.
 [...]
 Sendo regexp uma limitação, você  poderia fazer a manipulação de strings
 sem  o  uso  de  regexp  neste caso.  Dois  exemplos  (de  provavelmente
 dezenas):

 1. # Obs.: Destrói o conteúdo de $rna
my @condom;
push @condom, substr $rna, 0, 3, q() while length $rna  2;

 2. # Trata o conteúdo da scalar $rna como um filehandle
local $/ = \3;
open my $fh, q(), \$rna;
my @condom = $fh;

 []'s
 --
 Não manejo bem as palavras
 Mas manipulo bem as strings.
 --
 http://tecnoveneno.blogspot.com
 ___
 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

Re: [Rio-pm] Dúvida com split

2014-11-07 Por tôpico Andre Carneiro
Got it!

:D

2014-11-07 21:31 GMT-02:00 Aureliano Guedes guedes_1...@hotmail.com:

  Eu conheço o BioPerl. Mas eu preciso fazer essas pequenas rotinas eu
 mesmo. Porque alem de serem pequenas pra  necessitar de módulos externos,
 fica mais portável para sistemas que nao possuem o BioPerl instalado. E
 também são exercícios.
 Mesmo assim obrigado.

 Andre Carneiro andregarciacarne...@gmail.com escreveu:

   Aureliano,

  Você considerou usar Bioperl, para auxiliá-lo na 'lida' com
 bioinformática?

 É uma biblioteca bastante madura e amplamente usada. Seria bom dar uma
 olhada - http://www.bioperl.org/wiki/Main_Page

 https://metacpan.org/pod/distribution/BioPerl/BioPerl.pm


  Atenciosamente

 2014-11-07 20:35 GMT-02:00 Ronaldo Ferreira de Lima jimmy@gmail.com:

 Saudações Aureliano,

 On Fri, Nov 07, 2014 at 02:03:08PM +, Aureliano Guedes wrote:
 [...]
  o fato é que ainda não aprendi bem regex então não conhecia \w.
 [...]
 Sendo regexp uma limitação, você  poderia fazer a manipulação de strings
 sem  o  uso  de  regexp  neste caso.  Dois  exemplos  (de  provavelmente
 dezenas):

 1. # Obs.: Destrói o conteúdo de $rna
my @condom;
push @condom, substr $rna, 0, 3, q() while length $rna  2;

 2. # Trata o conteúdo da scalar $rna como um filehandle
local $/ = \3;
open my $fh, q(), \$rna;
my @condom = $fh;

 []'s
 --
 Não manejo bem as palavras
 Mas manipulo bem as strings.
 --
 http://tecnoveneno.blogspot.com
  ___
 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




-- 
André Garcia Carneiro
Software Engineer
(11)982907780
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] [OT] TL1 - Transact Language 1

2014-07-26 Por tôpico Andre Carneiro
Acredito que o Thiago Rondom possa te ajudar com isso.


Cheers!


2014-07-25 14:20 GMT-03:00 Claudio Pereira claudiopere...@gmail.com:




 2014-07-25 11:42 GMT-03:00 Fosforo fosf...@gmail.com:

 Na Nokia usavam Jnetx, que tem varios conectores pra protocolos de
 telecomunicacao, mas ele eh so java. Citei so caso queira pegar ele e fazer
 uma RE pra criar os conectores em Perl.

 --
 []s Fosforo
 -
 Se eu tiver oito horas pra cortar uma arvore, passarei seis afiando meu
 machado.
 -Abraham Lincoln
 -


 2014-07-25 11:30 GMT-03:00 Fernando Corrêa de Oliveira 
 fernandocor...@gmail.com:

 Se eu tivesse memória eu responderia com mais certeza, mas eu acho q eu
 já usei isso sim…



 show! valeu pelas respostas, mas encontrei uns 2 modulos no CPAN que
 funcionam, soh pegar os comandos do equipamento e desenvolver agora.

 Abraços, IndioX.
  --
 Claudio P Costa
 BSDA Certified - http://bsdcertification.org

 ___
 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

Re: [Rio-pm] empregos perl no rio (ou brasil)

2014-05-05 Por tôpico Andre Carneiro
O que mais eu vejo é vaga para suporte de infra/rede e sys admin(por aqui,
sinônimo para 'faz-tudo'). Quando não é isso, é para cuidar de código
legado e/ou novo de back-end, o que eu considero bem divertido. Mas a
principal observação é que, normalmente, o requisito principal para as
vagas não é Perl, mas shellscript, Java, PHP(argh!) e coisas assim. Perl
aparece quase sempre como requisito 'desejável', ao invés de 'básico' ou
imprescindível. E isso é um tanto perturbador pra mim, pelo menos.

Quanto a salário não sei dizer ao certo. Normalmente vale a pena investir
em certificação LPI, no caso de trabalhos com suporte/infra. Os
certificados ajudam você a ganhar um pouco mais. Mestrado, doutorado e
afins parecem ter mais importância para cargos de liderança/executivos. Mas
nada supera o networking... ;-)

Tudo isso que eu falei é baseado no que tenho observado do mercado através
de anúncios, e de colegas. Como eu não confio em pesquisas publicadas por
consultorias de RH, prefiro acreditar no que vejo, do escuto de colegas, de
quem me procura oferecendo emprego, e informações das listas de discussão.


Espero ter ajudado


Atenciosamente



2014-05-05 15:38 GMT-03:00 Diego Tostes dtos...@gmail.com:

 Pessoal,

 Como andam as vagas de perl no rio ou no brasil?

 Quais empresas ou nichos que mais contratam?

 Abs

 Diego

 ___
 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

Re: [Rio-pm] Recomendação de modulos para Log

2014-03-07 Por tôpico Andre Carneiro
Log4perl ainda é a melhor opção.


2014-03-05 22:13 GMT-03:00 breno oainikus...@gmail.com:

 Manoel,

 também recomendo o Log4perl, e para apps Mojolicious vc pode usar o
 https://metacpan.org/pod/MojoX::Log::Log4perl =]

 []s

 -b

 2014-03-05 11:48 GMT-05:00 Solli Honorio shono...@gmail.com:
  Manoel,
 
  Eu utilizo o Log4Perl e gosto dele por ser independente e permitir
 expandir
  a saida para quase tudo que existe hj, e se não existir é só fazer um
  plugin.
 
  Não recomendo fazer um sistema de log proprietário .
 
  Se eu não estiver enganado, o Log::Any é uma interface/bind para vários
  tipos de Log.
 
  Solli Honorio
 
 
 
  Em 5 de março de 2014 13:05, Manoel Domingues Junior
  manoel.domingues.jun...@gmail.com escreveu:
 
  Olá pessoal,
 
  Estou fazendo uns scripts(na verdade é uma API com Mojolicious::Lite)
 aqui
  e implementei uma função de log usando um conjunto de Net::Syslog com
  Sys::Syslog para fazer o log do script.
 
  https://gist.github.com/mdjunior/9369937
 
 
 
  sub log_wrapper {
 
  my $log = shift;
 
  my $priority = shift;
 
 
  if ( ! defined $priority ) {
 
 
 
   $priority = 'debug';
 
  }
 
  if ( $ENV{APP_LOG} eq 'LOCAL' ) {
 
 
 
  openlog( $ENV{APP_NAME}, 'ndelay,pid', 'LOG_DAEMON' );
 
 
 
  syslog( $priority, $log );
 
  closelog();
  } elsif ($ENV{APP_LOG} eq 'NET') {
 
 
 
  my $log_net = Net::Syslog-new(
 
 
 
  Name = $ENV{APP_NAME},
 
 
 
  Facility = 'local7',
 
  Priority = $priority,
 
  SyslogPort = $ENV{APP_SYSLOG_PORT},
 
 
 
  SyslogHost = $ENV{APP_SYSLOG_HOST},
 
 
 
  );
  $log_net-send($log);
 
 
 
  }
  return;
 
  }
 
  Pesquisando na internet vi que muita gente comenta sobre o
 Log::Log4perl e
  o Log::Any mas não sei bem qual desses (ou outros) é o ideal ou o
 padrão de
  uso.
 
  No caso, toda a configuração do meu script fica em variáveis de
 ambiente.
  O script possui uma trilha de auditoria que é feita usando os logs,
 logo ele
  gera eventos em grande quantidade em diferentes níveis (debug, info e
  error).
 
  Alguma recomendação?
 
  Abraços,
  --
  --
  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
 
 
 
 
  --
  o animal satisfeito dorme. - Guimarães Rosa
 
  ___
  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




-- 
André Garcia Carneiro
Software Engineer
(11)982907780
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Emissão de NF-e

2013-10-27 Por tôpico Andre Carneiro
Aureliano

Acho difícil que exista algo desse tipo em qualquer linguagem, que não seja
proprietário. Mesmo para poder usar a API via webservice é preciso está
credenciado pela receita federal, e o serviço, se não me engano, é pago! O
que acho um absurdo, mas isso não importa!


Achei esse material aqui num fórum. Não sei se está atualizado Espero que
seja útil!

http://www.guj.com.br/posts/downloadAttach/4710.java


Fuçando mais um pouquinho achei isso aqui:

http://www.ticontrole.gov.br/portal/page/portal/ticontrole/biblioteca


Por acaso é a origem do documento que encontrei no fórum. Mas não encontrei
essas coisas no site da receita federal. Provavelmente porque não deveria
mesmo estar lá!

Proost!



2013/10/27 Aureliano Guedes guedes_1...@hotmail.com

 Boa tarde,
 Monges.

 Gostaria de saber se alguém conhece algum módulo voltado para integração
 com a secretaria da fazenda para emissão de nota fiscal eletrônica?

 Obrigado,

 ___
 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

Re: [Rio-pm] xpath

2013-04-03 Por tôpico Andre Carneiro
Matheus


Se você for usar para parsear HTML, você pode tentar o
HTML::TreeBuilder::XPath, ou mesmo o WWW::Scraper. Ambos são excelentes! O
WWW::Scraper tem conceitos bem diferentes do HTML::TreeBuilder::XPath. Eu
recomendo que você veja os dois!

Esse assunto é bem recorrente por aqui. Se quiser, você pode entrar no site
oficial do São Paulo Perl Mongers. Se não me falhe a memória, tem tutoriais
abordando esse problema com os dois módulos que eu mencionei. O site é esse
aqui: http://sao-paulo.pm/artigos

O artigo que eu escrevi sobre isso é esse aqui:
http://sao-paulo.pm.org/artigo/2010/utilizandoxpathparacriarwebspiders

O outro eu não achei. Kd o artigo de scrapping com WWW::Scraper, pessoal?



Cheers!


2013/4/3 Matheus Lucas mal...@yahoo.com.br

 Ola amigos !
 Esbarrei em um problema com algumas regex aqui em arquivos html e me deram
 a ideia de usar xpath para resolver. Eu nunca trabalhei com xpath e achei
 muitos modulos na cpan.
 Gostaria de saber se alguem ja trabalhou com algum modulo de xpath pra
 perl e gostaria de receber opniões que modulo é interessante, mais rapido
 de aprender e tals ? Ja vi que tem varios, mais ainda não sei qual é o
 melhor para o problema e continuo a estudar. Gradeço se alguem puder me
 orientar nisso.
 Agradeço a todos !

 *
 *
 *
 *
 *
 *
 **
 Matheus Lucas
 Tecnologia em Sistemas para Internet
 Viçosa-MG

 *Seja livre, use Linux !*

 ___
 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

Re: [Rio-pm] xpath

2013-04-03 Por tôpico Andre Carneiro
stan++

Boa Stan! Não lembrei desse aí.


Cheers!

2013/4/3 Stanislaw Pusep creakt...@gmail.com

 Matheus, você provavelmente conhece os seletores CSS, esses popularizados
 pelo jQuery.
 Pois é, não há necessidade de aprender XPath, caso já conheça esses
 seletores: https://metacpan.org/module/HTML::Selector::XPath
 (seletor CSS pode ser convertido em XPath, porém a recíproca não é válida!)
 Aliás, talvez o Web::Query (https://metacpan.org/module/Web::Query) seja
 mais familiar/intuitivo para scraping do que Web::Scraper.


 ABS()


 2013/4/3 Matheus Lucas mal...@yahoo.com.br

 Ola amigos !
 Esbarrei em um problema com algumas regex aqui em arquivos html e me
 deram a ideia de usar xpath para resolver. Eu nunca trabalhei com xpath e
 achei muitos modulos na cpan.
 Gostaria de saber se alguem ja trabalhou com algum modulo de xpath pra
 perl e gostaria de receber opniões que modulo é interessante, mais rapido
 de aprender e tals ? Ja vi que tem varios, mais ainda não sei qual é o
 melhor para o problema e continuo a estudar. Gradeço se alguem puder me
 orientar nisso.
 Agradeço a todos !

 *
 *
 *
 *
 *
 *
 **
 Matheus Lucas
 Tecnologia em Sistemas para Internet
 Viçosa-MG

 *Seja livre, use 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




-- 
André Garcia Carneiro
Software Engineer
(11)982907780
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] YAPC::Brasil 2013 - Novidades

2013-01-15 Por tôpico Andre Carneiro
Valeu pelas informações, Felipe!

2013/1/15 Felipe Leprevost fel...@leprevost.com.br

 Olá Pessoal

 Gostaria de anunciar a todos que o local para o nosso evento deste ano
 já foi escolhido. A edição 2013 do YAPC::Brasil que irá ocorrer em
 Curitiba nas datas 15 e 16 de novembro será no Full Jazz Hotel.

 O local é vantajoso por estar em um bairro nobre da cidade que
 concentra uma boa quantidade de bares, restaurantes e casas noturnas,
 é de fácil acesso utilizado o transporte público da cidade ou por
 carro e fica próximo a outros hotéis de diferentes níveis de
 qualidade. O hotel é bastante conhecido na cidade por ser temático,
 tendo sido todo decorado ao estilo Jazz. O hotel possui também o mais
 famoso bar de Jazz de Curitiba, que é muito bom.

 Quero lembrar a todos que os dias 15 e 16 de novembro (sexta e sábado)
 serão dias de feriado, escolhemos essa data porque assim as pessoas
 poderão aproveitar os dois dias de evento e caso queiram, podem
 aproveitar o domingo em Curitiba para passear e conhecer a cidade.

 Lembrando também que o tema deste ano será O Universo Científico.

 Acredito que agora que temos a cidade, o local e a data já podemos
 começar a organizar o evento em si, o que acham?

 Abraços.

 --
 Felipe da Veiga Leprevost
 www.leprevost.com.br
 Laboratory for Proteomics and Protein Engineering.
 Fiocruz, Brazil.
 ___
 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

Re: [Rio-pm] Perl POD

2012-12-18 Por tôpico Andre Carneiro
Nicole


POD é a muito tempo o esquema de documentação 'oficial', principalmente se
você pensar em publicação(CPAN). É o que o CPAN aceita para publicações.
Mas, provavelmente, estou bem mal-informado sobre isso. Melhor dar uma
olhada, caso pretenda publicar algo no CPAN.

De qualquer forma, a muito tempo eu ouso falar no doxygen, embora nunca
tenha usado. Se não me engano, é o esquema que o pessoal de  PHP e Java se
baseam para documentar. É possível 'cuspir' documentação em Latex, e outros
formatos, assim como POD. A diferença é que eles tem APIs facilitadoras
prontas para indexar e 'cuspir' documentação em vários formatos. POD é meio
'faca na caveira', até onde eu sei. Eu pelo menos, faço meus próprios
scripts utilizando pod2html. No entanto eu imagino que o pessoal mais novo
já faça algo mais interessante que isto, certo pessoal?



Cheers!


2012/12/18 Tiago Peczenyj tiago.pecze...@gmail.com

 Isso não é gambiarra se vc usar certo.

 agora a vantagem do pod é a documentação estar no mesmo arquivo que o seu
 módulo. assim vc não precisa editar dois ou mais arquivos para fazer uma
 simples alteração e evita que a documentação fique obsoleta.

 e fica pratico com o perldoc Seu::Modulo

 agora vc pode ter .pod especificos para tutoriais ou outras explicações. a
 vantagem do POD é ser built-in mas vc pode usar o que vc quiser pra
 documentar, como um simples README em texto puro ou markdown, LaTeX,
 postscript, pdf, word, etc. Tudo depende do que vc quer - timtowtdi.

 2012/12/18 Nicole Scherer bionica2007-p...@yahoo.com

 Oi Mongers,

 vocês usam o perl POD para documentar seus scripts e pacotes, ou há outra
 estratégia de documentação mais recomendada.

 Pergunto, porque já usei (bem pouquinho) o POD, só que com ele eu perco a
 gambiarra de comentar pedaços grandes de código usando o =begin ... =cut.
 Existe outra estratégia não-gambiarra de comentar pedaços de código que
 não seja colocando # no início de cada linha?

 Acho engraçado que o próprio nome Plain Old Documentation format diz
 que é antigo (o que não necessariamente significa desatualizado)
 Li algo sobre Natural Docs, alguém usa?


 []'s
 Nicole

 ___
 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




-- 
André Garcia Carneiro
Software Engineer
(11)982907780
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] [Passatempo] Interpretador para BrainFuck

2012-12-13 Por tôpico Andre Carneiro
Meio estranho você não entender when e entender given, mas vamos lá!
Normalmente eu mandaria um RTFM, mas já estou velho e manso ultimamente...

given é equivalente a 'switch'

when é equivalente a 'case'

Então, se você estiver usando Perl 5.10 ainda,

code
use feature qw/switch say/; #Isso sim, é escroto pra caramba! Se a função
chama-se 'given', pra que mudar o nome para switch???
use strict;
use warnings;
#Ou dane-se tudo isso e faça 'use common::sense';


my $var = 'Carneirao';

given($var){
   when( 'Carneirao'){
   say Opa, sou eu!;
   }
   when(/Sbrebows/){
  say 'WTF???';
   }
   default {
  say Nao sei o que quer dizer...;
   }
}

#Antigamente fazíamos assim:

use Switch;


switch($var){
 case 'Carneirao' { say Opa, sou eu!;}
 case /Sbrebows/ {say WTF;}
 else { say Nao sei o que quer dizer;}
}


#Mas, do Perl 5.10 em diante, o módulo Switch está com status
 'deprecated', então use a primeira opção!

/code


Agora sim! Para mais informações RTFM my friend!!!


http://perldoc.perl.org/Switch.html

http://perldoc.perl.org/perlsyn.html#Switch-Statements


:-)
Cheers!




2012/12/13 breno br...@rio.pm.org

 2012/12/12 Aureliano Guedes guedes_1...@hotmail.com:
  Ainda não tinha me aventurado nas novidades do Perl 5.16.
 
  o when eu entendi, mas o given não, alguem poderia me explicar o uso do
  given??
 
  O break ja funciona no 5.16?? se sim, como???
 

 given/when existe no Perl desde a versão 5.10, com direito a default,
 continue e break =)

 Pra saber como, dá uma olhada aqui ó:

 http://perldoc.perl.org/perlsyn.html#Switch-Statements

 tem tudo explicadinho, inclusive o fato de que given() é experimental
 - a forma recomendada de definir o tópico é com for().

 Boa diversão!

 []s

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

Re: [Rio-pm] Fwd: Senior Perl and Sysop opportunity with Betonmarkets.com

2012-10-08 Por tôpico Andre Carneiro
eheheh...

Eu recebi essa também.




On Mon, Oct 8, 2012 at 11:35 AM, Stanislaw Pusep creakt...@gmail.comwrote:

 FWIW

 ABS()



 -- Forwarded message --
 From: Jean-Yves Sireau j...@regent-markets.com
 Date: Mon, Oct 8, 2012 at 4:00 AM
 Subject: Senior Perl and Sysop opportunity with Betonmarkets.com
 To: s...@sysd.org


  Dear Stanislaw,

 Betonmarkets.com is currently recruiting for a Senior Perl Developer and
 a Senior Systems Engineer. Your email address is in our database of
 experienced Perl and Linux developers. Would you potentially have an
 interest in either position?

 This is a unique opportunity to join a multi-national team of talented
 developers, whilst gaining international experience in Malaysia's
 e-commerce hub of Cyberjaya.

 Our Group was founded in 1999, we have been operating in Malaysia since
 2004. We have a technical team of diverse nationalities, including people
 working in Malaysia as well as commuters in different parts of the world.

 Our company provides IT and quant (financial mathematics) services to the
 betonmarkets.com financial platform. We use Perl and lots of Perl-related
 technologies extensively. We use other technologies too such as Apache,
 nginx, mod_perl, PostgreSQL, Javascript, Git, Puppet, Selenium, Jenkins,
 OpenVZ and AWS. We use Linux for all our infrastructure and desktops.
 Our daily routine involves maintaining the business operations as well as
 developing and deploying new solutions to make life easier for ourselves
 and our customers.

 We have a very casual work environment and culture, from dress code to
 the way we communicate and work. Our technical teams are people who are
 deeply concerned about the quality of their work and have a passion for
 it. We try to improve the way things are done constantly. We don't have
 a very big team so our staff have to deal with a variety of interesting
 tasks on a daily basis.

 Right now due to recent business expansion we have a vacancy for a
 Senior Perl Developer and a Senior Systems Engineer. As a part of our
 technical team, the successful candidates will be involved in our daily
 operations to make our infrastructure and products closer to what our
 customers need. Development is ongoing and we deploy regularly. We
 really care about testing and fault-proofing our code before it goes
 live so there’s a great deal of QA involved. We use virtualization
 extensively and rely on third party cloud services for parts of our
 operation. We are always on the lookout for new technologies that can
 add value to our portfolio of tools and services.

 You might be a good match for our company if:

 - You are knowledgeable and passionate about Linux and its nuts and
   bolts;
 - You are experienced with Perl. Take our word - there’s no escape
   from Perl here;
 - You are familiar with technologies such as Apache, nginx, Git, Debian
   packaging, monitoring solutions and are comfortable learning new ones
   when needed;
 - You can work as a part of a team of people as good as or better than
   you.
 - You can take and provide criticism and build on the experience to
   build better solutions in the future;
 - You are an independent thinker and can surprise yourself and the
   others with the new stuff you come up with;
 - As a developer, you are familiar with the concepts of software
   quality assurance and can test your own and other’s code against
   best-practice standards.

 So after what we expect from you, here's a list of the things you can
 expect from us:

 - You can expect a competitive compensation package, including health
   and other benefits;
 - A multi-national team of talented and passionate engineers;
 - Friendly and casual working environment;
 - Flexible working hours;
 - Canteen with refreshments for those times when you really need some;
 - Working from home option on certain occasions;
 - The opportunity to explore Malaysia, an exciting destination.
 - Work permit and relocation assistance.

 Please visit 
 http://www.regentmarkets.com/careershttp://api.elasticemail.com/tracking/click?msgid=llhl4s-dupal422target=http%3a%2f%2fwww.regentmarkets.com%2fcareersfor
  further
 information about the company and the job opportunities.

 If you think you can be a good match for our company, drop us a line
 along with your resume. While not mandatory here's a list of the things
 we might be really interested in:

 - Projects you have been involved in;
 - If you have any public repositories on places such as github, please
   provide a link to them;
 - Contributions you might have made to open-source projects such as
   providing patches, new features,...
 - Anything that gives us a better picture of who you are and what you
   do.

 Please feel free to forward this email to any person who you think
 might fit the profile we are looking for.

 Many thanks and best regards,

 Jean-Yves Sireau


 ___
 Rio-pm mailing list
 Rio-pm@pm.org
 

Re: [Rio-pm] Onde você usa Perl?

2012-07-18 Por tôpico Andre Carneiro
Acho que perguntei isso na sp-pm. De qualquer forma, fiquei curioso e
preparei esse pequeno e humilde survey monkey bem rapidinho. Se tiverem
saco, por favor respondam:


http://www.surveymonkey.com/s/YZV3CN6



Cheers!

2012/7/18 Nuba Princigalli n...@fastmail.fm

 Caros,

 Conversando com o Jim Keenan (NY.PM) de como sabemos pouco sobre que
 empresas usam Perl aqui, ele me rebateu com uma pergunta muito boa e
 muito óbvia: já experimentou perguntar na lista? rsrs e realmente,
 até agora, não mas isso é fácil de resolver! Então lá vai:

 * Pessoal, em que empresas, instituições, startups, etc. vocês estão
 usando Perl, ou usaram recentemente, Perl?

 Aos mais inspirados, fica o convite de contarem também sobre *como*
 estão usando, e junto com o quê! :)

 Abraço,

 Nuba Princigalli

 --
 Nuba R. Princigalli  n...@pauleira.com  http://pauleira.com  @nprincigalli
 Discipline is not an end in itself, just a means to an end. - King Crimson

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




-- 
André Garcia Carneiro
Analista/Desenvolvedor Perl
(11)82907780
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm