Cuestión : ¿Cómo convertir un archivo binario a la secuencia Hex? (Perl)

¿Los expertos,

how hacen yo convierten un archivo binario a una secuencia hex en el Perl? ejemplo del

not-so-working: el

se abre (BS_FILE, $bs_file_bin) o muere “no puede abrir $bs_file_bin: ¡$! ”; binmode del
del
(BS_FILE); @lines = del
del
;
para $line (@lines) {chomp $line del
; el
mi $int = desempaqueta (“N”, el paquete (“B32”, el substr (“0” x 32. $line, -32)));
mi $hex = sprintf (“%x”, $int); impresión STDOUT “$hex \ n” del

;

} class= del

Respuesta : ¿Cómo convertir un archivo binario a la secuencia Hex? (Perl)

Pienso que la edición es que usted se está mezclando con el binmode.
Intentar esto… que parece trabajar para mí.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

utilizar terminante;

mi $bs_file_bin = “/tmp/bf”;

abrirse (BS_FILE, $bs_file_bin)  o morir “no puede abrir $bs_file_bin: ¡$! ”;
binmode (BS_FILE);

mi $data;
mientras que (leído (BS_FILE, $data, 4)) {
   mi $int = desempaquetan (“N”, $data);
   mi $hex = sprintf (“%08X”, $int);
   impresión STDOUT “$hex \ n”;
}
Otras soluciones  
 
programming4us programming4us