Video::Info::Magic(3) 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 protected]>