Foro - Perl en Español

por **explorer** » 2013-01-16 11:03 @502

A mí sí que me funciona lo del SHA1:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.14;
 
use Digest::SHA1 'sha1_hex';
 
my $correo  = '[email protected]';
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):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Input the SHA1 signature\n";
$signature = <STDIN>;
chomp $signature;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Yo intenté hacer login con la signature devuelta SHA1 hex, pero dice que ha habido un error, por lo tanto pensé en que SHA1 tiene diferentes formas de darte los datos... no sé... ya veré si hay algo ahí mal. El último carácter de signature, vale, quitaré el "\n" con chop(), sin embargo, ni uno ni otro arregla el problema para subir el archivo.

Estoy viendo a ver qué puede ser, pero por ahora no tengo ni idea...

Salu2

por **explorer** » 2013-01-17 09:57 @456

Debes quitar los retorno de carro de todos los datos que leas por teclado o desde archivos de texto. Su presencia altera, y mucho, la construcción de la URL, además de que la SHA1 ya no sería correcta.

Y mejor usar chomp(), en lugar de chop().

por **n3td1srupt** » 2013-01-19 18:35 @816

explorer escribiste:Debes quitar los retorno de carro de todos los datos que leas por teclado o desde archivos de texto. Su presencia altera, y mucho, la construcción de la URL, además de que la SHA1 ya no sería correcta.

Y mejor usar chomp(), en lugar de chop().

Lo siento, explorer, pero nada,lo que he hecho es enviar una pregunta al grupo de ayuda de MediaFire por que se me hace que lo de la API de upload, o tiene algún problema, o no está disponible o algo, pero a mi me parece o creo que es la API de upload de MediaFire donde anda el problema. En cualquier caso seguiré escribiendo código para otras opciones y el upload pues ya veré si encuentro la forma de hacerlo.

Muchas gracias

Salu2

Foro - Perl en Español

Acceso a MediaFire con Perl

Re: Acceso a MediaFire con Perl

Publicidad

Re: Acceso a MediaFire con Perl

Re: Acceso a MediaFire con Perl

Re: Acceso a MediaFire con Perl

¿Quién está conectado?