[Rio-pm] Mais um membro

[Fernando Oliveira]

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);
>       $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?

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