Descrição
Esta função redefine (apaga) todas as variáveis de pacote começando com o intervalo de letras especificado por EXPR. Geralmente usado apenas em um bloco contínuo ou no final de um loop. Se omitido, redefine? PATTERN? partidas.
Variáveis que foram declaradas usando a função my () não serão redefinidas.
Usar reset () pode redefinir as variáveis do sistema que você pode não querer alterar - como as variáveis ARGV e ENV.
Sintaxe
A seguir está a sintaxe simples para esta função -
reset EXPR
reset
Valor de retorno
Esta função retorna 1.
Exemplo
A seguir está o código de exemplo que mostra seu uso básico -
#!/usr/bin/perl -w
my $var = 10;
$van = 5;
print "Var value = $var, Van value =$van\n";
# Now reset all variables who name starts with 'v'
reset('v');
print "Var value =$var, Van value =$van\n";
Quando o código acima é executado, ele produz o seguinte resultado -
Var value = 10, Van value = 5
Var value = 10, Van value =