Olha esse código, vai te ajudar.<br><br>my $x = 1; <br>my $y = undef;<br>my $z = 0;<br><br>if ( defined $x ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br><br>if ( defined $y ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br>
<br>if ( defined $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br><br>
if ( $x ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br>
<br>
if ( $y ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br>
<br>
if ( $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br><br>if ( defined $x and defined $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br><br>if ( $x and $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br>
<br>if ( $x or $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br><br>if ( defined $y or $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br><br>if ( $y or $z ) { print "Verdadeiro\n"; } else { print "Falso\n"; }<br>
<br><br><div class="gmail_quote">2009/7/8 <span dir="ltr"><<a href="mailto:claudio@dpreferencial.com.br">claudio@dpreferencial.com.br</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div bgcolor="#ffffff">
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Pessoall, Boa tarde!</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Como sempre, estou precisando de um
HELP!!!</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Estou passando um sistema de Delphi para Perl
</font></div>
<div><font size="2" face="Arial">e </font><font size="2" face="Arial">não tenho
consiguido achar indicação </font></div>
<div><font size="2" face="Arial">para desenvolver este trecho do
código.</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">É uma comparação feita como entre Bytes como
Boolean.</font></div>
<div><font size="2" face="Arial">________________________________________________________________</font></div>
<div><font size="2" face="Arial">________________________________________________________________</font></div>
<div><font size="2" face="Arial">Segue o trecho do código:</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Procedure Ver_Conteudo;</font></div>
<div><font size="2" face="Arial"> const BITS: array[0..7] of Byte =
(1,2,4,8,16,32,64,128);</font></div>
<div><font size="2" face="Arial"> Res: Boolean;</font></div>
<div><font size="2" face="Arial">Begin</font></div>
<div><font size="2" face="Arial"> </font></div>
<div><font size="2" face="Arial"> Res := Boolean ( BITS[1] and 6
); // Este é o trecho que me interessa, este
resultado dá true.</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial"> if (Res) Then ShowMessage('True') else
ShowMessage('False');</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">End;</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">
<div><font size="2" face="Arial">________________________________________________________________</font></div>
<div><font size="2" face="Arial">________________________________________________________________</font></div>
<div> </div>
<div>Qualquer ajuda/ luz, ajuda muito...</div>
<div> </div>
<div>desde já agradeço a todos.</div>
<div> </div>
<div>Abs</div>
<div> </div>
<div>Claudio H.Binaghi<br><a href="mailto:claudio@dpreferencial.com.br" target="_blank">claudio@dpreferencial.com.br</a><br>5511
3288.4840<br></div></font></div></div>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
This is my poney:<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>
--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>
perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<a href="http://www.perl.org.br">http://www.perl.org.br</a>"))'<br>