Foro - Perl en Español

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.

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:

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