File:Compare

gperdomo · #1 (**permalink**) 24/05/2006, 14:33

Amigos,

quisiera saber si alguien tiene un script para comparar dos archivo.Se que el siguiente código sirve, pero como hacer recurrente para dos directorios:
Ejemplo directorio A contiene unos archivos que deben ser comparados con el directorio B, sí hay alguno que se parezca del directorio A al B entonces debe enviar este archivo a un directorio C.

Código:

use File::Compare;

        if (compare("file1","file2") == 0) {
            print "They're equal\n";
        }

jferrero · #2 (**permalink**) 25/05/2006, 04:24

use File::DirCompare;

gperdomo · #3 (**permalink**) 25/05/2006, 07:35

Yo estoy utilizando activestate.com - Perl, pero ése modulo no lo tienen ellos, nosé donde lo puedo descargar para incorporarselo y como es el procedimiento para instalar este módulo.
Gracias

Gustavo.-

monoswim · #4 (**permalink**) 25/05/2006, 08:38

search.cpan.org

Ahí tienes toooodos los módulos de perl...

Saludos
PD: Para instalar los módulos puedes leer el tutorial de www.perlenespanol.com

jferrero · #5 (**permalink**) 26/05/2006, 03:28

Si utilizas el ActiveState, vete a Inicio->Programas->ActiveState y activa el programa de descarga de módulos, el PPM.

gperdomo · #6 (**permalink**) 03/06/2006, 16:16

Hola,

Cuales serian los pasos para descargar ese modulo en especifico FileDisCompare?

Gracias,

monoswim · #7 (**permalink**) 05/06/2006, 06:03

Para instalarlo en windows ? lee este tutorial, es CORTO Y VA AL GRANO !!!

http://perlenespanol.baboonsoftware....ut/000054.html

Saludos

gperdomo · #8 (**permalink**) 07/06/2006, 07:46

Cual sería la mejor formar de hacerlo a través de un Array?

monoswim · #9 (**permalink**) 07/06/2006, 07:59

El código sería aproximadamente este

Código:

opendir(dir1,$dir1);
my @files1 = sort readdir(dir1);
closedir(dir1);

opendir(dir2,$dir2);
my @files2 = sort readdir(dir2);
closedir(dir2);

for(my $i = 0; $i < @files1; $i++){
   print "es igual" if ($files1[$i] == $files2[$i]);
}

Espero que te sirva

Saludos