Question

有人可以告诉我如何在不使用任何第三方工具的情况下从Perl读取视频文件吗？

我知道Python和C的opencv库。我不确定将哪个用于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"

使用Perl读取视频文件

1 个答案: