[SP-pm] atalhos toscos

[Eden Cardim]

2010/10/5 Stanislaw Pusep <creaktive em gmail.com>:
> perl -le '$x = 12345; $y = 67890; ($x!=$y)&&($x^=$y^=$x^=$y); print "$x $y"'
> BÔNUS! Isso em particular não tem utilidade nenhuma, mas é, no mínimo,
> curioso. Serve para dar um "swap" de valores (NUMÉRICOS!) das variáveis, ou
> seja, é equivalente a "$tmp = $y; $y = $x; $x = $tmp;"
>
>
> Alguém mais teria alguma idiossincrasia para compartilhar? :)

Quanto ao swap, é mais fácil fazer:

($x, $y) = ($y, $x)

-- 
   Eden Cardim       Need help with your Catalyst or DBIx::Class project?
  Code Monkey                    http://www.shadowcat.co.uk/catalyst/
 Shadowcat Systems Ltd.  Want a managed development or deployment platform?
http://blog.edencardim.com/            http://www.shadowcat.co.uk/servers/