Foro - Perl en Español

por **dgonzalez** » 2012-11-20 10:11 @466

Hola, estimados.

Soy nuevo en el foro y recién comienzo a programar en Perl.

Les cuento tengo que hacer un programa que respalde archivos .pl dentro de un directorio en particular ingresado por el usuario al igual que el directorio donde quedarán los respaldos.

El problema mayor que tengo es que no me funciona la copia, para lo cual estoy utilizando el comando system("cp $_ $dir_destino);

He intentado con el módulo File::Copy, pero me da un error y no sé cómo resolverlo.

Adjunto archivo con el código, por favor ¡¡¡ayudaaaaaaaaaaa!!!

Gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#file name: tarea2.pl
use strict vars;
#use File::Copy;
my ($dir_origen, $dir_destino, @files, $resul,$copy);
 
print ("Ingrese directorio/ruta a respaldar:");
$dir_origen=<STDIN>;
chomp ($dir_origen);
print ("Ingrese directorio/ruta de destino del respaldo:");
$dir_destino=<STDIN>;
chomp ($dir_destino);
 
if (lc($dir_origen) eq lc($dir_destino))
{
        print ("El dir. de origen de respaldo no puede ser igual dir. de destino\n");
        exit;
}
if (-e $dir_destino)
{
        #system("find $dir_origen -name *.pl > /filesok.txt");
        $resul=`find $dir_origen -name "*.pl" > filesok.txt`;
        open(INFILE, "filesok.txt");
        while (<INFILE>){
                #file::copy::copy ($_, $dir_destino\$copy_Date);
                system("cp $_  $dir_destino");
        }
}
else
{
        print("Directorio no existe\n");
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Bienvenido a los foros de Perl en Español, dgonzalez.

Creo que el problema está en la lectura de los archivos, en el while().

Al hacer la lectura con el operador diamante (<INFILE>) estás leyendo línea a línea desde el archivo filesok.txt. Cada línea es almacenada en $_, que luego se lo pasas a system(), pero...

Pero resulta que en esa línea, además del nombre del archivo, va acompañada del/de los caracteres finales de línea.

Por eso cp no encuentra nada: porque los nombres de los archivos que le estás pasando no son correctos (tienen un retorno de carro/avance de línea, al final).

La solución es insertar un chomp; justo después de la lectura, antes de la línea 25:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                chomp;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De esta manera, los caracteres finales de línea son descartados de $_.

Una cosa más: todas las operaciones de búsqueda y copia las puedes realizar en Perl, con los módulos File::Find y File::Copy, como verás en muchos de los hilos de estos foros.

La otra alternativa es no usar Perl:

find dir_origen -name "*.pl" -exec cp {} dir_destino \;

pero seguro que al profesor de Perl no le gustará...

Truco: en Perl existe un script llamado find2perl.

por **dgonzalez** » 2012-11-20 11:05 @504

¡¡¡Muchas gracias, explorer!!! te pasaste.
Funcionó a la primera...

Foro - Perl en Español

Error al usar system()

Error al usar system()

Publicidad

Re: Error al usar system()

Re: Error al usar system()

¿Quién está conectado?