>Возможно я не понял задачу, но вы делаете в своем скрипте что-то странное...и >нехорошее... Сейчас попробую объяснить что я вообще делаю.
>Вот таким образом можно считать файл от начала - до конца побайтно, с преобразованием >каждого считанного байта в двоичную форму.
>Вне зависимости от кодировки символов, в файле- данные хранятся в байтах. Вы не можете >считать меньше одного байта за раз. Больше - можете...Меньше- нет.
Это я знаю.
>Потом, после считывания байта- вы можете делать с ним что угодно...например учесть >только один бит из него, пронумеровать отдельные биты и так далее..
Ну это не нужно. Просто считать байт и перевести его в двоичную форму.
>Использование функции ord обусловлено тем, что когда перл считал байт из файла, он >представляет его себе как char ( то есть как символ), а dec2bin-работает с численным >представлением. Автоматического преобразования типа при этом не происходит, поэтому >таковое преобразование указывается непосредственно - через ord.
Странно, доки говорят, что при использовании read мы получаем скаляр, и с ним можно работать без преобразования типа.
>Функция dec2bin - делает следующую вещь - она преобразует некое число, в его двоичное >представление п
Эта функция вообще ненужна. Добавила только что бы вывод был хотя бы более - менее читабельным. Ибо мордочки обычного представления переменной содержащей бинарное значение малоинфоррмативны. :) У меня задача на данный момент просто считать файл побайтово и преобразовать каждый байт в десятичную систему. Сколько переменные будут занимать байт после преобразования меня уже мало волнует. Ещё раз повторюсь, что массив используется для дальнейшего решения.
>$a=getc file1; #Считываем ОДИН байт из файла. Абсолютно безразлично в какой он кодировке.
>print "Number of read $i deccode $a bincode " . dec2bin(ord($a))."\n";
>$i++; }
>
>sub dec2bin {
> my $str = unpack("B32", pack("N", shift));
> #$str =~ s/^0+(?=\d)//; # раскоментировать чтоб убрать начальные нули
> return $str;
>}
>
К сожалению, Ваша программа выдает ровно тот же результат что и моя. bin2dec я использовала для преобразования в десятичную систему - дальше нужна для решения. Просто скрипт пока недописан из-за загвоздки со считыванием.
Вывод который я получаю с Вашим кодом:
Number of read 371181 deccode bincode 1
Number of read 371182 deccode bincode 1
Number of read 371183 deccode bincode 0
Number of read 371184 deccode bincode 1
Это явно не 1 байт.
>PS. вы случайно не на информационной защите учитесь? Писец выпуск будет...
Случайно нет. Я не занималась программированием уже лет 7, на перле писала один раз только парсер конфигов, но там регекспы.
