Nossa, mau galerinha, foi falha minha<br>confundi o ^ (comeco da string ) com [^](negacao)<br>sorry<br><br><br><div class="gmail_quote">On Tue, Apr 7, 2009 at 5:30 PM, Victor Ramos <span dir="ltr"><<a href="mailto:victornrm@gmail.com">victornrm@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">me surgiu uma duvida, não sei c eh um bug do perl o.0<br>vejamos<br>:~$date<br>Ter Abr 7 17:20:00 BRT 2009<br>
:~$cat facu_ou_folga.pl <br>if ( `date` =~ /Sab|Dom/) {<br> print "Folga!\n";<br>} else { <br> print "Facu\n";<br>
}<br>:~$perl facu_ou_folga.pl <br>Facu<br><br>perfeito<br>agora, tentando ao contrario usando a negacao.<br>:~$cat facu_ou_folga.pl <br>if ( `date` =~ /^(Sab|Dom)/) {<br> print "Facu!\n";<br>} else { <br> print "Folga\n";<br>
}<br>:~$perl facu_ou_folga.pl <br>Folga<br>:~$<br><br>Oque ouve? estou usando a negação "^", a logica deveria ser, caso não achar Sab ou Dom, tirei como exemplo do learning perl(A.13. Answers to Chapter 14 Exercises), q tem um assim:<br>
if (`date` =~ /^S/) {
<br> print "go play!\n";
<br> } else {
<br> print "get to work!\n";
<br> }
<br><br>com um obs: "If we had to use this in a real-world program, we'd probably use the pattern /^(Sat|Sun)/"<br><br>eu percebi que posso negar com o not (não logico) "!" :<br>:~$cat facu_ou_folga.pl <br>
if ( `date` =~ !/(Sab|Dom)/) { # unless ( `date` =~ /(Sab|Dom)/) {<br> print "Facu!\n";<br>} else { <br> print "Folga\n";<br>}<br>:~$perl facu_ou_folga.pl <br>Facu!<br>:~$<br><br>alguem me socorre?<br>
</blockquote></div><br>