Overblog Suivre ce blog
Editer l'article Administration Créer mon blog

AVI header perl

par Morgan

publié dans Divers

 Voici un petit script qui permet de lire les fichier .avi depuis un lecteur web divx player. Ce script sert à faire un youtube like mais en HD !


player.pl

#!/usr/bin/perl

$file = '/path/of/your/film.avi';

#Si le membre est VIP, il peut télécharger plus rapidement
if ($vip == true )
$speed = 900000;
else
$speed = 16384;

print "Content-Type: video/x-msvideo\n\n";
open(AVI,"<$file") || die "Can't open AVI\n";
while (read(AVI,$buffer,$speed)) {
print $buffer;
}


Et voici le lecteur web player divx

Penser à utiliser l'url rewriting ;)
Commenter cet article