使用Perl閱讀視頻文件

-1

任何人都可以向我建議如何從Perl讀取視頻文件而不使用任何第三方工具？使用Perl閱讀視頻文件

我知道用於Python和C的opencv庫。我不確定哪一個用於Perl。

UPDATE

我得到的輸出

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"; 
}

來源

2013-11-09 Azzi

你可以嘗試FFmpeg的CPAN模塊：http://search.cpan.org/~allenday/FFmpeg-6036/FFmpeg.pm – gatinueta

請參閱http ：「要求我們推薦或找到工具，庫或最喜歡的非現場資源的問題是堆棧溢出的主題。另外，我無法理解 - 您對「不使用第三方工具」的定義是什麼，包括使用opencv？ *有一個用於Perl的opencv綁定：http：//search.cpan.org/~yuta/Cv-0.12/lib/Cv.pm - 儘管我對此不太瞭解。 –

有'打開我的$ fh，'<：raw'，'video_file''。一旦你讀完了你想用這個文件做什麼？ – Borodin

Perl的位操作符有字符串模式和數字模式;如果或者參數是一個數字，則使用數字模式。

所以我懷疑你想要的東西，如：

$buf & "\0\0\4"

來源

2013-11-10 07:06:30 ysth

使用Perl閱讀視頻文件

回答

相關問題