Função de reset Perl

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 =