<br><br><div class="gmail_quote">2008/6/18 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">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">2008/6/18 Raphael Carpi <<a href="mailto:raphael.carpi@gmail.com" target="_blank">raphael.carpi@gmail.com</a>>:<div><div></div><div class="Wj3C7c"><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 class="Ih2E3d"><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 = ""; # $file está vazio! ("")<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); # $file está vazio! ("")</div>
<div> @tmp = ();</div>
<div> open(FILE,$file); # $file está vazio! ("")<br> while(<FILE>) <br> {<br> if ($_ =~ /$self->string/) <br> {<br> $mt = (stat($file))[9]; # $file está vazio! ("")<br> if ($mt > $mtMax) {<br>
$self->arquivo($file); # $file está vazio! ("") e agora o atriuto _arquivo tb está vazio </div></blockquote></div></div></blockquote><div># Agora q eu ví isso aqui!!! vc perfebeu q vc faz isso: my $file = ""; não altera $file e o seta como o atributo _arquivo?<br>
# desse jeito, o atributo arquivo é igual a "", logo, o retorno de $self->arquivo é ""...<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 class="Ih2E3d"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><br> $mtMax = $mt;<br>
}<br> last; <br> }<br> }<br> close FILE;<br> }<br> closedir DIR;<br> printf( "Diretorio:%s\n", $self->arquivo ); # _arquivo está vazio! ("")<br></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 class="Ih2E3d"><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? <br></div><div><div></div><div class="Wj3C7c"><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 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 clear="all"><br>-- <br>Raphael Carpi<br>(11) 83900882
<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 class="Wj3C7c"><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">http://perl-e.org</a>