[Rio-pm] negacao com regex /^x/

Renan Rangel rvr777 em gmail.com
Terça Abril 7 21:10:05 PDT 2009


Fernando, no domingo o $wday não seria 0?

-- 
Renan Rangel

2009/4/7 Fernando Oliveira <fernandocorrea em gmail.com>

> p/ isso vc poderia fazer:
> <code>
> `date`!~ /Sab|Dom/;
> </code>
>
> mas seria melhor:
> <code>
> perl -e 'print "FDS$/" if (my $wday = (localtime time)[6]) == 6 or $wday ==
> 7'
> </code>
>
> 2009/4/7 Victor Ramos <victornrm em gmail.com>
>
>> Nossa, mau galerinha, foi falha minha
>> confundi o ^ (comeco da string ) com [^](negacao)
>> sorry
>>
>>
>>
>> On Tue, Apr 7, 2009 at 5:30 PM, Victor Ramos <victornrm em gmail.com> wrote:
>>
>>> me surgiu uma duvida, não sei c eh um bug do perl o.0
>>> vejamos
>>> :~$date
>>> Ter Abr  7 17:20:00 BRT 2009
>>> :~$cat facu_ou_folga.pl
>>> if ( `date` =~ /Sab|Dom/) {
>>>   print "Folga!\n";
>>> } else {
>>>   print "Facu\n";
>>> }
>>> :~$perl facu_ou_folga.pl
>>> Facu
>>>
>>> perfeito
>>> agora, tentando ao contrario usando a negacao.
>>> :~$cat facu_ou_folga.pl
>>> if ( `date` =~ /^(Sab|Dom)/) {
>>>   print "Facu!\n";
>>> } else {
>>>   print "Folga\n";
>>> }
>>> :~$perl facu_ou_folga.pl
>>> Folga
>>> :~$
>>>
>>> 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:
>>>     if (`date` =~ /^S/) {
>>>       print "go play!\n";
>>>     } else {
>>>       print "get to work!\n";
>>>     }
>>>
>>> com um obs: "If we had to use this in a real-world program, we'd probably
>>> use the pattern /^(Sat|Sun)/"
>>>
>>> eu percebi que posso negar com o not (não logico) "!" :
>>> :~$cat facu_ou_folga.pl
>>> if ( `date` =~ !/(Sab|Dom)/) { # unless ( `date` =~ /(Sab|Dom)/) {
>>>   print "Facu!\n";
>>> } else {
>>>   print "Folga\n";
>>> }
>>> :~$perl facu_ou_folga.pl
>>> Facu!
>>> :~$
>>>
>>> alguem me socorre?
>>>
>>
>>
>> _______________________________________________
>> Rio-pm mailing list
>> Rio-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>
>
>
> --
> Just another Perl Hacker,
> Fernando (SmokeMachine)
> http://perl-e.org
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090408/1aea5674/attachment.html>


Mais detalhes sobre a lista de discussão Rio-pm