Bug #73803 for FFprobe: Not all stream data is covered in the ffprobe formatted output (some is in stderr)

patch to add m4b chapter support: 82c82 < my ($tree, $branch, $tag, $stream); --- Show quoted text
100c100,108 < } --- Show quoted text
(\d+\.*\d+)/i) { Show quoted text
101a110 Show quoted text
So the output would be: jason@jason-Inspiron-1545 ~/bin $ ./test_mp4_info.pl -i "/home/jason/Audiobooks/Ben Bova/Mars/Mars 1.m4b" $VAR1 = { 'format' => { 'TAG:genre' => 'Audiobook', 'format_long_name' => 'QuickTime/MPEG-4/Motion JPEG 2000 format', 'format_name' => 'mov,mp4,m4a,3gp,3g2,mj2', 'TAG:creation_time' => '2009-09-08 16:19:29', 'TAG:major_brand' => 'M4B', 'start_time' => '0.000000', 'nb_streams' => '2', 'TAG:compatible_brands' => 'M4B mp42isom', 'duration' => '13883.419864', 'TAG:album' => 'Mars', 'size' => '141602866.000000', 'bit_rate' => '81595.000000', 'filename' => '/home/jason/Audiobooks/Ben Bova/Mars/Mars 1.m4b', 'TAG:minor_version' => '0', 'TAG:artist' => 'Ben Bova' }, 'stream' => [ { 'TAG:language' => 'und', 'bits_per_sample' => '0', 'codec_tag_string' => 'mp4a', 'TAG:creation_time' => '2009-09-08 16:19:29', 'codec_tag' => '0x6134706d', 'avg_frame_rate' => '11025/256', 'nb_frames' => '597909', 'time_base' => '1/44100', 'codec_time_base' => '0/1', 'sample_rate' => '44100.000000', 'channels' => '2', 'codec_type' => 'audio', 'codec_long_name' => 'Advanced Audio Coding', 'start_time' => '0.000000', 'duration' => '13883.419864', 'index' => '0', 'codec_name' => 'aac', 'r_frame_rate' => '0/0' }, { 'TAG:language' => 'eng', 'codec_tag_string' => 'text', 'TAG:creation_time' => '2009-09-08 17:31:00', 'codec_type' => 'subtitle', 'start_time' => '0.000000', 'duration' => '13883.419864', 'codec_tag' => '0x74786574', 'index' => '1', 'avg_frame_rate' => '0/0', 'codec_name' => 'unknown', 'r_frame_rate' => '0/0', 'nb_frames' => '5', 'codec_time_base' => '1/44100', 'time_base' => '1/44100' } ], 'chapters' => { '4' => { 'title' => 'Mars - 05 of 24', 'end' => '13883.419864', 'start' => '11110.098322' }, '1' => { 'title' => 'Mars - 02 of 24', 'end' => '5555.049161', 'start' => '2779.567914' }, '3' => { 'title' => 'Mars - 04 of 24', 'end' => '11110.098322', 'start' => '8334.617075' }, '0' => { 'title' => 'Mars - 01 of 24', 'end' => '2779.567914', 'start' => '0.000000' }, '2' => { 'title' => 'Mars - 03 of 24', 'end' => '8334.617075', 'start' => '5555.049161' } } }; The start/end is in seconds :) jason

package FFprobe; use common::sense; use Carp; use Encode; use version 0.77; our $VERSION = qv("v0.0.3"); =head1 NAME FFprobe - probes information from multimedia files using C<ffprobe> =head1 PREREQUISITES This module requires that the C<ffprobe> program is present and accessible through the PATH. It is part of the ffmpeg / libav suite. =cut qx{ffprobe -version 2>&1} =~ /libavcodec/ or croak "Could not execute 'ffprobe -version', ". "check whether it is installed and accessible through PATH"; =head1 SYNOPSIS use FFprobe; # may fail if ffprobe isn't present my $probe = FFprobe->probe_file("/path/to/multimedia/file"); print $probe->{format}->{format_name}; print $probe->{stream}->[0]->{codec_name}; =head1 METHODS =head2 C<probe_file($)> use FFprobe; my $probe = FFprobe->probe_file("/path/to/file"); Runs C<ffprobe -show_format -show_streams> on the filename given as argument. Returns a hashref with a structured form parsed from ffprobe's output. Sample output: $VAR1 = { 'format' => { 'start_time' => '0.000000', 'filename' => '/path/to/input/file', }, 'stream' => [ { 'index' => '0', 'codec_tag' => '0x0000', }, { 'index' => '1', 'codec_tag' => '0x0000', } ] }; The C<index> entry may not exist if there is only one stream. =cut sub __run_ffprobe(@) { if(open my $child, "-|") { return $child; } else { close STDERR; open STDERR, ">&STDOUT"; exec('ffprobe', '-show_format', '-show_streams', @_); exit(1); } } my $utf8 = find_encoding("UTF-8"); sub probe_file($$) { my ($class, $file) = @_; my $probe = __run_ffprobe $file; my ($tree, $branch, $tag, $stream, $chapter); while(my $line = <$probe>) { $line = $utf8->decode($line); if($line =~ m!^\[(/?)(STREAM|FORMAT)\]!) { if ($1 eq "/") { $branch = undef; } else { $tag = lc($2); $branch = ($$tree{$tag} //= {}); $stream = $branch; } } elsif (defined $branch and $line =~ /^(.*?)=(.*)$/) { if ($1 eq "index") { $branch = ($$tree{$tag} = []) unless ref $branch eq 'ARRAY'; $stream = ($$branch[$2] //= {}); } $$stream{$1} = $2; $$stream{$1} =~ s/\s+$//s; } elsif ($line =~ m/Chapter \#(\d+\.*\d+): start (\d+\.*\d+)\, end (\d+\.*\d+)/i) { my ($start, $end) = ($2, $3); $chapter = $1; $chapter =~ s/\.//g; $chapter =~ s/^0+(\d)/$1/; $$tree{chapters}{$chapter} = { start => $start, end => $end }; } elsif ($line =~ /title\s+: (.+)$/) { $$tree{chapters}{$chapter}{title} = $1; } } close $probe; return $tree; } =head1 AUTHOR Diogo Franco (Kovensky) C<< <diogomfranco at gmail.com> >> =head1 LICENSE AND COPYRIGHT Copyright 2011 Diogo Franco. This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License. See http://dev.perl.org/licenses/ for more information. =cut 1;

#!/usr/bin/perl use strict; use warnings; use lib qw(/home/jason/bin); use Getopt::Std; use FFprobe; my %arg_options = (); getopts('i:', \%arg_options); if ($arg_options{i}) { my $input_file = $arg_options{i}; my $mp4 = FFprobe->probe_file($input_file); use Data::Dumper; print Dumper($mp4); }