Question : Comment convertir un dossier binaire en corde Hex ? (Perl)

Les experts, le

how font je convertissent un dossier binaire en corde hex dans le Perl ? exemple du

not-so-working : le

s'ouvrent (BS_FILE, $bs_file_bin) ou meurent « ne peut pas ouvrir $bs_file_bin : $ !  » ; binmode du
du
(BS_FILE) ; @lines = du
du
;
pour $line (@lines) {chomp $line de
; le
mon $int = déballent (« N », paquet (« B32 », substr (« 0 » x 32. $line, -32)));
mon $hex = sprintf (« %x », $int) ; copie STDOUT « $hex \ n » du

;

} class= de

Réponse : Comment convertir un dossier binaire en corde Hex ? (Perl)

Je pense que l'issue est que vous vous mélangez au binmode.
Essayer ceci… qu'il semble fonctionner pour moi.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 :

employer strict ; mon $bs_file_bin = « /tmp/bf » ; s'ouvrir (BS_FILE, $bs_file_bin) ou mourir « ne peut pas ouvrir $bs_file_bin : $ !  » ; binmode (BS_FILE) ; mon $data ; tandis que (lu (BS_FILE, $data, 4)) { mon $int = déballent (« N », $data) ; mon $hex = sprintf (« %08X », $int) ; copie STDOUT « $hex \ n » ; }