Foro - Perl en Español

Hola, tengo un problema con una referencia; a ver, si llamo a una subrutina así: mirutina([1,2,3], [2,3,4]); ¿cómo puedo jugar con esos valores? por ejemplo, ponerlos en un vector nuevo o compararlos...

Y otra cosa, ¿habría alguna manera de saber si estos valores que le paso a la subrutina son números?

¡Gracias!

Primero veamos qué es lo que recibimos:

la salida es

Código: Seleccionar todo

$VAR1 = [
          [
            1,
            2,
            3
          ],
          [
            2,
            3,
            4
          ]
        ];

así que lo que recibimos son dos arreglos anónimos (o, dicho de otra manera, dos referencias a dos arreglos).

Entonces, algunas formas de leerlos, dentro de la subrutina:

trujin escribiste:Y otra cosa, ¿habría alguna manera de saber si estos valores que le paso a la subrutina son números?

Una forma de hacerlo es comprobando cada elemento, para ver si son números.

Si buscas por números enteros, usa una expresión regular, como por ejemplo /^\d+$/.

Para casos más complejos, usar Regexp::Common.

Esta parte my ($vector1_ref, $vector2_ref) = @_; no la ponía entre paréntesis y por eso me fallaba, ¿El uso de este paréntesis es como hacer un casting en Java?

Perl no tiene casting (no le hace falta la mayor parte de las veces).

Esos paréntesis corresponde a my(), que es una función (sorprendente... ¿no?... una función que está a la izquierda de una asignación... pero así queda más "expresivo" lo que queremos hacer en esa línea).

Y porque si le quito los parantesis me pone esto:
Can't use string ("1") as an ARRAY ref while "strict refs" in use at com.pl

Estás haciendo una asignación de un arreglo a un escalar. Lo que hace Perl es evaluar el arreglo en contexto escalar. En esa situación, del arreglo obtenemos el número de elementos que contiene, en tu caso, un '1' (porque @_ contiene un elemento).

Seguramente querrás decir
ooo

Es decir, leer el primer valor de @_ y pasarlo a $vector1_ref. En el último ejemplo ves que he puesto los paréntesis. Eso quiere decir que tenemos un contexto de lista a ambos lados. Perl pasará los valores del arreglo a la lista de valores de my(). Como solo hay uno, pues solo pasará uno.

Más información en perldata, sección Scalar-values, donde dice "If you evaluate an array in scalar context, it returns the length of the array".

Y en Crea tus propias funciones.