|
|
|
|
|
|
http://search.cpan.org/~allenday/Video-Info-0.993/Info/MPEG.pm
use strict;
use Video::Info::MPEG;
# use Video::Info::ASF;
# use Video::Info::Quicktime;
my $filename = 'Some_file';
my $video = Video::Info::MPEG->new( -file => $filename );
$video->probe();
print $file->type; ## MPEG
## Audio information
print $file->acodec; ## MPEG Layer 1/2
print $file->acodecraw; ## 80
print $file->achans; ## 1
print $file->arate; ## 128000 (bits/sec)
print $file->astreams ## 1
## Video information
printf "%0.2f", $file->fps ## 29.97
print $file->height ## 240
print $file->width ## 352
print $file->vstreams ## 1
print $file->vcodec ## MPEG1
print $file->vframes ## 529
print $file->vrate ## 1000000 (bits/sec)
|
|
|
|
|
|
|
|
cool4cools
