[Rio-pm] Mais um membro
Lucas Mateus
lucasmateus.oliveira em gmail.com
Quarta Junho 18 16:47:09 PDT 2008
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
>>
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080618/c565e733/attachment-0001.html
Mais detalhes sobre a lista de discussão Rio-pm