NAME
Mediainfo - Perl interface to Mediainfo
SYNOPSIS
use Mediainfo;
my $foo_info = new Mediainfo("filename" => "/root/foo.mp4");
print $foo_info->{video_format}, "\n";
print $foo_info->{video_length}, "\n";
print $foo_info->{video_bitrate}, "\n";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;
my $foo_info = new Mediainfo("filename" => "/root/foo.mp4");
print $foo_info->{filename}, "\n";
print $foo_info->{filesize}, "\n";
print $foo_info->{container}, "\n";
print $foo_info->{length}, "\n";
print $foo_info->{bitrate}, "\n";
print $foo_info->{title}, "\n";
print $foo_info->{album}, "\n";
print $foo_info->{track_name}, "\n";
print $foo_info->{performer}, "\n";
print $foo_info->{video_codec}, "\n";
print $foo_info->{video_format}, "\n";
print $foo_info->{video_length}, "\n";
print $foo_info->{video_bitrate}, "\n";
print $foo_info->{width}, "\n";
print $foo_info->{height}, "\n";
print $foo_info->{fps}, "\n";
print $foo_info->{fps_mode}, "\n";
print $foo_info->{dar}, "\n";
print $foo_info->{frame_count}, "\n";
print $foo_info->{audio_codec}, "\n";
print $foo_info->{audio_format}, "\n";
print $foo_info->{audio_length}, "\n";
print $foo_info->{audio_bitrate}, "\n";
print $foo_info->{audio_rate}, "\n";
print $foo_info->{audio_language}, "\n";
print $foo_info->{audio_channel}, "\n";
print $foo_info->{have_video}, "\n";
print $foo_info->{have_audio}, "\n";
print $foo_info->{rotation}, "\n";
print $foo_info->{video_codec_profile}, "\n";
print $foo_info->{video_format_profile}, "\n";
AUTHOR
Written by ChenGang
yikuyiku.com@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.