[PortoAlegre-pm] Quiz

[Adriano Ferreira]

On 2/5/07, Igor Sutton Lopes <igor.sutton em gmail.com> wrote:
> Adriano,
>
> Respondendo a minha pergunta. Encontrei o módulo Lexical::Alias, que faz o
> que eu perguntei:

Obrigado. Eu não conhecia este módulo. Mas há ainda uma outra resposta para

>Você conhece alguma maneira de fazer um alias para uma estrutura de
dados, como o foreach, porém fora do mesmo?

que é passar a estrutura como argumento para uma subrotina:

sub foo {
      print $_[0];
}

Os argumentos em @_ são alias dos parâmetros usados e podem modificá-los.

>
> <code>
> #!env perl -l
>
> use strict;
> use warnings;
>
> use Lexical::Alias;
> use Test::More tests => 3;
>
> my $this = 23;
> my $that;
>
> alias $this, $that;
>
> is($this, $that);
>
> $this = 12;
>
> is($this, $that);
>
> $that = 36;
>
> is($this, $that);
> </code>
>
> Fica aí a dica :-)
>
>
> --
> Igor Sutton Lopes <igor.sutton em segula.pt>
>
>
>
>
> _______________________________________________
> PortoAlegre-pm mailing list
> PortoAlegre-pm em pm.org
> http://mail.pm.org/mailman/listinfo/portoalegre-pm
>
>
>