Patty<div><br></div><div>Maneira mais simples e tosca que eu conheço( você deve melhorar isso ).</div><div><br></div><div><code_snippet></div><div><br></div><div>my $condition = eval "<span class="Apple-style-span" style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; ">$1 == 5</span>"; #to assumindo que teria mais código pra cima disso.</div>
<div>if( $condition ) {</div><div> #true</div><div>}</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>else {</div><div> #false</div><div>}</div><div></code_snippet><br><br></div><div>
Mas como disse, vc deve melhorar isso.</div><div><br></div><div>Espero ter ajudado.</div><div><br></div><div><br></div><div>Cheers!</div><div><br></div><div><br><div class="gmail_quote">2010/9/8 Patty Silva <span dir="ltr"><<a href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div style="font-family:times new roman,new york,times,serif;font-size:12pt"><div>Pessoal.<br><br>Uma dúvida,<br>
Estou tentando fazer o seguinte:<br>Tenho um if($variavel). So que dependendo da opcao do usuario, essa variavel ira mudar.<br>Ex: se o usuario entrar com a opcao 5 a variavel sera igual $1 == 5 && $2 eq "LER".<br>
Eu quero que a variavel seja preenchida com if($1 == 5 && $2 eq "LER").<br>Eu to fazendo if($variavel) mas assim ele verifica a minha variavel e nao atribui valor a ela!<br>Algem pode me dar uma luz??<br>
<br><br>OBS: para os q acham q eu programo a muitooooooo tempo.. engano.. parei faz anos com perl!! :-)<br><br>Obrigada<br><br><br><br><br></div>
</div><br>
</div><br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br>
(11)82907780<br>
</div>