Программирование > Perl

Бинарник

<< < (4/5) > >>

DartSidius:
Вот выжержки из мануала . . . Если кому-то что-то скажет, то помогите :)

arto:
читать фиксированную часть, по ней опеределять переменную часть и читать ее. декодировать.

DartSidius:

--- Цитировать ---arto:
читать фиксированную часть, по ней опеределять переменную часть и читать ее. декодировать.
--- Конец цитаты ---


вот я и не пойму как её выцепить :(

arto:
dlinu fiksirowannoj chasti znaete?

$/ = \\length_of_fix_part;
while () {
  # now in $_ -- fix part of record
  if ($_ eq "chunk1") {
    local $/ = \\length_of_chunk1;
    my $chunk1 = ;
    # processing...
  }
  # process other chunks
}

DartSidius:

--- Цитировать ---arto:
dlinu fiksirowannoj chasti znaete?

$/ = \\length_of_fix_part;
while ( ) {
# now in $_ -- fix part of record
if ($_ eq "chunk1") {
local $/ = \\length_of_chunk1;
my $chunk1 = ;
# processing...
}
# process other chunks
}
--- Конец цитаты ---



Хм. . . . непонятно ничё :) . . . чанки какие-то . . . вообще...по-идее размер фиксированной части известен . . .
\\
Длина фиксированной части записи 16+n байт, где n – совокупная длина кода зоны и списочного
номера абонента, действия которого инициировали создание записи, представленных в виде
двоично-десятичных символов, как описано выше.

Навигация

[0] Главная страница сообщений

[#] Следующая страница

[*] Предыдущая страница