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

Victor Ramos victornrm em gmail.com
Quarta Abril 8 09:31:31 PDT 2009


valeu galerinha, vcs sao 10.

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

> verdade... perdão... me enrolei...
>
> 2009/4/8 Renan Rangel <rvr777 em gmail.com>
>
> 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
>>>
>>
>>
>>
>>
>> _______________________________________________
>> 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/8413bfce/attachment-0001.html>


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