Вопрос : Как преобразовать бинарный файл к Hex шнуру? (Perl)

Специалисты,

how делают я преобразовывают бинарный файл к hex шнуру в Perl? пример

not-so-working:

раскрывает (BS_FILE, $bs_file_bin) или умирает «не может раскрыть $bs_file_bin: $! »; binmode

(BS_FILE); @lines =

;
для $line (@lines) {chomp $line
;
мое $int = распаковывает («n», пакет («B32», substr («0» x 32. $line, -32)));
мое $hex = sprintf («%x», $int); печать STDOUT «$hex \ n»

;

} class=

Ответ : Как преобразовать бинарный файл к Hex шнуру? (Perl)

Я думаю вопрос что вы смешиваете с binmode.
Попытайтесь это…, котор оно кажется, что работает для меня.

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

используйте только; мо $bs_file_bin = «/tmp/bf»; раскройте (BS_FILE, $bs_file_bin) или умрите «не смогите раскрыть $bs_file_bin: $! »; binmode (BS_FILE); мое $data; пока (прочитано (BS_FILE, $data, 4)) { мо $int = распаковывают («n», $data); мо $hex = sprintf («%08X», $int); печать STDOUT «$hex \ n»; }