Using perl Syntax Highlighting
- #!/usr/bin/perl
- use v5.14;
- use Digest::SHA1 'sha1_hex';
- my $contra = 'azuquecadehenares';
- my $app_id = '32063';
- my $api_key = '5606dudsfa60xy0f7p60oac7b31tpi8bethde701';
- say sha1_hex($correo . $contra . $app_id . $api_key); # a5bcdc99ef4a8b4789592e10b2c6c5db9060655e
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Con respecto a los otros problemas, de que no funciona la subida de archivos, el error principal que veo es que a los datos que lees desde la entrada del teclado, no les quitas el carácter de nueva línea.
Debe ser así (ejemplo para solo un dato):