[Rio-pm] Mais um membro
Lucas Mateus
lucasmateus.oliveira em gmail.com
Quarta Junho 18 22:25:42 PDT 2008
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/bace1542/attachment-0001.html
Mais detalhes sobre a lista de discussão Rio-pm