perl - 使用 Perl 读取视频文件

Question

谁能建议我如何在不使用任何第三方工具的情况下从 Perl 读取视频文件？

我知道opencvPython 和 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";
}

score 1 · Accepted Answer

Perl 的位运算符有字符串模式和数字模式；如果任一参数是数字，则使用数字模式。

所以我怀疑你想要类似的东西：

$buf & "\0\0\4"

perl - 使用 Perl 读取视频文件

1 回答 1

Related

Reference