Вопрос № 44309: Нужно прочитать файл и определить количество определенных байтов.
Я делаю так:
my $data;
open FILEFIND, $_[0];
binmode FILEFIND;
seek(FILEFIND, 0, 2);
my $count = tell(FILEFIND);
seek(FILEFIND, 0, 0);
read(FILEFIN...
Вопрос № 44.309
Нужно прочитать файл и определить количество определенных байтов.
Я делаю так:
my $data;
open FILEFIND, $_[0];
binmode FILEFIND;
seek(FILEFIND, 0, 2);
my $count = tell(FILEFIND);
seek(FILEFIND, 0, 0);
read(FILEFIND, $data, $count);
close FILEFIND;
Не работает, естественно, т.е не работает цикл для проверки, сами данные нормально размещаются в $data. Как строку парсить по байтам? Можно ли это сделать через рег. выражение? По сути нужно сосчитать количество байт, а точнее количество пар байт, удовлетворяющих моим условиям.
Отправлен: 26.05.2006, 16:06
Вопрос задал: Red Devil (статус: Студент)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: -OC-
Здравствуйте, RedDevil!
насколько я понял вам нужно найти в двоичном вайле колличество последовательностей байтов <байт1><байт2>. Если так, то попробуйте заменить ваш цикл на такую конструкцию:
Приложение:
Ответ отправил: -OC- (статус: 7-ой класс)
Ответ отправлен: 26.05.2006, 20:53 Оценка за ответ: 5 Комментарий оценки: Догадывался, что это должно быть похоже на такой код. Спасибо.