Foro - Perl en Español

Hola chicos, bueno, al grano...

Tengo un problemilla. Estoy intentando hacer un sistema de variables que se use en los inputs, tal como las variables de bash, y se me había ocurrido algo tal que así:

### He resumido un poco el script porque tiene 500 líneas ###

Paso 1: Exportar la variable

El usuario introduce #Export nombre_de_la_variable variable y se escribe en un .txt en el directorio /home/usuario_que_lo_haga o en /etc/ si es root.


Paso 2: Todo esto pasa en un ciclo while que captura la variable $CMD todo el rato, así que en el siguiente ciclo se ponen en uso las variables. Si no encuentra un archivo de variables, lo crea.

¿Está bien como lo hago? Si estos hashes están bien creados, ¿cómo podría identificarlos en el input y sustituirlos por su valor? ¿Hay algún módulo que haga esto?
¡Gracias por adelantado!

No estoy muy seguro de lo que quieres hacer, pero parece que es como un sistema de plantillas, o que quieres tener una serie de valores en ciertas variables.

Lo que sí está claro es que hay algunos errores en el código. Y el más grave es usar la forma @CMD[0]. El programa sí que te funciona, pero puede darte una sorpresa en algunas situaciones.

Verás, en Perl, los array tienen el sigilo '@' delante del nombre de la variable, que usamos en el momento de su declaración:

my @array;

Pero a partir de ese momento, el sigilo que ponemos delante denota la pluralidad (o aridad) de los elementos que queremos almacenar/extraer de ese array.

Si vamos a almacenar un valor, uno solo, entonces tenemos que ponerlo un '$':

$array[1023] = "Vecino del quinto";

say $array[998];

En cambio, si queremos acceder a varios elementos, el sigilo cambia a '@':

@array[23, 24, 100] = (12, "hola", sqrt 100);

@array[0 .. 19] = map { int 1 + rand 10 } 0 .. 19; # 20 números aleatorios entre 1 y 10, incluidos

print "@array[8,11]\n";

Entonces, cuando en tu código pones @VARS[0], estás indicando a Perl que quieres recuperar "una lista de elementos desde VARS, compuesta de solo el elemento que está en la posición 0".

Esto, en principio, parece que no es importante, pero lo que estás haciendo es ejecutar esa sentencia en contexto de lista, sobre lo que tienes en el lado izquierdo de la expresión. Y en Perl, hay funciones y métodos que funcionan de forma distinta si están en contexto escalar o en contexto de lista.

Dicho esto, he realizado algunos cambios en tu código, para que quede algo más sencillo.


Y ya puedes usar el hash, por ejemplo:

print $variables_hash{'mi_variable'}, "\n";


P.D.: En Perl 6, las variables mantienen su sigilo a lo largo de todo el programa.

Hola de nuevo, gracias, ya he solucionado el problema y funciona genial, muchas gracias de nuevo y ¡hasta pronto!

Ahora tengo otra dudilla

Para incluir estas variables a los input, he creado estas líneas de código:

Solo necesito el método para cambiar en la cadena de texto la llave por el valor del hash, es decir, si en el hash hubiera una llave llamada "amigo" y un valor asociado, como por ejemplo "roberto", si la string fuera "mi amigo es verde" cambiarla quedando "mi roberto es verde". ¿Sabrías cómo?

Sí, es algo que se hace muy a menudo.

Consiste en hacer una sustitución. De hecho, así es como funcionan los sistemas de plantillas que hay para Perl y para el resto de lenguajes.

$CMD =~ s/\{$key\}/$variables_hash{$key}/ge;

Ejemplo: