verdade... perdão... me enrolei... <br><br><div class="gmail_quote">2009/4/8 Renan Rangel <span dir="ltr"><<a href="mailto:rvr777@gmail.com">rvr777@gmail.com</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;">
Fernando, no domingo o $wday não seria 0?<br><br>-- <br>Renan Rangel<br><br><div class="gmail_quote">2009/4/7 Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>></span><div>
<div></div><div class="h5"><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">p/ isso vc poderia fazer:<br><code><br>`date`!~ /Sab|Dom/;<br></code><br><br>mas seria melhor:<br>
<code><br>perl -e 'print "FDS$/" if (my $wday = (localtime time)[6]) == 6 or $wday == 7'<br>
</code><br><br><div class="gmail_quote">2009/4/7 Victor Ramos <span dir="ltr"><<a href="mailto:victornrm@gmail.com" target="_blank">victornrm@gmail.com</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><div></div><div>
Nossa, mau galerinha, foi falha minha<br>confundi o ^ (comeco da string ) com [^](negacao)<br>sorry<div><div></div><div><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" target="_blank">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>
</div></div><br></div></div><div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></div></blockquote></div><font color="#888888"><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>
Fernando (SmokeMachine)<br>
<a href="http://perl-e.org" target="_blank">http://perl-e.org</a><br>
</font><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div></div></div><br><br clear="all"><br>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<a href="http://perl-e.org">http://perl-e.org</a><br>