Questione : Come convertire una lima binaria in stringa Hex? (Perl)

Gli esperti,

how fanno io convertono una lima binaria in stringa hex in Perl? esempio del

not-so-working: il

si apre (BS_FILE, $bs_file_bin) o muore “non può aprire $bs_file_bin: $! „; binmode del
del
(BS_FILE); @lines = del
del
;
per $line (@lines) {chomp $line del
; il
mio $int = disimballa (“N„, pacchetto (“B32„, substr (“0„ x 32. $line, -32)));
mio $hex = sprintf (“%x„, $int); stampa STDOUT “$hex \ n„ del

;

} class= del

Risposta : Come convertire una lima binaria in stringa Hex? (Perl)

Penso che l'edizione sia che state mescolando con binmode.
Provare questo… che sembra funzionare per me.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

usare rigoroso;

mio $bs_file_bin = “/tmp/bf„;

aprir (BS_FILE, $bs_file_bin)  o morire “non può aprire $bs_file_bin: $! „;
binmode (BS_FILE);

il mio $data;
mentre (colto (BS_FILE, $data, 4)) {
   mio $int = disimballano (“N„, $data);
   mio $hex = sprintf (“%08X„, $int);
   stampa STDOUT “$hex \ n„;
}
Altre soluzioni  
 
programming4us programming4us