• Publicidad

MD5 de archivos

¿Eres administrador de sistemas? Este foro es para todos aquellos temas relacionados con el uso de Perl para administración de sistemas.

MD5 de archivos

Notapor situ » 2011-01-21 20:57 @914

Les dejo el siguiente script por si alguien lo necesita.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use Digest::MD5;
  3. @ARGV or die "Uso: $0 archivo\narchivo: /etc/passwd por ejemplo\n";
  4. my $file = $ARGV;
  5. my $file= shift;
  6.     open(FILE, $file) or die "no se encuentra el archivo '$file': $!";
  7.     binmode(FILE);
  8.  
  9.     print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";
  10.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
situ
Perlero nuevo
Perlero nuevo
 
Mensajes: 358
Registrado: 2007-04-09 01:44 @114

Publicidad

Re: MD5 de archivos

Notapor explorer » 2011-01-21 21:04 @919

Yo, personalmente, prefiero usar el comando md5sum en la línea de comandos :)
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Administración

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron