<br><br><div class="gmail_quote">2009/7/8 Eden Cardim <span dir="ltr">&lt;<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
2009/7/8 Daniel de Oliveira Mantovani &lt;<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>&gt;:<br>
<div class="im">&gt; Olha esse código, vai te ajudar.<br>
&gt;<br>
&gt; my $x = 1;<br>
&gt; my $y = undef;<br>
&gt; my $z = 0;<br>
&gt;<br>
&gt; if ( defined $x ) { print &quot;Verdadeiro\n&quot;; } else { print &quot;Falso\n&quot;; }<br>
&gt;<br>
&gt; if ( defined $y ) { print &quot;Verdadeiro\n&quot;; } else { print &quot;Falso\n&quot;; }<br>
&gt;<br>
&gt; if ( defined $z ) { print &quot;Verdadeiro\n&quot;; } else { print &quot;Falso\n&quot;; }<br>
&gt;<br>
&gt; if ( $x ) { print &quot;Verdadeiro\n&quot;; } else { print &quot;Falso\n&quot;; }<br>
&gt;<br>
&gt; if ( $y ) { print &quot;Verdadeiro\n&quot;; } else { print &quot;Falso\n&quot;; }<br>
&gt;<br>
&gt; if ( $z ) { print &quot;Verdadeiro\n&quot;; } else { print &quot;Falso\n&quot;; }<br>
&gt;<br>
&gt; if ( defined $x and defined $z ) { print &quot;Verdadeiro\n&quot;; } else { print<br>
&gt; &quot;Falso\n&quot;; }<br>
&gt;<br>
&gt; if ( $x and $z ) { print &quot;Verdadeiro\n&quot;; } else { print &quot;Falso\n&quot;; }<br>
&gt;<br>
&gt; if ( $x or $z ) { print &quot;Verdadeiro\n&quot;; } else { print &quot;Falso\n&quot;; }<br>
&gt;<br>
&gt; if ( defined $y or $z ) { print &quot;Verdadeiro\n&quot;; } else { print &quot;Falso\n&quot;; }<br>
&gt;<br>
&gt; if ( $y or $z ) { print &quot;Verdadeiro\n&quot;; } else { print &quot;Falso\n&quot;; }<br>
<br>
</div>Nada nesse código tem relação alguma com o problema do cláudio, o que<br>
ele queria saber era como fazer uma operação bitwise entre dois<br>
valores.</blockquote><div><br>Acabei de ver o que é bitwise.<br><br>perl -E &#39;say &quot;10&quot; if 10 &amp; 5&#39;<br><br>1010<br>0101<br>--------<br>0000<br>Falso.<br><br>perl -E &#39;say &quot;10&quot; if 5 &amp; 5&#39;<br>
<br>0101<br>0101<br>-------<br>0101<br>Verdadeiro.<br><br>Só não entendi porque usar isso em um script Perl.<br><br>[]&#39;s<br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br>
<font color="#888888"><br>
--<br>
   Eden Cardim       Need help with your Catalyst or DBIx::Class project?<br>
  Code Monkey                    <a href="http://www.shadowcat.co.uk/catalyst/" target="_blank">http://www.shadowcat.co.uk/catalyst/</a><br>
 Shadowcat Systems Ltd.  Want a managed development or deployment platform?<br>
<a href="http://edenc.vox.com/" target="_blank">http://edenc.vox.com/</a>            <a href="http://www.shadowcat.co.uk/servers/" target="_blank">http://www.shadowcat.co.uk/servers/</a><br>
</font><div><div></div><div class="h5">_______________________________________________<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>
</div></div></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>----------\)&#39; -8--8- &#39;(/--------------<br>-----------/------------\---------------<br>
----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>perl -MLWP::Simple -le &#39;grep{ print $1 if /href=&quot;(http.+?)&quot;/}split($/,get(&quot;<a href="http://www.perl.org.br">http://www.perl.org.br</a>&quot;))&#39;<br>