[Rio-pm] Mais um membro

Lucas Mateus lucasmateus.oliveira em gmail.com
Quarta Junho 18 14:25:09 PDT 2008


perl -nE'$MTime=0;$string="teste";/$string/&&(stat
ARGV)[9]>$MTime&&say$ARGV' /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
>>>>>>>>>>> <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
>>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> _______________________________________________
>>>>>>>>>> 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
>>
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080618/8237069b/attachment-0001.html 


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