La función reset() en Perl restablece (borra) todas las variables del paquete que comienzan con el rango de letras especificado por el valor que se le pasa. Generalmente se usa solo dentro de un bloque de continuación o al final de un ciclo.
Nota: El uso de la función reset() está limitado a variables que no están definidas mediante la función my().
Sintaxis: reset(letter_range)
Parámetro:
letter_range: un rango de letras que comienzan con un carácter común o un conjunto de caracteresDevuelve:
1 y restablece todas las variables en el rango dado
Ejemplo 1:
#!/usr/bin/perl -w
$var1 = 20;
$var2 = 15;
# Values before reset() function call
print "var1 value = $var1, ",
"var2 value = $var2\n";
# Now reset all variables whose
# name starts with 'v'
reset('v');
# Values after reset() function call
print "var1 value = $var1, ",
"var2 value = $var2\n";
var1 value = 20, var2 value = 15 var1 value = , var2 value =
Ejemplo 2:
#!/usr/bin/perl -w
$variable1 = 10;
$variable2 = 30;
# defining private variable using my()
my $variable3 = 40;
# Values before reset() function call
print "variable1 value = $variable1, ",
" variable2 value = $variable2\n";
print "variable3 value = $variable3\n";
# Now reset all variables whose
# name starts with 'v'
reset('v');
# Values after reset() function call
print "variable1 value = $variable1, ",
" variable2 value = $variable2, \n";
print "variable3 value = $variable3";
variable1 value = 10, variable2 value = 30 variable3 value = 40 variable1 value = , variable2 value = , variable3 value = 40
En el código dado en el Ejemplo 2, la variable 3 se define usando la función my() y, por lo tanto, su valor no muestra ningún efecto de la función reset() mientras que los valores de otras variables se restablecen.