[Rio-pm] Mais um membro

[Raphael Carpi]

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);
}
 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 );
}
return(1);


o metodo "FUNUNCIA" funciona mas o metodo "procura" não

[]´s galera



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