Прочитать видео файл, используя Perl

Question

Кто-нибудь может подсказать мне, как читать видеофайл с Perl без использования сторонних инструментов?

Я знаю opencv библиотека для Python и C. Я не уверен, какой из них использовать для Perl.

ОБНОВИТЬ

Я получаю вывод как

3 bytes read

´ˇÙ

Argument "M-+M-^?M-t" isn't numeric in bitwise and (&) at

0

Я новичок в Perl, и я что-то упустил. Я читаю 3 байта из файла до EOF. Я хочу замаскировать это и сделать некоторые манипуляции с битами. я читаю pack/unpack это действительно не дает мне понять.

open (FILE, "<:raw", $InputFile) or die "Couldn't open";
my ($buf, $data, $n); 

while (($n = read FILE, $data, 3) != 0) { 
    print "$n bytes read\n"; 
    $buf = $data; 
    print $buf . "\n";
    my $maskNumber = 0x4;
    my $value = ($buf & $maskNumber);
    print $value . "\n";
}

Answer 1

Битовые операторы Perl имеют строковые и числовые режимы; если какой- либо параметр является числом, используется числовой режим.

Поэтому я подозреваю, что вы хотите что-то вроде:

$buf & "\0\0\4"