Как я могу получить доступ к n-му байту двоичного скаляра в Perl?

Поскольку у вас уже есть содержимое файла в $thisByteData, вы можете использовать pack/unpack для доступа к n-му байту.

sub getNthByte {
  my ($pos) = @_;
  return unpack("x$pos b1", $thisByteData);
}

#x$pos - treats $pos bytes as null bytes(effectively skipping over them) 
#b1    - returns the next byte as a bit string

Прочтите документацию пакета, чтобы получить представление о параметрах, которые можно использовать в шаблоне для получения различных возвращаемых значений.

РЕДАКТИРОВАТЬ. Ваш комментарий ниже показывает, что вам не хватает старшего полубайта ('f') первого байта. Я не уверен, почему это происходит, но вот альтернативный метод, который работает, а пока я еще посмотрю на поведение распаковки.

sub getNthByte {
  my ($pos) = @_;
  return unpack("x[$pos]H2", $binData);
}

(my $hex = unpack("H*", $binData)) =~ s/(..)/$1 /g;
#To convert the entire data in one go

Используя это, вывод для первых четырех байтов: 0xff 0xd8 0xff 0xe0, что соответствует документация.

Если у вас есть данные в виде строки и вы хотите перейти к определенному байту, используйте substr, если вы начинаете с обработки строки как байтов.

Тем не менее, вы можете прочитать его прямо из файла без всей этой ерунды со строками, которой люди забили вам голову. :) Откройте файл с sysopen и нужными параметрами, используйте seek, чтобы поставить себя там, где вы хотите, и прочитать то, что вам нужно, с помощью sysread.

Вы пропускаете все обходные пути для вещей, которые open и readline пытаются сделать для вас. Если вы просто собираетесь отключить все их функции, даже не используйте их.

Я думаю, что правильный ответ включает в себя упаковку/распаковку, но это также может работать:

use bytes;
while( $bytestring =~ /(.)/g ){
   my $byte = $1;
   ...
}

«использовать байты» гарантирует, что вы никогда не увидите символы, но если у вас есть строка символов и вы обрабатываете ее как байты, вы делаете что-то не так. Внутренняя кодировка символов Perl не определена, поэтому данные, которые вы видите в строке «использовать байты», почти бессмысленны.

Встроенная переменная Perl $/ (или $INPUT_RECORD_SEPARATOR, если вы use делаете English) управляет идеей Perl о "линии". По умолчанию установлено значение "\n", поэтому строки разделяются символами новой строки (да), но вы можете изменить это на любую другую строку. Или измените его на ссылку на число:

$/ = \1;
while(<FILE>) {
  # read file
}

Установка его на ссылку на число сообщит Perl, что "строка" - это количество байтов.

Теперь, что именно вы пытаетесь сделать? Вероятно, существует ряд модулей, которые будут делать то, что вы пытаетесь сделать, и, возможно, более эффективно. Если вы просто пытаетесь научиться это делать, продолжайте, но если у вас есть конкретная задача, подумайте о том, чтобы не изобретать велосипед (если вы этого не хотите).

РЕДАКТИРОВАТЬ: Спасибо jrockway в комментариях...

Если у вас есть данные в формате Unicode, может быть прочитан не один байт, а один символ, но если это произойдет, вы сможете use bytes; отключить автоматический перевод байтов в символы.

Теперь вы говорите, что хотите прочитать все данные сразу, а затем передать их функции. Давай сделаем это:

my $data;
{
  local $/;
  $data = <FILE>;
}

Или это:

my $data = join("", <FILE>);

Или некоторые предложат модуль File::Slurp, но я думаю, что это немного перебор. Однако давайте запишем весь файл в массив байтов:

use bytes;

...

my @data = split(//, join("", <FILE>));

И затем у нас есть массив байтов, который мы можем передать функции. Нравится?

Не зная гораздо больше о том, что вы пытаетесь сделать со своими данными, что-то вроде этого будет перебирать байты в файле:

open(SOURCE, "wl.jpg");
my $byte;
while(read SOURCE, $byte, 1) {
    # Do something with the contents of $byte
}
close SOURCE;

Будьте осторожны с конкатенацией, используемой в вашем примере; вы можете получить преобразование новой строки, что определенно не то, что вы хотите, когда читаете двоичные файлы. (Также неэффективно постоянно расширять скаляр во время его чтения.) Это идиоматический способ превратить весь файл в скаляр Perl:

open(SOURCE, "<", "wl.jpg");
local $/ = undef;
my $big_binary_data = <SOURCE>;
close SOURCE;