Подскажите по perl

Я никогда не писал на перле, но может так поможет?

my $block_marker;
 while( length($variable) > 0) {
 ($block_marker, $variable) = unpack('C a*', $variable);
 {
  no strict 'refs';
  my $sub = 'block_' . $block_marker;
  try {
    $sub->(\%call, \$variable);
  } catch {
    warn "caught error: $_";
  }
 }
}

Действительно оно, только модуль подгрузить потребовалось use Try::Tiny. Спасибо!

Сабрутин с block_122 по block_126 нету в пакете - https://metacpan.org/dist/CDR-Parser-SI3000/source/lib/CDR/Parser/SI3000.pm#L...

Тебе надо игнорировать эту ошибку (если, конечно ее надо игнорировать).

Попробуй код, где у тебя вызывается этот парсер, обернуть в eval с перехватом только этой ошибки:

my $result;

eval {
    $result = <вызов парсера>;
    1;
};

if ( my $error = $@ ) {
    if ( $error =~ /Undefined subroutine/i ) {
        warn $error;
    } else {
        die $error;
    }
}

как вариант: узнать определена ли нужная функция

if (defined(&$sub)) {
   $sub->(\%call, \$variable);
}

$sub->(\%call, \$variable) if (defined(&$sub));

В perl есть удобный оператор «//»

    my $sub = 'block_' . $block_marker // sub { print "Error" };

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

Invalid type '-' in unpack at /usr/local/share/perl/5.32.1/CDR/Parser/SI3000.pm line 459.

Когда сам изучал вопрос, нашел что-то подобное, но перлопыта не хватило понять что здесь происходит, в теме решения попроще предложили.

Когда сам изучал вопрос, нашел что-то подобное, но перлопыта не хватило понять что здесь происходит, в теме решения попроще предложили.

Try::Tiny - это всего лишь тонкая обертка над блоком eval { } и переменной $@

Invalid type ‘-’ …

откуда ‘-’ мне не понятно

Посмотрел что на 459, тоже непонятно

459     ($stats,$$var) = unpack("a$len a*", $$var);