Foro - Perl en Español

Buenas, estimados perleros Tengo un gran dilema que me aqueja desde hace unos días (seguro para ustedes es algo muy fácil ).

Dentro de mi código tengo la necesidad de crear un archivo que contenga en su nombre espacios en blanco y se cree en función a variables. Para que me entiendan, mejor un ejemplo :

Como pueden apreciar, para crear el archivo ejecuto un comando externo (Linux) con la función system(). Y para escapar del espacio uso el carácter "\".

Si escribo el nombre manualmente en Linux:

Crea sin ningún problema el archivo "nombre archivo.csv", pero cuando ejecuto el script solo crea el archivo con la última variable "archivo.csv" y menciona como error que no existe el fichero "nombre".

¡OJO que solo es un ejemplo! El valor de las variables, el valor real, es el producto de diferentes funciones, solo pongo esos valores a modo didáctico.

Muchas gracias por la atención prestada.

Cuando pones un '\' entre comillas dobles, se produce una "interpolación" de las variables y de los caracteres "escapados" por el carácter '\'.

Entonces,

hace que $nombre sea 'nombre archivo'. Y cuando se lo pasamos a system(), como estamos usando otras comillas dobles, se produce otra interpolación, por lo que

system ("touch $nombre");

se transforma en

system ('touch nombre archivo');

Y esa es la razón de que se creen dos archivos, en lugar de uno solo.

Solución clásica
Como nuestra cadena de caracteres va a sufrir dos interpolaciones, necesitamos "retrasar" el efecto del "escapado" de la barra diagonal inversa hasta el momento de la segunda interpolación:

La barra diagonal pasa al shell, y éste se encargará de escapar el espacio en blanco, por lo que se creará un solo archivo, con el espacio en medio.

Solución Perl 1
Si sospechamos que tenemos "caracteres peligrosos" a la hora de crear archivos, podemos pedirle a Perl que los "escape" por nosotros:

que es lo mismo que usar la función quotemeta():

Las opciones de escapado "\Q...\E" están descritas en perldoc perlop en la sección Quote and Quote-like Operators, y de forma más específica en perldoc -f quotemeta.

Solución Perl 2
Podemos también... evitar la segunda interpolación, cambiando la forma de llamar a system():

De hecho, el problema está en llamar a system() con solo un argumento. Lo que dice el manual en perldoc -f system es:

system LISTA
system PROGRAMA LISTA

Hace exactamente lo mismo que "exec LISTA", excepto que se hace
primero un fork y el proceso padre espera a que el proceso hijo
termine. Tenga en cuenta que el tratamiento de los argumentos varía en
función del número de argumentos. Si hay más de un argumento en LISTA,
o si la lista es un array con más de un valor, se inicia el programa
indicado en el primer elemento de la lista, con los argumentos
indicados por el resto de la lista. Si sólo hay un argumento escalar,
se comprueba si el argumento tiene metacaracteres, y si hay alguno, el
argumento entero es pasado al shell de comandos para que sea
interpretado (suele ser "/bin/sh -c" en plataformas Unix, pero varía
en otras plataformas). Si no hay metacaracteres shell en el argumento,
es dividido en palabras y pasadas directamente a "execvp", que es más
eficiente.

Así que... si solo pasamos un argumento, se divide en palabras (por los espacios en blanco), y pasadas a la función del sistema para que lo ejecute. De ahí viene el problema de tener que escapar cuando usas las comillas dobles.

La solución, como has visto, es la de llamar a system() con más de un argumento.

¿Cuál elegir? La preferida es la última, ya que deja el código más limpio, y Perl no tiene que hacer ninguna operación de "escapado" previo.

P.D.: En vez de llamar a un comando externo 'touch', es preferible usar un open() de Perl. Así no dependes de la existencia o no de un comando externo ni le pides al sistema que arranque un proceso nuevo.

Hola, explorer, gracias por responder

Intenté con todos los métodos mencionados y pasa algo curioso. Como mencioné en un principio se creaba el archivo pero solo con la segunda variable "archivo.csv" y salía el error de carpeta no encontrada con la primera variable "nombre". Pero ahora no se crea ningún archivo y el error hace referencia al nombre completo "nombre archivo.csv"

Entiendo que ahora el valor de la variable sí está pasando completo pero no entiendo por qué no crea el archivo y sale el error.

PD: antes de usar system() usaba open(), pero con open() simplemente no pasaba nada (ni creaba el archivo ni salía error), por eso opté usar system().

Si estás ejecutando un open(), y estás especificando el modo en escritura '>', debe, necesariamente, pasar una de estas cosas:

• si el archivo no existe en el directorio actual, se crea un nuevo archivo con tamaño de 0 bytes:
  
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using bash Syntax Highlighting

  1. > perl -E 'open F, ">", "nombre archivo.csv" or die "ERROR: $!\n"; close F'
  2. > ll "nombre archivo.csv"
  3. -rw-r--r-- 1 explorer users 0 sep 26 01:28 nombre archivo.csv

  Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
• si el archivo ya existía, el archivo se pone a 0 bytes:
  
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using bash Syntax Highlighting

  1. > ll "nombre archivo.csv"
  2. -rw-r--r-- 1 explorer users 300 sep 26 01:30 nombre archivo.csv
  3. > perl -E 'open F, ">", "nombre archivo.csv" or die "ERROR: $!\n"; close F'
  4. > ll "nombre archivo.csv"
  5. -rw-r--r-- 1 explorer users 0 sep 26 01:31 nombre archivo.csv

  Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
• si en el directorio donde pretendemos crear el archivo no tenemos permiso de escritura, no se creará el archivo y saldrá un mensaje de error:
  
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using bash Syntax Highlighting

  1. > chmod u-w .           # quitamos permiso de escritura a nosotros mismos, en todo el directorio
  2. > perl -E 'open F, ">", "nombre archivo.csv" or die "ERROR: $!\n"; close F'
  3. ERROR: Permission denied
  4. > chmod u+w .           # recuperamos los permisos, para dejarlo todo como estaba

  Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
• si no hay espacio en disco, o el sistema de archivos está en solo lectura, o si el dispositivo tiene un error de hardware, saldrá otro mensaje de error distinto

Te pido que agregues comandos die() como el que te pongo, para que saquen el valor de la variable especial $!, que contiene el texto del último mensaje de error producido.

Si esto no funciona, habrá que pensar que estás usando un código más complicado del que nos muestras. En ese caso, te pido que intentes escribir el programa de Perl más pequeño que puedas, que reproduzca el error, para que lo probemos nosotros.

Por ejemplo:

Usé el open() y el error que sale es el siguiente: No such file or directoryn at ./M3LNK2.pl, donde lo último es el nombre del script perl que ejecuto.

Este es el programa :


Lo que el programa hace es en función a un archivo, crea otro nuevo, operando el valor de unas columnas y le pone el nombre al archivo en base al valor procesado de una fila.

Pero el mensaje de error debería indicar el número de línea donde ha ocurrido.

Muchas gracias por la respuesta, muchas gracias