VPF::Преобразование данных из бинарника

Delirium Tremens

Дата 29.1.2004, 10:08 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Люди помогите.
Пример :
Есть файл сейв .d2s
есть описание формата (частичное)
скажем с 100 байта храниться 4 long значения

Код


read (d2s_FH, $line , 116);

$bin1 = substr($line, 100, 4);
$bin2 = substr($line, 104, 4);
$bin3 = substr($line, 108, 4);
$bin4 = substr($line, 112, 4);

как мне получить значение а не эти кракозябры

Я эти pack() unpack() уже ненавижу просто

всяко пробовал.

если один байт брать я его и в битовое представление и в десятеричное значение
- спокойно но 4 байта для меня много наверно

ElectricalStorm

Дата 30.1.2004, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 547
Регистрация: 22.1.2004

Репутация: 1
Всего: 9

Привидите кусок файла и что хотите получить

--------------------

Нужно знать инструмент, которым пользуешься

ElectricalStorm

Дата 30.1.2004, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 547
Регистрация: 22.1.2004

Репутация: 1
Всего: 9

l4 - 4 лонг значения

я провел эксперемент не знаю поможет но все-таки
1. perl -e "print pack('l4','10101010'); " >t

2.
open F, "<t";
binmode (F);
binmode (STDOUT);
$a = unpack('l4', <F>);
print $a;

Результат
10101010

--------------------

Нужно знать инструмент, которым пользуешься

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »