Frage : Wie man eine Binärdatei in Hex Schnur umwandelt? (Perl)

Experten,

how tun ich umwandeln eine Binärdatei in eine hex Schnur in Perl?

not-so-working Beispiel:

öffnen sich (BS_FILE, $bs_file_bin) oder sterben „kann $bs_file_bin nicht öffnen: $! “;

binmode (BS_FILE);

@lines = ;
für $line (@lines) {
chomp $line; das mein
$int = packen aus („N“, Satz („B32“, substr („0“ x 32. $line, -32))); mein
$hex = sprintf („%x“, $int);

Druck STDOUT „$hex \ n“;

}

Antwort : Wie man eine Binärdatei in Hex Schnur umwandelt? (Perl)

Ich denke, dass die Ausgabe ist, dass Sie mit binmode mischen.
Dieses versuchen,…, das es scheint, für mich zu bearbeiten.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

strenges verwenden;

mein $bs_file_bin = „/tmp/bf“;

öffnen (BS_FILE, $bs_file_bin)  oder sterben „kann $bs_file_bin nicht öffnen: $! “;
binmode (BS_FILE);

mein $data;
während (gelesen (BS_FILE, $data, 4)) {
   mein packen $int = aus („N“, $data);
   mein $hex = sprintf („%08X“, $int);
   Druck STDOUT „$hex \ n“;
}
Weitere Lösungen  
 
programming4us programming4us