[Rio-pm] Mais um membro

Lucas Mateus lucasmateus.oliveira em gmail.com
Quinta Junho 19 03:38:48 PDT 2008


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
>>>>
>>>
>>>
>>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080619/c0d9f483/attachment-0001.html 


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