Foro - Perl en Español

por **haganex** » 2012-09-08 18:46 @823

Chicos, recuro a ustedes nuevamente con la siguiente consulta.

Tengo que hacer un programa que por parámetro me llegue algún archivo y éste tengo que compararlo con todos los archivos del sistema y si encuentro alguno que sea igual (contenido y peso) me envíe un print() por pantalla avisando.

He intentado recorrer el directorio y logro hacerlo. El tema es que no entiendo cómo guardar el archivo por parámetro para compararlo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
 
my $dir_elegido = "/usr/bin";
 
chdir $dir_elegido or die "algo salio mal $! \n";
 
opendir DIR, $dir_elegido or die "no se puede abrir el dir: $! \n";
 
my @archivos = readdir DIR;
foreach my $arch(@archivos)
{
        if(-d $arch)
        {
                print "$arch es un directorio \n";
                next;
        }
        if(-l $arch)
        {
                print"$arch es un enlace simbólico \n";
                next;
        }
        if(-f $arch)
        {
                print"$arch es un archivo normal \n";
                next;
        }
        print "si llegué aquí es porque $arch es algo raro \n";
}
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Espero que me puedan ayudar

¡¡ Saludos !!

Con opendir()/readdir() no estás leyendo más que los archivos del directorio elegido. No estás recorriendo los subdirectorios en profundidad. Para esto, es mejor usar File::Find. Depende de lo que necesites hacer.

Si necesitas comparar por contenido, una opción cómoda es leer a una variable escalar el contenido del archivo a comparar.

Para acelerar el procedimiento, descarta los casos obvios: solo te interesan los archivos normales y además, que tengan el mismo tamaño que el que buscas.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    if (-f $arch) {                          # es un fichero normal
        if ($tamano == -s $arch) {           # y del mismo tamaño
            open my $fh, "<$arch" or next;              # vamos a leerlo, si podemos. Si no, al siguiente
            binmode $fh;                                # en modo binario
            read    $fh, my $arch_contenido, $tamano;   # lo leemos
            close   $fh
            if ($contenido eq $arch_contenido) {        # si los contenidos son iguales
                print "Encontrado igual en $arch\n";    # informamos
            }
        }
    }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Naturalmente, antes hemos leído el archivo primero, de la misma manera, y lo he guardado en $contenido, guardando además su tamaño en $tamano.

Foro - Perl en Español

Compara archivos

Compara archivos

Publicidad

Re: Compara archivos

¿Quién está conectado?