Foro - Perl en Español

por **BigBear** » 2010-03-19 14:53 @662

Hola.

Ando teniendo una duda porque quiero codificar un archivo con palabras a codificación md5 por cada palabra, pero cuando los codifico se ven diferentes que si hubiese codificado una sola palabra a md5 sin usar archivo de texto.

¿Alguien me podría explicar por qué sucede eso y cómo lo arreglo?

#!/usr/bin/perl
 
use Digest::MD5;#Modulo
 
#Array con los valores
@a = ("123\n","123\n","123\n","123\n","123\n","123","123\n","123\n");
chomp @a;#Quitamos \n
 
for my $ar(@a){
 
$re = Digest::MD5->md5_hex($ar);
print "$ar -> $re\n";
}
__END__
Salida:
123 -> 8ece12f84d193069a579d5477b3efa66
123 -> 8ece12f84d193069a579d5477b3efa66
123 -> 8ece12f84d193069a579d5477b3efa66
123 -> 8ece12f84d193069a579d5477b3efa66
123 -> 8ece12f84d193069a579d5477b3efa66
123 -> 8ece12f84d193069a579d5477b3efa66
123 -> 8ece12f84d193069a579d5477b3efa66
123 -> 8ece12f84d193069a579d5477b3efa66
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Editado xDD.

por **explorer** » 2010-03-19 17:43 @780

Pues efectivamente... faltaba por quitar los caracteres de final de línea...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use Digest::MD5 qw(md5_hex);
 
my $md = "123";
my $re = md5_hex($md);
print "[$md][$re]\n";
 
open (W,'kk.txt');
my @a = <W>;
close W;
 
chomp @a;
 
for my $ar (@a) {
    my $re = md5_hex($ar);
    print "[$ar][$re]\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aparte de algún cambio estético, la clave está en la línea 16, donde les quitamos los caracteres de final de línea a todas las líneas.

Prueba a ejecutar el programa sin esa línea (o comentada), y verás la diferencia.

En muchas ocasiones, el uso de los corchetes '[' y ']' viene muy bien para saber con qué estamos tratando.

Foro - Perl en Español

Codificación de md5

Codificación de md5

Publicidad

Re: Codificación de md5

Re: Codificación de md5

Re: Codificación de md5

Re: Codificación de md5

¿Quién está conectado?