[Cascavel-pm] Re: [perlbr] undef em todas as v ariáveis

[Flavio S. Glock]

Nelson C. T. Ferraz wrote:
> 
> Gabriel Vieira wrote:
> > São infinitas strings q são enviadas, o que não facilita o uso do metódo
> > proposto.
> >
> > oq estou fazendo pra resolver é algo do tipo:
> >
> > $a = $b = $c = $d = $e = "";
> 
> Ao invés de usar o "my", você poderia declarar as variáveis globais da
> seguinte maneira:
> 
>    use vars qw($a $b $c $d $e);

Ok, esta resposta é só uma brincadeira, mas lá vai:
---
   use strict;
   use vars qw( @VARS );
   @VARS = qw( $a $b $c $d $e );
   eval " use vars qw( @VARS ) ";

   sub limpa_tudo {
       eval " $_ = undef " for @VARS;
   }

   $a = "ola";
   print defined $a ? 
       "a existe \n" :
       "a nao existe \n";

   limpa_tudo;

   print defined $a ? 
       "a existe \n" :
       "a nao existe \n";
---
a existe
a nao existe

- Flavio S. Glock