私は現在、ファイルを webm/ogg/mp4 形式に変換してユーザーに送り返す perl スクリプトを作成していますが、ビデオは埋め込まれています。EOF を送信できないことを除いて、すべて機能します。そのため、HTML5 ビデオ プレーヤーは最後が何であるかを認識し、ファイルを正しく使用できます (特定の時間に移動したり、ファイルがいつ終了したかを知ることさえできます (今は停止しますが、ビデオではもう何もできません。
開始コード:
elsif ($path =~ /^\/((\w|\d){11})\.webm$/ig) {
print "HTTP/1.0 200 OK\r\n";
$handler = \&resp_youtubemovie;
$handler->($cgi,$1);
webmファイルを送信する機能
sub resp_youtubemovie {
my $cgi = shift;
my $youtubeID = shift;
return if !ref $cgi;
open(movie,"<$youtubeID.webm");
local($/);
$movie = <movie>;
close(movie);
print "Content-type: movie/webm\n";
print $movie;
}
私はすでに while ループとバッファを試しましたが、どちらもうまくいきません。また、HTTP ステータス コードを 206 Partial Content に変更しようとしました。案件。ムービー ファイルを開いて正しくストリーミングする方法を知っている人はいますか?