[Cascavel-pm] Re:Digest Cascavel-pm, volume 25, assunto 4

[old-wolf]

> From: "Gabriel Vieira" <gabriel em webclube.com>
> 
> Olá lista!!!
> 
> 
> Tipo, estou com uma dúvida.
> Existe alguma maneira de apagar os valores de todas as variáveis existentes?
> Algo no estilo undef $*;
> Sei lá.. é que, como sabem, alguns valores ficam salvo na memória quando utilizado o mod_perl e pra evitar que estes valores implicassem em erros em execuções posteriores, preciso tirar tais valores.
> O uso do my não é viável, já que utilizo um arquivo de complemento com as funções principais e o chamo através do require, e caso eu esteja usando o my, as variáveis do arquivo em questão não são passadas pro script que está sendo executado.
> 
> Espero ter sido 'entendível' :)
> 
> Abraços a todos ;)
> 
> Gabriel Vieira

Gabriel, o que o Flávio falo pra
solucionar seus problemas são os mais
viaveis, no caso você precisaria
refazer seus scripts, incluindo o uso
de 'use strict' e 'my'.
Sobre o que disse de apagar todas as
variaveis, como você aparento não da
muita atenção pro Flávio por achar que
não eh viavel, talvez isso te ajude
apesar de eu CONDENAR e achar HORRÍVEL
isso heeh, lá vai:

@vars = ('a', 'b', 'c', 'd'); # a
lista dos nomes das suas variáveis

# definindo os falores das variaveis
$a = 'var a'; 
$b = 'var b';
$c = 'var c';
$d = 'var d';

mostra_valores();
valores_xirrion();
print "apaguei os valores\n";
mostra_valores();

sub mostra_valores {
  map { print "$_ = $$_\n" } @vars;
}

sub valores_xirrion { # apagando os
valores das variáveis na lista @vars
  map { undef($$_) } @vars; 
}

Espero que você não faça isso, boa sote.



 
__________________________________________________________________________
Acabe com aquelas janelinhas que pulam na sua tela.
AntiPop-up UOL - É grátis!
http://antipopup.uol.com.br/