I've modified the module for provide an accessor interface instead of hash
last night.
Take a look at the new documentation and tell me what you think.
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->{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->{have_video}, "\n";
print $foo_info->{have_audio}, "\n";
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
在 2011年6月16日 下午9:52，陈钢 <yikuyiku....@gmail.com>写道：
> I agree "Media::Info" is a greate idea.That`s just what i want.
> Thk for that idea. I think the module may be base on "Mediainfo" in the
> video section. I will get that done later.
>
> I think "Mediainfo" is another thing which focus on videos.
> It`s just a perl interface of the great software called "Mediainfo".
>
>
>
>
> 2011/6/16 brian d foy <brian.d....@gmail.com>
>
>> [[ This message was both posted and mailed: see
>> the "To," "Cc," and "Newsgroups" headers for details. ]]
>>
>> In article <banlktinrjt1utqmh2a2q_vo3bwxwa9w...@mail.gmail.com>, ��谨
>> <yikuyiku....@gmail.com> wrote:
>>
>> > Hello all - I've written a new module called Mediainfo that I'm planning
>> to
>> > put on CPAN.
>>
>> I'd call it Media::Info and also provide an accessor interface instead
>> of a hash. Otherwise, it looks like a cool idea. Can you add images
>> too?
>>
>> --
>> brian d foy (one of many PAUSE admins), http://pause.perl.org
>> PAUSE instructions:
>> http://pause.perl.org/pause/query?ACTION=pause_04about
>> Archives: http://www.xray.mpe.mpg.de/mailing-lists/modules
>> Please send all messages back to modules@perl.org with no CC to me.
>>
>
>
