'Bad Descriptor File' в использовании модуля Perl 'Digest'

Question

Я пытаюсь реализовать Perl переваривать для CRC, но, к сожалению, я получаю:

Digest Ошибка чтения Ошибка: Bad Descriptor File

Как исправить эту проблему?

Это модуль образец кода here:

sub crc3439() { 
    $ctx = Digest::CRC->new(type=>"crc16"); 
    $ctx = Digest::CRC->new(width=>16, init=>0x2345, xorout=>0x0000, 
          refout=>1, poly=>0x8005, refin=>1, cont=>1); 

    my $binfile = 'envbin.bin'; 
    open(fhbin, '>', $binfile) or die "Could not open bin file '$binfile' $!"; 
    binmode(fhbin); 

    $ctx->add($binfile); 
    $ctx->addfile(*binfile); 
    $digest = $ctx->hexdigest; 
    return $digest; 
} 

Answer 1

Во-первых, вы перезапись $binfile вместо чтения. Изменение режима открытия до '<' должно исправить это.

Ваш ->addfile добавляет дескриптор файла, который не существует; вы, вероятно, хотите там *fhbin или лексический (my $fhbin) дескриптор файла.

Кроме того, вы переписываете $ctx с дополнительным вызовом ->new.

sub crc3439 { 
    my $binfile = shift; 

    my $ctx = Digest::CRC->new(
     type => "crc16", 
     width => 16, 
     init => 0x2345, 
     xorout => 0x0000, 
     refout => 1, 
     poly => 0x8005, 
     refin => 1, 
     cont => 1, 
    ); 

    open(my $fhbin, '<', $binfile) or die "Could not open bin file '$binfile' $!"; 
    binmode($fhbin); 

    $ctx->add($binfile); 
    $ctx->addfile($fhbin); 

    return $ctx->hexdigest; 
} 


print crc3439('foo.bin');