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