Hello all - I've written a new module called Mediainfo that I'm planning to put on CPAN.
Take a look at the documentation(produced by pod2text) and tell me what you think. thank you for your time. NAME Mediainfo - Perl interface to Mediainfo SYNOPSIS use Mediainfo qw(mediainfo); my %info = mediainfo("/root/foo.mp4"); DESCRIPTION This module is a thin layer above "Mediainfo" which supplies technical and tag information about a video or audio file. <http://mediainfo.sourceforge.net/>. EXAMPLES use Mediainfo qw(mediainfo); my %info = mediainfo("/root/foo.mp4"); print $info{'filename'}; print $info{'filesize'}; print $info{'container'}; print $info{'length'}; print $info{'bitrate'}; print $info{'video_codec'}; print $info{'video_format'}; print $info{'video_length'}; print $info{'video_bitrate'}; print $info{'width'}; print $info{'height'}; print $info{'fps'}; print $info{'fps_mode'}; print $info{'dar'}; print $info{'frame_count'}; print $info{'audio_codec'}; print $info{'audio_format'}; print $info{'audio_length'}; print $info{'audio_bitrate'}; print $info{'audio_rate'}; print $info{'have_video'}; print $info{'have_audio'}; AUTHOR Written by ChenGang, yikuyiku....@gmail.com COPYRIGHT Copyright (c) 2011 ChenGang. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO Video::Info, Movie::Info