Tengo una función que devuelve dos 'array', pero tenía la dificultad en asignar estos resultados a dos variables de 'array'.
my (@A, @N) = volver_dos_arrays;
dd @A; # muestra lo que está dentro de @A (dd = "data dumper")
dd @N;
sub volver_dos_arrays
{
my @alfa = <A B C>;
my @num = 1, 2, 3;
return @alfa, @num;
}
Resulta en lo siguiente: en que podemos ver que el primer 'array' guardó los dos 'array' que devolvió la función:
Array @A = [["A", "B", "C"], [1, 2, 3]]
Array @N = []
Pero, yo quería que fuera así:
Array @A = ["A", "B", "C"]
Array @N = [1, 2, 3]
Sé que lo siguiente funciona, pero no me gusta guardar un 'array' en un 'scalar'. No quiero cambiar el sigilo de la @A
ni de la @N
.
my ($A, $N) = volver_dos_arrays;
dd $A;
dd $N;
sub volver_dos_arrays
{
my @alpha = <A B C>;
my @num = 1, 2, 3;
return @alpha, @num;
}
¿Cómo puedo hacer esto sin cambiar los sigilos?
Aprendí cómo hacerlo, pero todavía hago la pregunta porque me dejó perplejo por un par de horas. Hago una respuesta si nadie da una respuesta similar a lo que averigüé.