Video Files

mzelem has asked for the wisdom of the Perl Monks concerning the following question:

I would like to write a perl script that allows website users to upload videos, and perform multiple functions on the videos once uploaded.

Much like YouTube

I would like to be able to convert from just about any format that the user may upload ( the more formats, the better) to another standardized format.

I would like to be able to check and make sure the video isn't longer than say 5 minutes.

I would like to be able to change the resolution to a standard resolution throughout the site.

Any help on this would be much appreciated.

Comment on Video Files

Replies are listed 'Best First'.
Re: Video Files by Joost (Canon) on May 21, 2007 at 19:17 UTC
For personal use, I use mencoder (comes with mplayer) to convert just about anything into reasonable formats. It's fully command line driven so it should be easy to use from perl. Most linux standard distros ship versions of mplayer with many codecs disabled because of copyright & patent issues. If you want the full range, get all the codecs and the source off the mplayer site and compile it yourself. Another option might be VLC, which has python (but apparently not perl) bindings . Yet another option: gstreamer has perl bindings and some video support. It might be overkill and I'm not sure how many codecs it supports, but it's certainly the most flexible of the three in terms of video/audio processing. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply]
Re: Video Files by kyle (Abbot) on May 21, 2007 at 18:11 UTC
Here are a couple of earlier nodes that might help... Video Thumbnail Script How Perl Saved BayCon TV	[reply]
Re: Video Files by naikonta (Curate) on May 21, 2007 at 17:46 UTC
Have you tried Video? Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!	[reply]
Re: Video Files by liverpole (Monsignor) on May 21, 2007 at 17:53 UTC
Hi mzelem, There's also a module WebService::YouTube::Videos (as well as the base class Webservice::Youtube). I have no idea whether they will be helpful to you, though. s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/	[reply]