[Rio-pm] Mais um membro

Lucas Mateus lucasmateus.oliveira em gmail.com
Quarta Junho 18 21:19:55 PDT 2008


Blz ate rodou aki, mas ta trazendo arquivos q nao tem 'teste' dentro do
arquivo


2008/6/19 Fernando Oliveira <fernandocorrea em gmail.com>:

> aqui no meu 5.10.0 funcionou...
> Eden, Deu erro ou não fez o q deveria?
>
>
> 2008/6/18 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>
>> Fernando seu codigo nao funciona :)
>>
>>
>>
>> 2008/6/18 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>>
>>> Brother Breno, sim sim os nomes das VARS tem q manter, segundo o
>>> Fernando.
>>>
>>>
>>> 2008/6/18 breno <breno em rio.pm.org>:
>>>
>>> Pq vcs estão usando nomes de variáveis tão grandes? Está nas regras? O
>>>> código pára de funcionar?
>>>>
>>>> perl -nE'/(?{$s="teste"})/&&-M ARGV>($M=0)&&say$ARGV' /dir/*
>>>>
>>>>
>>>> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>> > perl -nE'/(?{$string="teste"})/&&-M ARGV>($MTime=0)&&say$ARGV' /dir/*
>>>> >
>>>> > 2008/6/18 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>>>> >>
>>>> >> perl -nE'$string="teste";/$string/&&-M ARGV>($MTime=0)&&say$ARGV'
>>>> /dir/*
>>>> >>
>>>> >> 2008/6/18 Fernando Oliveira <fernandocorrea em gmail.com>:
>>>> >>>
>>>> >>> se é assim:
>>>> >>>
>>>> >>> perl -nE'$string="teste";say$ARGV if/$string/&&(stat
>>>> ARGV)[9]>($MTime=0)'
>>>> >>> /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  para
>>>> ficar
>>>> >>>>>>>>>>>>>> sabendo
>>>> >>>>>>>>>>>>>> dos eventos do rio.pm
>>>> >>>>>>>>>>>>>> (
>>>> http://www.google.com/calendar/embed?src=0s81gpplpi9virbej7u9n1ln1c%40group.calendar.google.com&ctz=America%2FSao_Paulo
>>>> )
>>>> >>>>>>>>>>>>>>
>>>> >>>>>>>>>>>>>> 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
>>>> >>>>
>>>> >>>>
>>>> >>>> _______________________________________________
>>>> >>>> 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
>>>> > _______________________________________________
>>>> > 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
>>>>
>>>
>>>
>>
>> _______________________________________________
>> 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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080619/43eb512b/attachment-0001.html 


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