<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);<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); <br> $mtMax = $mt;<br>
}<br> last; <br> }<br> }<br> close FILE;<br> }<br> closedir DIR;<br> printf( "Diretorio:%s\n", $self->arquivo );<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><br> </div>
<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="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">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>
_______________________________________________<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>Raphael Carpi<br>(11) 83900882