[Cascavel-pm] Inversao de variavel

[Alceu R. de Freitas Jr.]

 --- Luis Campos de Carvalho <lechamps em terra.com.br>
escreveu:
> 
>    # Bico!
>    sub reverse_octets{
>      my $ip = shift || '127.0.0.1';
>      return
>        $ip =~
> m/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/ ?
>          "$4.$3.$2.$1" : undef;
>    }
> 
>    # para usar:
>    print reverse_octets '200.10.5.1';
> 
>    Se você se interessar como funciona, o Alceu
> explica! =-]

"$4.$3.$2.$1" : undef;

Para ser sincero, não entendi a função dos ":" na
linha acima. Eu lembro vagamente que Perl tem uma
estrutura que emula um if-then-else, mas eu nunca
usei... seria isso?

[]´s


=====
Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
"You have enemies? Good. That means you've stood up for something, sometime in your life." - Sir Winston Churchill

_______________________________________________________________________
Desafio AntiZona: participe do jogo de perguntas e respostas que vai
dar um Renault Clio, computadores, câmeras digitais, videogames e muito
mais! www.cade.com.br/antizona