Video::Info::Magic - Resolve video filetype if possible.
use strict; use Video::Info::Magic qw(:all); my $type = divine('/path/to/video.mpg' ); print $type; #MPEG system stream data (maybe) ## ... see methods below
various constants related to video file formats. All are prefixed with "VIDEO_".
divine(): Employs /usr/share/magic entries to determine a file's type, as well as GUID and other info from Microsoft, mplayer, transcode...
Copyright (c) 2002 Aladdin Free Public License (see LICENSE for details) Allen Day <email@example.com>