Get size and bitrate of video with perl and ffmpeg

[lancer]

Here is one way to get the size and bitrate of a video using ffmpeg:

getvideosize.pl

#!/usr/bin/perl -w

use strict;
use warnings;

my $file = $ARGV[0];
die "usage: arg1 must be a video file\n" unless $file;

sub trim 
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

open (FILE, "ffmpeg -i \"$file\" 2>&1 |");
while (<FILE>)
{
    my $line = $_;
    next unless ($line =~ m/^\s+Stream #.+?: Video/);
    my @pieces = split (',', $line);
    my @vsize = split (' ', trim ($pieces[2]));
    my @vbits = split (' ', trim ($pieces[3]));
    my $video_size = trim (shift @vsize);
    my $video_bits = trim (shift @vbits);
    print "$video_size $video_bits\n";
    last;
}

Example usage:

./getvideosize.pl http://bennugd-vlc.googlecode.com/files/sintel_trail
+er-480p.mp4

Output: 854x480 537

[zengargoyle]

Check out using ffprobe instead of ffmpeg. It doesn't try to play the video and you can pick an output format that suits you.

$ ffprobe -i http://bennugd-vlc.googlecode.com/files/sintel_trailer-48
+0p.mp4 -show_streams -print_format csv 2>/dev/null
stream,0,h264,H.264 / AVC / MPEG-4 AVC / MPEG-4 part 10,video,1/48,avc
+1,0x31637661,854,480,2,N/A,N/A,yuv420p,30,N/A,1,4,N/A,24/1,24/1,1/24,
+0.000000,52.208333,537875,1253,N/A,N/A,1970-01-01 00:00:00,und,VideoH
+andler
stream,1,aac,Advanced Audio Coding,audio,1/48000,mp4a,0x6134706d,s16,4
+8000,2,0,N/A,0/0,0/0,1/48000,0.000000,51.946667,126694,2435,N/A,N/A,1
[phone]:00:00,und,SoundHandler

[jwkrahn]

while (<FILE>)
{
    my $line = $_;

That is usually written as:

while (my $line = <FILE>)
{





    my @vsize = split (' ', trim ($pieces[2]));
    my @vbits = split (' ', trim ($pieces[3]));
    my $video_size = trim (shift @vsize);
    my $video_bits = trim (shift @vbits);

split ' ' removes ALL whitespace so the use of the trim function is superfluous.

    my ( $video_size ) = split ' ', $pieces[ 2 ];
    my ( $video_bits ) = split ' ', $pieces[ 3 ]

[aitap]

Also, running subprocesseses using list context is safer in case of some special characters in the file name: open(FILE,"-|",qw(ffprobe -i),$file).
Unfortunately, it will be necessary to use some special tricks to hide the STDERR, for example, (untested; written for ugly avconv output)

use IPC::Run 'run';
my $file = $ARGV[0] || die;
my $line;
run [ qw(ffprobe -show_streams),$file ], '&>', \$line || die "$!\n"; 

my ($width,$height);
for (split /\n/,$line) {
    $width = $1 if /width=(\d+)/;
    $height = $1 if /height=(\d+)/;
#    ...
    $_ eq '[/STREAM]' && defined $width && defined $height && print "$
+{width}x${height}\n" && last
}