[Rio-pm] Mais um membro
Fernando Oliveira
fernandocorrea em gmail.com
Quarta Junho 18 14:56:04 PDT 2008
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
>>>>>>>>>>>>> <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
>>>>
>>>
>>>
>>> _______________________________________________
>>> 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080618/c0c0a35e/attachment-0001.html
Mais detalhes sobre a lista de discussão Rio-pm