Size: a a a

2021 April 29

R

Roman in Modern::Perl
Про плавающие: https://irem.univ-reunion.fr/IMG/pdf/ieee-754-2008.pdf
Описано, конечно, не человеческим языком и без картинок, но понять можно. Ищем раздел 3.6, далее по ссылкам по другим разделам. В сети полно примеров для big и low endian преобразований.
источник

VG

Vadim Goncharov in Modern::Perl
в CBOR он тоже определён
источник

R

Roman in Modern::Perl
Он много где есть. Сомневающиеся упирают на кроссплатформенность.
источник

VG

Vadim Goncharov in Modern::Perl
ну как минимум он бывает little endian и  big endian
источник

VG

Vadim Goncharov in Modern::Perl
сомневающие могут сунуть в pack() :)
источник

АН

Андрей Нагорный... in Modern::Perl
Я Mouse использую, и при вызове метода из другого модуля, return работает не корректно. Приходится в свойство передавать, и через гетеры получать
источник

W

Warstone in Modern::Perl
Код покажите
источник

АН

Андрей Нагорный... in Modern::Perl
у меня есть метод, который должен получать оффсет из партиции. При получении,
идет присвоение результата в атрибут messages, и далее завершение цикла.
Ранее, без Mouse, обходился простым ретурном
sub poll {
   my ( $self, $delay ) = @_;

   if ( !$self->{current_offset} ) {
       $self->_init_last_offset_from_partition();
   }
   while (1) {
       try {
           my $messages = $self->{consumer}->fetch(
               $self->{topic},
               $self->{partition},
               $self->{current_offset},
               $DEFAULT_MAX_BYTES
           );
           if ( @{$messages} ) {
               $self->{messages} = $messages;
               last; #вместо ретурна
           }
           else {
               sleep $delay;
           }
       }
       catch {
           confess $logger->error( "KAFKA", $_ );
       }
   } ## end while (1)
   return 1;
} ## end sub poll
источник

W

Warstone in Modern::Perl
Это не проблема Moose. Это проблема try
источник

АН

Андрей Нагорный... in Modern::Perl
даже так..
источник

W

Warstone in Modern::Perl
try { return } выйдет из try блока, а не из сабы
источник

АН

Андрей Нагорный... in Modern::Perl
omg
источник

W

Warstone in Modern::Perl
Это связано с ограничениями того что можно с этим сделать. В будущем перле try включат в ядро и там будет решена эта проблема.
источник

АН

Андрей Нагорный... in Modern::Perl
без try/catch, отработало бы корректно ?
источник

W

Warstone in Modern::Perl
Да
источник

W

Warstone in Modern::Perl
Попробуйте
источник

W

Warstone in Modern::Perl
Кстати вроде именно это именно вам я с неделю назад говорил
источник

W

Warstone in Modern::Perl
Кстати... Если у вас там стоит strict он-бы ругнулся в теории что last без while блока
источник

W

Warstone in Modern::Perl
Но тут я не очень уверен. Надо смотреть
источник

SZ

Sergey Zhmylove in Modern::Perl
Это перл, детка
источник