[Rio-pm] Mais um membro

Fernando Oliveira fernandocorrea em gmail.com
Quinta Junho 19 03:58:46 PDT 2008 

Ond está o $string?

2008/6/19 Lucas Mateus <lucasmateus.oliveira em gmail.com>:

> perl -pe'-MARGV>($MTime=0),$_=$ARGV.$/' -F/teste/ /dir/*
>
>
> 2008/6/19 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>
>> Para 5.8.8 e 5.10, putss to com sono heuaheuha
>>
>> perl -pe'-M ARGV>($MTime=0),$_=$ARGV.$/' -F/teste/ /*
>>
>>
>>
>> 2008/6/19 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>>
>>> Sorry, mas nosso codigo so rola em Perl 5.10
>>>
>>> Regras para versao ?
>>>
>>> 2008/6/19 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>>>
>>> Blz ate rodou aki, mas ta trazendo arquivos q nao tem 'teste' dentro do
>>>> arquivo
>>>>
>>>>
>>>> 2008/6/19 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>>
>>>> aqui no meu 5.10.0 funcionou...
>>>>> Eden, Deu erro ou não fez o q deveria?
>>>>>
>>>>>
>>>>> 2008/6/18 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>>>>>
>>>>>> Fernando seu codigo nao funciona :)
>>>>>>
>>>>>>
>>>>>>
>>>>>> 2008/6/18 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>>>>>>
>>>>>>> Brother Breno, sim sim os nomes das VARS tem q manter, segundo o
>>>>>>> Fernando.
>>>>>>>
>>>>>>>
>>>>>>> 2008/6/18 breno <breno em rio.pm.org>:
>>>>>>>
>>>>>>> Pq vcs estão usando nomes de variáveis tão grandes? Está nas regras?
>>>>>>>> O
>>>>>>>> código pára de funcionar?
>>>>>>>>
>>>>>>>> perl -nE'/(?{$s="teste"})/&&-M ARGV>($M=0)&&say$ARGV' /dir/*
>>>>>>>>
>>>>>>>>
>>>>>>>> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>>>>>> > perl -nE'/(?{$string="teste"})/&&-M ARGV>($MTime=0)&&say$ARGV'
>>>>>>>> /dir/*
>>>>>>>> >
>>>>>>>> > 2008/6/18 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>>>>>>>> >>
>>>>>>>> >> perl -nE'$string="teste";/$string/&&-M ARGV>($MTime=0)&&say$ARGV'
>>>>>>>> /dir/*
>>>>>>>> >>
>>>>>>>> >> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>>>>>> >>>
>>>>>>>> >>> se é assim:
>>>>>>>> >>>
>>>>>>>> >>> perl -nE'$string="teste";say$ARGV if/$string/&&(stat
>>>>>>>> ARGV)[9]>($MTime=0)'
>>>>>>>> >>> /dir/*
>>>>>>>> >>>
>>>>>>>> >>> 2008/6/18 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>>>>>>>> >>>>
>>>>>>>> >>>> perl -nE'$MTime=0;$string="teste";say$ARGV if/$string/&&(stat
>>>>>>>> >>>> ARGV)[9]>$MTime' /dir/*
>>>>>>>> >>>>
>>>>>>>> >>>>
>>>>>>>> >>>> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>>>>>> >>>>>
>>>>>>>> >>>>> é do mesmo tamanho!!! agora q eu ví!
>>>>>>>> >>>>>
>>>>>>>> >>>>>
>>>>>>>> >>>>> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>>>>>> >>>>>>
>>>>>>>> >>>>>> Muito boa!
>>>>>>>> >>>>>>
>>>>>>>> >>>>>> Bom... mesma coisa q eu fiz antes...
>>>>>>>> >>>>>> perl
>>>>>>>> >>>>>>
>>>>>>>> -nE'BEGIN{$MTime=0;$string="teste"}/$string/&&(stat($_=$ARGV))[9]>$MTime&&say'
>>>>>>>> >>>>>> /dir/*
>>>>>>>> >>>>>>
>>>>>>>> >>>>>> 2008/6/18 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>>>>>>>> >>>>>>>
>>>>>>>> >>>>>>> Bom so parafraseando o Fernando, mas diminuindo um pouco:
>>>>>>>> >>>>>>>
>>>>>>>> >>>>>>> perl -nE'BEGIN{$MTime=0;$string="teste"}/$string/&&(stat
>>>>>>>> >>>>>>> ARGV)[9]>$MTime&&say$ARGV' /dir/*
>>>>>>>> >>>>>>>
>>>>>>>> >>>>>>>
>>>>>>>> >>>>>>> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>>>>>> >>>>>>>>
>>>>>>>> >>>>>>>>
>>>>>>>> >>>>>>>> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>>>>>> >>>>>>>>>
>>>>>>>> >>>>>>>>> Mas o q vc quer no metodo procura é achar os arquivos q
>>>>>>>> contenham
>>>>>>>> >>>>>>>>> uma certa string
>>>>>>>> >>>>>>>>> e q tenham o mtime maior q $MTime, né?!
>>>>>>>> >>>>>>>>>
>>>>>>>> >>>>>>>>> Eu proponho a todos um golf!
>>>>>>>> >>>>>>>>> esquecendo OO e o resto...
>>>>>>>> >>>>>>>>> minha primeira tacada:
>>>>>>>> >>>>>>>>>
>>>>>>>> >>>>>>>>> perl -nE'BEGIN{$MTime=0;$string="teste"}say$ARGV
>>>>>>>> if/$string/&&(stat
>>>>>>>> >>>>>>>>> ARGV)[9]>$MTime' /dir/*
>>>>>>>> >>>>>>>>
>>>>>>>> >>>>>>>> minha 2a tacada:
>>>>>>>> >>>>>>>>  perl -nE'BEGIN{$MTime=0;$string="teste"}say
>>>>>>>> >>>>>>>> if/$string/&&(stat($_=$ARGV))[9]>$MTime' /dir/*
>>>>>>>> >>>>>>>>
>>>>>>>> >>>>>>>>>
>>>>>>>> >>>>>>>>>
>>>>>>>> >>>>>>>>> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>>>>>> >>>>>>>>>>
>>>>>>>> >>>>>>>>>>
>>>>>>>> >>>>>>>>>> 2008/6/18 Raphael Carpi <raphael.carpi em gmail.com>:
>>>>>>>> >>>>>>>>>>>
>>>>>>>> >>>>>>>>>>> segue comentario com ###
>>>>>>>> >>>>>>>>>>>
>>>>>>>> >>>>>>>>>>> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>>>>>> >>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>> 2008/6/18 Raphael Carpi <raphael.carpi em gmail.com>:
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>> valeu cara
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>> então to engatinhando no perl e to com uma duvida
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>> não consigo dar o printif de um metodo que é
>>>>>>>> alimentada por uma
>>>>>>>> >>>>>>>>>>>>> variavel
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>  package FSP_FIND;
>>>>>>>> >>>>>>>>>>>>>  sub new{
>>>>>>>> >>>>>>>>>>>>>  my($class) = @_;
>>>>>>>> >>>>>>>>>>>>>  my $self = {
>>>>>>>> >>>>>>>>>>>>>   _diretorio => undef,
>>>>>>>> >>>>>>>>>>>>>   _arquivo => undef,
>>>>>>>> >>>>>>>>>>>>>   _string  => undef
>>>>>>>> >>>>>>>>>>>>>  };
>>>>>>>> >>>>>>>>>>>>>  bless $self, $class;
>>>>>>>> >>>>>>>>>>>>>  return $self;
>>>>>>>> >>>>>>>>>>>>>  }
>>>>>>>> >>>>>>>>>>>>> sub diretorio {
>>>>>>>> >>>>>>>>>>>>>     my($self, $diretorio) = @_;
>>>>>>>> >>>>>>>>>>>>>     $self->{_diretorio} = $diretorio if
>>>>>>>> defined($diretorio);
>>>>>>>> >>>>>>>>>>>>>     return $self->{_diretorio};
>>>>>>>> >>>>>>>>>>>>> }
>>>>>>>> >>>>>>>>>>>>> sub arquivo {
>>>>>>>> >>>>>>>>>>>>>     my($self, $arquivo) = @_;
>>>>>>>> >>>>>>>>>>>>>     $self->{_arquivo} = $arquivo if defined($arquivo);
>>>>>>>> >>>>>>>>>>>>>     return $self->{_arquivo};
>>>>>>>> >>>>>>>>>>>>> }
>>>>>>>> >>>>>>>>>>>>> sub string {
>>>>>>>> >>>>>>>>>>>>>     my($self, $string) = @_;
>>>>>>>> >>>>>>>>>>>>>     $self->{_string} = $string if defined($string);
>>>>>>>> >>>>>>>>>>>>>     return $self->{_string};
>>>>>>>> >>>>>>>>>>>>> }
>>>>>>>> >>>>>>>>>>>>>  sub FUNUNCIA{
>>>>>>>> >>>>>>>>>>>>>     my ($self) = @_;
>>>>>>>> >>>>>>>>>>>>>  $self->arquivo('nome do arquivo');
>>>>>>>> >>>>>>>>>>>>>     printf( "Arquivo:%s \n", $self->arquivo);
>>>>>>>> >>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>> # Aqui, no mesmo metodo vc seta o argumento e o usa,
>>>>>>>> então qdo
>>>>>>>> >>>>>>>>>>>> vai usa-lo, ele já existe, é igual a 'nome do arquivo'
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>> }
>>>>>>>> >>>>>>>>>>>>>  sub procura {
>>>>>>>> >>>>>>>>>>>>>     my ($self) = @_;
>>>>>>>> >>>>>>>>>>>>>  my $file = "";
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>  %mtime = ();
>>>>>>>> >>>>>>>>>>>>>  printf( "Diretorio:%s\n",  $self->diretorio );
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>  my $mtMax = 0;
>>>>>>>> >>>>>>>>>>>>>  opendir(DIR,$self->diretorio);
>>>>>>>> >>>>>>>>>>>>>  while($file=readdir(DIR))
>>>>>>>> >>>>>>>>>>>>>  {
>>>>>>>> >>>>>>>>>>>>>     next if (-d $file);
>>>>>>>> >>>>>>>>>>>>>     @tmp = ();
>>>>>>>> >>>>>>>>>>>>>     open(FILE,$file);
>>>>>>>> >>>>>>>>>>>>>     while(<FILE>)
>>>>>>>> >>>>>>>>>>>>>     {
>>>>>>>> >>>>>>>>>>>>>     if ($_ =~ /$self->string/)
>>>>>>>> >>>>>>>>>>>>>     {
>>>>>>>> >>>>>>>>>>>>>      $mt = (stat($file))[9];
>>>>>>>> >>>>>>>>>>>>>      if ($mt > $mtMax) {
>>>>>>>> >>>>>>>>>>>>>       $self->arquivo($file);
>>>>>>>> >>>>>>>>>>>
>>>>>>>> >>>>>>>>>>> ### Então o arquivo estaria sendo setado aqui e passado
>>>>>>>> o
>>>>>>>> >>>>>>>>>>> parametro $file para ele, isso que não consegui entender
>>>>>>>> quando seto o
>>>>>>>> >>>>>>>>>>> atribulto com variaveis internas ele retorna mas quando
>>>>>>>> coloco uma variavel
>>>>>>>> >>>>>>>>>>> que é gerada pelo codigo ele não retorna
>>>>>>>> >>>>>>>>>>
>>>>>>>> >>>>>>>>>> # o q vc quer dizer com "variavel que é gerada pelo
>>>>>>>> codigo"?
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>       $mtMax = $mt;
>>>>>>>> >>>>>>>>>>>>>      }
>>>>>>>> >>>>>>>>>>>>>      last;
>>>>>>>> >>>>>>>>>>>>>     }
>>>>>>>> >>>>>>>>>>>>>     }
>>>>>>>> >>>>>>>>>>>>>     close FILE;
>>>>>>>> >>>>>>>>>>>>>  }
>>>>>>>> >>>>>>>>>>>>>  closedir DIR;
>>>>>>>> >>>>>>>>>>>>>  printf( "Diretorio:%s\n",  $self->arquivo );
>>>>>>>> >>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>> # vc está imprimindo o metodo arquivo do próprio obj, o
>>>>>>>> atributo
>>>>>>>> >>>>>>>>>>>> _arquivo foi setado?
>>>>>>>> >>>>>>>>>>>> #diferente do outro metodo, vc não está setando o nome
>>>>>>>> do
>>>>>>>> >>>>>>>>>>>> arquivo, vc está fazendo isso no resto do código?
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>> }
>>>>>>>> >>>>>>>>>>>>> return(1);
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>> o metodo "FUNUNCIA" funciona mas o metodo "procura"
>>>>>>>> não
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>> []´s galera
>>>>>>>> >>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>> Como é o programa q instancia e usa esse  obj?
>>>>>>>> >>>>>>>>>>>
>>>>>>>> >>>>>>>>>>> ### esse é o pl que chama a packege
>>>>>>>> >>>>>>>>>>>                #!/usr/bin/perl
>>>>>>>> >>>>>>>>>>>                use FSP_FIND;
>>>>>>>> >>>>>>>>>>>                my $variavel = FSP_FIND->new(); # seria
>>>>>>>> melhor
>>>>>>>> >>>>>>>>>>>
>>>>>>>>  $variavel->diretorio('\\\\servidor\\arquivos');
>>>>>>>> >>>>>>>>>>>                $variavel->string('cade o texto');
>>>>>>>> >>>>>>>>>>>                $variavel->procura();
>>>>>>>> >>>>>>>>>>
>>>>>>>> >>>>>>>>>> O $file esta sendo zerado dentro do procura(), mesmo se
>>>>>>>> não
>>>>>>>> >>>>>>>>>> estivesse, no su pl vc não seta o arquivo só o dir e a
>>>>>>>> string...
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com
>>>>>>>> >:
>>>>>>>> >>>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>> Deem as boas vindas ao Raphael, o 2o a entrar na
>>>>>>>> lista no dia
>>>>>>>> >>>>>>>>>>>>>> de hj!
>>>>>>>> >>>>>>>>>>>>>> Raphael, sinta-se em casa, e fique sabendo que temos
>>>>>>>> Encontros
>>>>>>>> >>>>>>>>>>>>>> Sociais (ES) toda segunda 5ª feira do mes (tivemos o
>>>>>>>> último no
>>>>>>>> >>>>>>>>>>>>>> dia 12!),
>>>>>>>> >>>>>>>>>>>>>> e Encontros Tecnicos (ET), o proximo ainda sem data
>>>>>>>> prevista.
>>>>>>>> >>>>>>>>>>>>>> E já foi marcado o proximo ESX (Encontro Social
>>>>>>>> eXtra) para
>>>>>>>> >>>>>>>>>>>>>> essa
>>>>>>>> >>>>>>>>>>>>>> proxima 3a feira, na tijuca no Olimpiadas do Chopp,
>>>>>>>> esperamos
>>>>>>>> >>>>>>>>>>>>>> vc lá!
>>>>>>>> >>>>>>>>>>>>>> Vc tb pode usar o calendario público do brasil.pm para ficar
>>>>>>>> >>>>>>>>>>>>>> sabendo
>>>>>>>> >>>>>>>>>>>>>> dos eventos do rio.pm
>>>>>>>> >>>>>>>>>>>>>> (
>>>>>>>> http://www.google.com/calendar/embed?src=0s81gpplpi9virbej7u9n1ln1c%40group.calendar.google.com&ctz=America%2FSao_Paulo
>>>>>>>> )
>>>>>>>> >>>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>> Eu sou muito curioso, então poderia, por favor, nos
>>>>>>>> dizer onde
>>>>>>>> >>>>>>>>>>>>>> vc usa
>>>>>>>> >>>>>>>>>>>>>> perl e como descobriu a lista?
>>>>>>>> >>>>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>>> --
>>>>>>>> >>>>>>>>>>>>>> Just another Perl Hacker,
>>>>>>>> >>>>>>>>>>>>>> Fernando (SmokeMachine)
>>>>>>>> >>>>>>>>>>>>>> http://perl-e.org
>>>>>>>> >>>>>>>>>>>>>> _______________________________________________
>>>>>>>> >>>>>>>>>>>>>> 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
>>>>>>>> >>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>>
>>>>>>>> >>>>>>>>>>>> --
>>>>>>>> >>>>>>>>>>>> Just another Perl Hacker,
>>>>>>>> >>>>>>>>>>>> Fernando (SmokeMachine)
>>>>>>>> >>>>>>>>>>>> http://perl-e.org
>>>>>>>> >>>>>>>>>>>> _______________________________________________
>>>>>>>> >>>>>>>>>>>> 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
>>>>>>>> >>>>>>>>>>
>>>>>>>> >>>>>>>>>>
>>>>>>>> >>>>>>>>>>
>>>>>>>> >>>>>>>>>> --
>>>>>>>> >>>>>>>>>> Just another Perl Hacker,
>>>>>>>> >>>>>>>>>> Fernando (SmokeMachine)
>>>>>>>> >>>>>>>>>> http://perl-e.org
>>>>>>>> >>>>>>>>>
>>>>>>>> >>>>>>>>>
>>>>>>>> >>>>>>>>> --
>>>>>>>> >>>>>>>>> Just another Perl Hacker,
>>>>>>>> >>>>>>>>> Fernando (SmokeMachine)
>>>>>>>> >>>>>>>>> http://perl-e.org
>>>>>>>> >>>>>>>>
>>>>>>>> >>>>>>>>
>>>>>>>> >>>>>>>> --
>>>>>>>> >>>>>>>> Just another Perl Hacker,
>>>>>>>> >>>>>>>> Fernando (SmokeMachine)
>>>>>>>> >>>>>>>> http://perl-e.org
>>>>>>>> >>>>>>>> _______________________________________________
>>>>>>>> >>>>>>>> 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
>>>>>>>> >>>>>>
>>>>>>>> >>>>>>
>>>>>>>> >>>>>>
>>>>>>>> >>>>>> --
>>>>>>>> >>>>>> Just another Perl Hacker,
>>>>>>>> >>>>>> Fernando (SmokeMachine)
>>>>>>>> >>>>>> http://perl-e.org
>>>>>>>> >>>>>
>>>>>>>> >>>>>
>>>>>>>> >>>>> --
>>>>>>>> >>>>> Just another Perl Hacker,
>>>>>>>> >>>>> Fernando (SmokeMachine)
>>>>>>>> >>>>> http://perl-e.org
>>>>>>>> >>>>> _______________________________________________
>>>>>>>> >>>>> 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
>>>>>>>> >>>
>>>>>>>> >>>
>>>>>>>> >>>
>>>>>>>> >>> --
>>>>>>>> >>> Just another Perl Hacker,
>>>>>>>> >>> Fernando (SmokeMachine)
>>>>>>>> >>> http://perl-e.org
>>>>>>>> >>> _______________________________________________
>>>>>>>> >>> 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
>>>>>>>> >
>>>>>>>> >
>>>>>>>> >
>>>>>>>> > --
>>>>>>>> > Just another Perl Hacker,
>>>>>>>> > Fernando (SmokeMachine)
>>>>>>>> > http://perl-e.org
>>>>>>>> > _______________________________________________
>>>>>>>> > Rio-pm mailing list
>>>>>>>> > Rio-pm em pm.org
>>>>>>>> > http://mail.pm.org/mailman/listinfo/rio-pm
>>>>>>>> >
>>>>>>>> _______________________________________________
>>>>>>>> Rio-pm mailing list
>>>>>>>> Rio-pm em pm.org
>>>>>>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>
>>>>>> _______________________________________________
>>>>>> Rio-pm mailing list
>>>>>> Rio-pm em pm.org
>>>>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> Just another Perl Hacker,
>>>>> Fernando (SmokeMachine)
>>>>> http://perl-e.org
>>>>>
>>>>> _______________________________________________
>>>>> 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
>



-- 
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080619/e69eb8c1/attachment-0001.html

Mais detalhes sobre a lista de discussão Rio-pm