-1

サードパーティのツールを使用せずに Perl からビデオ ファイルを読み取る方法を教えてもらえますか?

opencvPython と Cのライブラリは知っていますが、Perl にはどちらを使用すればよいかわかりません。

アップデート

出力は次のようになります

3 bytes read

´ˇÙ

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

0

私は perl の初心者で、何か不足しています。ファイルからEOFまで3バイトを読み取っています。それをマスクして、ビットを操作したいと思います。私はそれを読ん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";
}
4

1 に答える 1

1

Perl のビット演算子には文字列モードと数値モードがあります。いずれかのパラメータが数値の場合、数値モードが使用されます。

だから私はあなたが次のようなものが欲しいと思う：

$buf & "\0\0\4"
于 2013-11-10T07:06:30.280 に答える