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.
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.003 segundos, usando GeSHi 1.0.8.4
Espero que me puedan ayudar
¡¡ Saludos !!