[Rio-pm] Mais um membro

Fernando Oliveira fernandocorrea em gmail.com
Quarta Junho 18 10:45:50 PDT 2008


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 = ""; # $file está vazio! ("")
>>
>>  %mtime = ();
>>  printf( "Diretorio:%s\n",  $self->diretorio );
>>
>>  my $mtMax = 0;
>>  opendir(DIR,$self->diretorio);
>>  while($file=readdir(DIR))
>>  {
>>     next if (-d $file); # $file está vazio! ("")
>>     @tmp = ();
>>     open(FILE,$file); # $file está vazio! ("")
>>     while(<FILE>)
>>     {
>>     if ($_ =~ /$self->string/)
>>     {
>>      $mt = (stat($file))[9]; # $file está vazio! ("")
>>      if ($mt > $mtMax) {
>>       $self->arquivo($file); # $file está vazio! ("") e agora o atriuto
>> _arquivo tb está vazio
>>
> # Agora q eu ví isso aqui!!! vc perfebeu q vc faz isso: my $file = ""; não
altera $file e o seta como o atributo _arquivo?
#  desse jeito, o atributo arquivo é igual a "", logo, o retorno de
$self->arquivo é ""...

>
>>       $mtMax = $mt;
>>      }
>>      last;
>>     }
>>     }
>>     close FILE;
>>  }
>>  closedir DIR;
>>  printf( "Diretorio:%s\n",  $self->arquivo ); # _arquivo está vazio! ("")
>>
> # 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?
>
>>
>>
>> 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  <http://brasil.pm/>para
>>> ficar sabendo
>>> dos eventos do rio.pm ( <http://brasil.pm/>http://www.google.com/
>>> calendar/embed?src=0s81gpplpi9virbej7u9n1ln1c%40group.calendar
>>> .google.com&ctz=America%2FSao_Paulo) <http://brasil.pm/>
>>>
>>> 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
>>>
>>
>>
>>
>> --
>> Raphael Carpi
>> (11) 83900882
>> _______________________________________________
>> 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080618/93b42367/attachment-0001.html 


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