7 line perl script to make thumbs for movies
 

got to thank the owner of www.leenks.com for this handy script

thought i would share

#!/usr/local/bin/bash
for i in *.mpg *.wmv
do
mplayer -ss 00:00:04 -quiet -frames 2 -vo jpeg -ao null "$i"
rm 00000001.jpg
mv 00000002.jpg "$i.jpg"
done

seeks in 4 seconds, put the videos in a temp dir and run the file.

remember to have mplayer compiled.

not bad, except you need mplayer installed, which has shitload of dependencies..

ya only took under a min to install using the ports

neat!! :)

Cool script.. it's not perl though..

nice one :thumbsup

oops bash script :p