Foro - Perl en Español

por **Dleandro** » 2011-01-21 18:14 @801

Hola, soy nuevo en el foro, y estoy aprendiendo a programar en Perl desde principios de este mes (enero).

Escribo porque vengo desde hace varios días leyendo por Internet tutoriales sobre Perl y sigo sin despejar mi duda que pasa por:

Quiero abrir un fichero, leer lo que está escrito e ir pasando cada línea de ese fichero a la consola como si fuera un comando.

Hasta ahora lo que he escrito, sin el resultado esperado, es lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (DATOS,"archivo");
 
#Agrego cada línea de éste en la matriz.
@registros=<DATOS>;
 
 
foreach $dato (@registros)
{
 system ("ls",$dato);
}
# Cierro el fichero abierto
close (DATOS); 
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

En la variable $dato es donde veo el mayor problema ya que system() no me reconoce el texto leído como un comando.

¿Es lo ideal para este caso usar system()? ¿Es mejor fgets o foreach() para esta ocasión?.

Quiero aclarar que quiero que system() ejecute dos comandos, es decir, "ls" primero y después lo que aparece en el archivo.

Espero alguna respuesta y desde ya, ¡¡gracias!!

system() sí que se usa para ejecutar comandos en el sistema, pero no es el único. También están qx() y exec(), además de las comillas invertidas (que son lo mismo que qx()).

De tu código, no veo problemas, salvo que yo quitaría el carácter de fin de línea de las líneas que he leído. Y si se trata de ejecutar el comando "ls" primero, y luego, el comando leído, entonces necesito hacer dos system(), o respetar la sintaxis del entorno de comandos en donde me encuentro, para la ejecución de más de un comando.

Como veo que estás ejecutando "ls", suponemos que estás en un sistema operativo Linux/Unix. Entonces, ahí puedes ejecutar más de un comando separándolos con ';'. Quedaría así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Abrimos el archivo
open (DATOS, "<archivo") or die "ERROR: No puedo abrir archivo: $!\n";
 
# Agrego cada línea de éste en la matriz
@registros = <DATOS>;
 
# Quitamos los caracteres de fin de línea de todas las líneas leídas
chomp(@registros);
 
foreach $dato (@registros) {
    system ("ls; $dato");
}
 
# Cierro el fichero abierto
close (DATOS);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Dleandro** » 2011-01-21 20:32 @897

Muchísimas gracias, explorer. Funciona a la perfección, lo único que cambié fue en el comando system(), lo apliqué de esta forma: system ("ls", "$dato") ya que quería que el comando "ls" se ejecutara junto a "$dato" (mi idea es aplicarlo a un programa más grande).

El código final quedaría de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Abrimos el archivo
  
      open (DATOS, "<archivo") or die "ERROR: No puedo abrir archivo: $!\n";
   
      # Agrego cada línea de éste en la matriz
   
      @registros = <DATOS>;
   
      # Quitamos los caracteres de fin de línea de todas las líneas leídas
  
      chomp(@registros);
       
      foreach $dato (@registros) {
 
          system ("ls", "$dato");
 
      }
  
      # Cierro el fichero abierto
  
      close (DATOS);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Espero seguir aprendiendo sobre Perl y seguir participando en el foro, en lo posible ayudando (en la medida que aprenda claro

). ¡Chau!

Foro - Perl en Español

Pasar texto de un archivo a comando en system RESUELTO

Pasar texto de un archivo a comando en system RESUELTO

Publicidad

Re: Pasar texto de un archivo a comando en system

Re: Pasar texto de un archivo a comando en system

¿Quién está conectado?