get_mov_info.pl

#!/usr/bin/env perl
use strict;
use warnings;

use Perl6::Say;
use IPC::Cmd qw/can_run run/;
use YAML;

my $file = shift || 'sample.mp4';

-e $file or die $!;
can_run('ffmpeg') or die 'FFmpeg is not installed';

run( command => [qw/ffmpeg -i/, $file], buffer  => \my $out );

print $out;

my (%video, %audio);
($audio{format}, $audio{rate}, $audio{channel})                     = $out =~ /.+Stream.+Audio: (\w+?), (\d+ Hz), (\w+?),/;
($video{format}, $video{what}, $video{x}, $video{y}, $video{frate}) = $out =~ /.+Stream.+Video: (\w+?), (\w+?), (?:(\d+)x(\d+)), (\d+(?:\.\d+))/;

print Dump \%video;
print Dump \%audio;