perlで動画を表示させたい

質問

perlで動画を表示させたいのですがうまくいきません。

print "Content-type: video/mpeg\n\n";
open FH,"foo.mpg";
binmode FH;
binmode STDOUT;
while (<FH>) {
print STDOUT;
}
close FH;
exit;

MIMEのタイプがちがうのですか？
サーバーに設定されているMIMEタイプです。
video/mpeg mpeg mpg mpe
video/quicktime qt mov
video/x-msvideo avi
video/x-sgi-movie movie

回答No.1

alicia-y · ベストアンサー

質問で書かれているCGIを作成して実行してみましたが
Windows Media Player が立ち上がって見れるのですが、
どのようになるのでしょうか？
症状を補足してください。
ちなみに以下の様な物でもOKでした。
-------------------------------------------
#! /usr/local/bin/perl

print "Content-type: video/mpeg\n\n";
open(F, "xxxx.mpg");
#binmode F;
#binmode STDOUT;
print <F>;
close(F);
exit;
-------------------------------------------
UNIX をサーバとしているので binmode はコメントにしています。

お礼

ありがとうございました。
サーバーを立ち上げなおしたら動きました。
binmodeはなくてもいいんですね

以前はブラウザにデータがドドーッと表示されていました。