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

Fernando Oliveira fernandocorrea em gmail.com
Terça Abril 7 21:12:00 PDT 2009


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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090408/c7b9b5d4/attachment.html>


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