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 &quot;Folga!\n&quot;;<br>} else { <br>  print &quot;Facu\n&quot;;<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 &quot;Facu!\n&quot;;<br>} else { <br>  print &quot;Folga\n&quot;;<br>
}<br>:~$perl facu_ou_folga.pl <br>Folga<br>:~$<br><br>Oque ouve? estou usando a negação &quot;^&quot;, 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 &quot;go play!\n&quot;;
<br>    } else {
<br>      print &quot;get to work!\n&quot;;
<br>    }
<br><br>com um obs: &quot;If we had to use this in a real-world program, we&#39;d probably use the pattern /^(Sat|Sun)/&quot;<br><br>eu percebi que posso negar com o not (não logico) &quot;!&quot; :<br>:~$cat facu_ou_folga.pl <br>
if ( `date` =~ !/(Sab|Dom)/) { # unless ( `date` =~ /(Sab|Dom)/) {<br>  print &quot;Facu!\n&quot;;<br>} else { <br>  print &quot;Folga\n&quot;;<br>}<br>:~$perl facu_ou_folga.pl <br>Facu!<br>:~$<br><br>alguem me socorre?<br>