[Rio-pm] Mais um membro

Fernando Oliveira fernandocorrea em gmail.com
Quarta Junho 18 20:14:54 PDT 2008


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


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