[Rio-pm] Mais um membro
Lucas Mateus
lucasmateus.oliveira em gmail.com
Quarta Junho 18 23:40:51 PDT 2008
Para 5.8.8 e 5.10, putss to com sono heuaheuha
perl -pe'-M ARGV>($MTime=0),$_=$ARGV.$/' -F/teste/ /*
2008/6/19 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
> Sorry, mas nosso codigo so rola em Perl 5.10
>
> Regras para versao ?
>
> 2008/6/19 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>
> 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/0b17cab4/attachment-0001.html
Mais detalhes sobre a lista de discussão Rio-pm