Using perl Syntax Highlighting
- #!/usr/bin/perl
- use Digest::MD5;
- @ARGV or die "Uso: $0 archivo\narchivo: /etc/passwd por ejemplo\n";
- my $file = $ARGV;
- my $file= shift;
- 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.003 segundos, usando GeSHi 1.0.8.4