Mi idea es mediante el módulo Find y Md5, listar todos los archivos de un directorio y obtener el HASH de cada uno.
Tengo los dos scripts por separado pero al querer unirlos no me andan :S
Find:
Using perl Syntax Highlighting
#!/usr/bin/perl
## Lista los archivos con su PATH completo
use strict;
use File::Find;
my $dir = '/home/operador/scripts/perl';
find(\&imprimir_archivo, $dir);
sub imprimir_archivo{
my $elemento = $_;
print "$File::Find::name\n" if -f $elemento;
}
## Lista los archivos con su PATH completo
use strict;
use File::Find;
my $dir = '/home/operador/scripts/perl';
find(\&imprimir_archivo, $dir);
sub imprimir_archivo{
my $elemento = $_;
print "$File::Find::name\n" if -f $elemento;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Md5:
Using perl Syntax Highlighting
#!/usr/bin/perl
use Digest::MD5;
my $file = shift || "/etc/passwd";
open(FILE, $file) or die "no se encuentra el archivo '$file': $!";
binmode(FILE);
print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";
use Digest::MD5;
my $file = shift || "/etc/passwd";
open(FILE, $file) or die "no se encuentra el archivo '$file': $!";
binmode(FILE);
print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Saludos.
