28 lines
649 B
Perl
28 lines
649 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
use Digest::MD5;
|
|
use File::Basename;
|
|
|
|
sub calcular_hash {
|
|
my ($archivo) = @_;
|
|
|
|
# Obtener solo el nombre del archivo sin la ruta
|
|
my $nombre_archivo = fileparse($archivo);
|
|
|
|
# Calcular el hash MD5 del nombre del archivo
|
|
my $md5 = Digest::MD5->new;
|
|
$md5->add($nombre_archivo);
|
|
my $hash = $md5->hexdigest;
|
|
|
|
return $hash;
|
|
}
|
|
|
|
# Obtener el nombre del archivo de la URL
|
|
my $archivo_url = $ENV{'REQUEST_URI'};
|
|
my $hash_archivo = calcular_hash($archivo_url);
|
|
|
|
# Imprimir el hash como respuesta
|
|
print "Content-type: text/plain\n\n";
|
|
print "Hash del nombre del archivo: $hash_archivo\n";
|