<span>perl -nE'/(?{$string="teste"})/&&-M ARGV>($MTime=0)&&say$ARGV' /dir/*</span><br><br><div class="gmail_quote">2008/6/18 Lucas Mateus <<a href="mailto:lucasmateus.oliveira@gmail.com">lucasmateus.oliveira@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><span>perl -nE'$string="teste";/$string/&&-M ARGV>($MTime=0)&&say$ARGV' /dir/*</span><div>
<div></div><div class="Wj3C7c"><br><br><div class="gmail_quote">2008/6/18 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">se é assim:<br><br>perl -nE'$string="teste";say$ARGV if/$string/&&(stat ARGV)[9]>($MTime=0)' /dir/*<div>
<div></div><div><br><br><div class="gmail_quote">2008/6/18 Lucas Mateus <<a href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">lucasmateus.oliveira@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">perl -nE'$MTime=0;$string="teste";say$ARGV if/$string/&&(stat ARGV)[9]>$MTime' /dir/*<div>
<div></div><div><br><br><br><div class="gmail_quote">2008/6/18 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">é do mesmo tamanho!!! agora q eu ví!<div><div></div><div><br><br><br><div class="gmail_quote">
2008/6/18 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Muito boa!<br><br>Bom... mesma coisa q eu fiz antes...<br>perl -nE'BEGIN{$MTime=0;$string="teste"}/$string/&&(stat($_=$ARGV))[9]>$MTime&&say' /dir/*<br><br><div class="gmail_quote">2008/6/18 Lucas Mateus <<a href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">lucasmateus.oliveira@gmail.com</a>>:<div>
<div></div><div><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Bom so parafraseando o Fernando, mas diminuindo um pouco:<br><br>perl -nE'BEGIN{$MTime=0;$string="teste"}/$string/&&(stat ARGV)[9]>$MTime&&say$ARGV' /dir/*<div>
<div></div><div><br><br><br><div class="gmail_quote">
2008/6/18 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br><br><div class="gmail_quote"><div>2008/6/18 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Mas o q vc quer no metodo procura é achar os arquivos q contenham uma certa string<br>e q tenham o mtime maior q $MTime, né?!<br><br>Eu proponho a todos um golf!<br>esquecendo OO e o resto...<br>minha primeira tacada:<br>
<br>
perl -nE'BEGIN{$MTime=0;$string="teste"}say$ARGV if/$string/&&(stat ARGV)[9]>$MTime' /dir/*</blockquote></div><div>minha 2a tacada:<br> perl -nE'BEGIN{$MTime=0;$string="teste"}say if/$string/&&(stat($_=$ARGV))[9]>$MTime' /dir/*<br>
<br></div><div><div></div><div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><div></div><div><br><br><div class="gmail_quote">
2008/6/18 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br><br><div class="gmail_quote"><div><div></div><div>2008/6/18 Raphael Carpi <<a href="mailto:raphael.carpi@gmail.com" target="_blank">raphael.carpi@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
segue comentario com ###<br><br>
<div class="gmail_quote"><div>2008/6/18 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br>
</div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;"><br><br><div><div></div><div>
<div class="gmail_quote">2008/6/18 Raphael Carpi <<a href="mailto:raphael.carpi@gmail.com" target="_blank">raphael.carpi@gmail.com</a>>:
<div>
<div></div>
<div><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>valeu cara</div>
<div> </div>
<div>então to engatinhando no perl e to com uma duvida</div>
<div> </div>
<div>não consigo dar o printif de um metodo que é alimentada por uma variavel</div>
<div> </div>
<div> </div>
<div> </div>
<div> package FSP_FIND;<br> sub new{<br> my($class) = @_;<br> my $self = {<br> _diretorio => undef,<br> _arquivo => undef,<br> _string => undef<br> };<br> bless $self, $class;<br> return $self;<br> }</div>
<div>sub diretorio {<br> my($self, $diretorio) = @_;<br> $self->{_diretorio} = $diretorio if defined($diretorio);<br> return $self->{_diretorio};<br>}</div>
<div>sub arquivo {<br> my($self, $arquivo) = @_;<br> $self->{_arquivo} = $arquivo if defined($arquivo);<br> return $self->{_arquivo};<br>}</div>
<div>sub string {<br> my($self, $string) = @_;<br> $self->{_string} = $string if defined($string);<br> return $self->{_string};<br>}</div>
<div> sub FUNUNCIA{<br> my ($self) = @_;<br> $self->arquivo('nome do arquivo');<br> printf( "Arquivo:%s \n", $self->arquivo);</div></blockquote></div></div>
<div># 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'<br></div>
<div>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><br>}</div>
<div> sub procura {<br> my ($self) = @_;<br> my $file = "";<br> <br> %mtime = ();<br> printf( "Diretorio:%s\n", $self->diretorio );<br> <br> my $mtMax = 0;<br> opendir(DIR,$self->diretorio);<br>
while($file=readdir(DIR))<br> {<br> next if (-d $file);</div>
<div> @tmp = ();</div>
<div> open(FILE,$file);<br> while(<FILE>) <br> {<br> if ($_ =~ /$self->string/) <br> {<br> $mt = (stat($file))[9];<br> if ($mt > $mtMax) {<br> $self->arquivo($file); </div></blockquote>
</div></div></div></div></blockquote>
<div>### 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</div>
</div></blockquote></div></div><div># o q vc quer dizer com "variavel que é gerada pelo codigo"? <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="gmail_quote"><div><div></div><div>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;">
<div class="gmail_quote">
<div>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><span></span><br> $mtMax = $mt;<br> }<br> last; <br> }<br> }<br> close FILE;<br> }<br> closedir DIR;<br> printf( "Diretorio:%s\n", $self->arquivo );</div></blockquote></div>
<div># vc está imprimindo o metodo arquivo do próprio obj, o atributo _arquivo foi setado?<br>#diferente do outro metodo, vc não está setando o nome do arquivo, vc está fazendo isso no resto do código?<br></div>
<div>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><br>}<br>return(1);</div>
<div> </div>
<div> </div>
<div>o metodo "FUNUNCIA" funciona mas o metodo "procura" não</div>
<div> </div>
<div>[]´s galera</div>
<div><br></div></blockquote></div>
<div><br>Como é o programa q instancia e usa esse obj? </div></div></blockquote>
</div><div>### esse é o pl que chama a packege</div>
</div><div><div> #!/usr/bin/perl<br> use FSP_FIND;<br></div> my $variavel = FSP_FIND->new(); # seria melhor<div><br> $variavel->diretorio('\\\\servidor\\arquivos');<br>
$variavel->string('cade o texto');<br>
$variavel->procura();</div></div>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;">
<div class="gmail_quote">
<div><span></span><br></div>
<div>
<div></div>
<div>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>
<div></div></div></blockquote></div></div></div></blockquote></div></blockquote><div>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... <br></div>
<div><div></div><div>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;">
<div class="gmail_quote"><div><div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><div><br> </div>
<div class="gmail_quote">2008/6/18 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;">
<div>
<div></div>
<div>Deem as boas vindas ao Raphael, o 2o a entrar na lista no dia de hj!<br>Raphael, sinta-se em casa, e fique sabendo que temos Encontros<br>Sociais (ES) toda segunda 5ª feira do mes (tivemos o último no dia 12!),<br>e Encontros Tecnicos (ET), o proximo ainda sem data prevista.<br>
E já foi marcado o proximo ESX (Encontro Social eXtra) para essa<br>proxima 3a feira, na tijuca no Olimpiadas do Chopp, esperamos vc lá!<br>Vc tb pode usar o calendario público do <a href="http://brasil.pm/" target="_blank">brasil.pm </a>para ficar sabendo<br>
dos eventos do <a href="http://rio.pm/" target="_blank">rio.pm</a> <a href="http://brasil.pm/" target="_blank">(</a><a href="http://www.google.com/calendar/embed?src=0s81gpplpi9virbej7u9n1ln1c%40group.calendar.google.com&ctz=America%2FSao_Paulo" target="_blank">http://www.google.com/<span>calendar</span>/embed?src=0s81gpplpi9virbej7u9n1ln1c%40group.<span>calendar</span>.google.com&ctz=America%2FSao_Paulo</a><a href="http://brasil.pm/" target="_blank">)</a><br>
<br>Eu sou muito curioso, então poderia, por favor, nos dizer onde vc usa<br>perl e como descobriu a lista?<br clear="all"><font color="#888888"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org/" target="_blank">http://perl-e.org</a> </font><br>
</div></div>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</blockquote></div><br><br></div><div>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div></blockquote></div></div></div><div>
<div>
<div></div>
<div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org/" target="_blank">http://perl-e.org</a> </div></div><br></div><div>_______________________________________________<br>
Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></div></blockquote>
</div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div></div></div><div><div></div><div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>
Fernando (SmokeMachine)<br>
<a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div></blockquote></div></div></div><div><div></div><div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div></div></div><div><div></div><div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>
Fernando (SmokeMachine)<br>
<a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<a href="http://perl-e.org">http://perl-e.org</a>