[Rio-pm] Vaga Perl no RJ

[Eduardo Maia]

Salve, monges!

A empresa onde trabalho está contratando Programador Perl Júnior, não precisa estar formado. Segundo orientação, "pode até ser alguem que só conheça C e se disponha a aprender Perl".

Desejável:
- Conhecimentos de Perl, HTML, SQL, Linux
- Compreensão de inglês técnico

Pra trabalhar em Copacabana, 8hs/dia em horário comercial, com flexibilidade de horário. A empresa oferece contratação na CLT + Vale Transporte + Vale Refeição + Assistência Médica Unimed.

Enviar CV com pretensão salarial para hpechman em online.com.br

Valeu!


On Tue, 13 Jun 2006 01:19:24 -0300, "Marco A P D'Andrade" <mdacwb em gmail.com> escreveu:
> De: "Marco A P D'Andrade" <mdacwb em gmail.com>
> Data: Tue, 13 Jun 2006 01:19:24 -0300
> Para: "Perl Mongers Rio de Janeiro" <rio-pm em pm.org>
> Assunto: Re: [Rio-pm] problema em match de arquivos
> 
> Breno,
> 
> Em perlre achei a seguinte referencia:
>   In addition, Perl defines the following:
>    ...
>     \pP Match P, named property.  Use \p{Prop} for longer names.
>    ...
> 
> Como vc esta fazendo expressao regular com variaveis, vc deve usar os
> escapes ...
>    $regex =~ s/\\/\\\\/g  if ( $^O =~ /win32/i );
> 
> Mas creio que uma mudança de abordagem seria produtiva ...
> 
> Em vez de comparar com RE, que tal eq ??
>    if ( $_ eq $ignorado ) { print "*** ignorei $_ ***"; }
> 
> 
> Por outro lado... vc pode precisar de mascaras para ignorar, certo?
> 
> Que tal fazer um processo específico para carregar a lista de
> ignorados em um hash e verificar se existe depois ??
> 
> Quais as sintaxes validas para ignorado?
> 
> São validos:
>   \path\*
>   \path\*\*.log  << Complica mais!
> 
> Se a mascara for somente no arquivo é muito mais simples!!
> 
>   map { $Ignorados{$_}=0 } glob($ignorado)
> 
> Para simplificar a discussão ...
> 
> #---------------
>  my %Ignorados;
>   open(ARQ, '<', 'ignorado.txt') or die "$!\n";
>   while ( defined( $_ = <ARQ> ) ) {
> 	chomp;
> 	map { $Ignorados{$_}=0 } glob($_);
>   }
>   close(ARQ);
>   open(ARQ, '<', 'diretorio.txt') or die "$!\n";
>   chomp(my $dir = <ARQ>);  # aqui eu leio '\*'
>   close(ARQ);
> 
>   foreach ( glob($dir) ) {
> 	print "Pesquisando \"$_\":\n";
> 	if ( exists($Ignorados{$_}) ) {
> 		print ">> Ignorar $_\n";
> 		next;
> 	}
> 	print ".";
>   }
> #--------------->> novo ignorados.txt (nao tinha pagefile.sys no drive
> em teste ;D
> \ace.log
> \pagefile.sys
> \hp*.*
> #---------------
> 
> 
> Sds,
> Marco Antonio
> 
> Em 13/06/06, breno em clavis.com.br<breno em clavis.com.br> escreveu:
> > Salve pessoal,
> >
> > estou com o seguinte problema: tenho uma lista de arquivos a serem lidos (expandidos via
> > glob() e outra lista de arquivos a serem ignorados. Mas devo estar comendo mosca em
> > algum lugar pois não sei pq não está funcionando.
> >
> > O código abaixo reproduz o problema (obs: o código é PARA WINDOWS, isso é importante
> > frisar por causa das barras e do exemplo em si):
> >
> > esse código lê dois arquivos: "ignorado.txt" contendo apenas a linha:
> >
> > \pagefile.sys
> >
> > e "diretorio.txt", contendo apenas a linha:
> >
> > \*
> >
> > esse é o código que reproduz o problema:
> >
> > --------------------8<----------------------
> > open(ARQ, '<', 'ignorado.txt') or die "$!\n";
> > chomp(my $ignorado = <ARQ>); # aqui eu leio '\pagefile.sys'
> > close(ARQ);
> >
> > open(ARQ, '<', 'diretorio.txt') or die "$!\n";
> > chomp(my $dir = <ARQ>);  # aqui eu leio '\*'
> > close(ARQ);
> > my @lista_expandida = glob($dir);
> >
> > foreach(@lista_expandida) {
> >     print "comparando \"$_\" com \"$ignorado\"...\n";
> >     if($_ =~ /^$ignorado/) {
> >         print "*** ignorei $_ ***";
> >     }
> > }
> > --------------------8<----------------------
> >
> > note que coloquei dois print() dentro do foreach() para depurar, e ele simplesmente não
> > entra dentro do if()... recebo até a saída:
> >
> > comparando "\pagefile.sys" com "\pagefile.sys"...
> >
> > alguém tem idéia do que pode estar acontecendo????
> >
> > o problema acredito que esteja relacionado com a barra invertida, mas não sei como
> > solucioná-lo e não posso retirar a barra...
> >
> > curiosamente, se tiro o "^" do match dentro do if(), logo que ele compara
> > "\pagefile.sys" com "\pagefile.sys" (onde deveria entrar, ele morre com o erro:
> >
> > Can't find Unicode property definition "a"
> >
> >
> > Qualquer ajuda ou indicação será *muito* bem vinda, especialmente dos monges que usam
> > Windows (não é muito a minha praia ;-)
> >
> > à título de curiosidade, caso possa ajudar:
> > ------------------
> > This is perl, v5.8.7 built for MSWin32-x86-multi-thread
> > (with 7 registered patches, see perl -V for more detail)
> > ------------------
> >
> > []s
> >
> > breno
> >
> > _______________________________________________
> > Rio-pm mailing list
> > Rio-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/rio-pm
> >
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
> 
> 
>