[Rio-pm] Mais um membro
breno
breno em rio.pm.org
Quarta Junho 18 16:00:43 PDT 2008
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
>
Mais detalhes sobre a lista de discussão Rio-pm