blob: f379723a9b89a13294bf1a77b418ded0fd514d99
1 | #!/usr/bin/env perl |
2 | |
3 | # Copyright (c) 2007-2013 Stefano Sabatini |
4 | # |
5 | # This file is part of FFmpeg. |
6 | # |
7 | # FFmpeg is free software; you can redistribute it and/or |
8 | # modify it under the terms of the GNU Lesser General Public |
9 | # License as published by the Free Software Foundation; either |
10 | # version 2.1 of the License, or (at your option) any later version. |
11 | # |
12 | # FFmpeg is distributed in the hope that it will be useful, |
13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
15 | # See the GNU Lesser General Public License for more details. |
16 | # |
17 | # You should have received a copy of the GNU Lesser General Public License |
18 | # along with FFmpeg; if not, write to the Free Software Foundation, Inc., |
19 | # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
20 | |
21 | =head1 NAME |
22 | |
23 | plotframes - Plot video frame sizes using ffprobe and gnuplot |
24 | |
25 | =head1 SYNOPSIS |
26 | |
27 | plotframes [I<options>] [I<input>] |
28 | |
29 | =head1 DESCRIPTION |
30 | |
31 | plotframes reads a multimedia files with ffprobe, and plots the |
32 | collected video sizes with gnuplot. |
33 | |
34 | =head1 OPTIONS |
35 | |
36 | =over 4 |
37 | |
38 | =item B<--input|-i> I<infile> |
39 | |
40 | Specify multimedia file to read. This is the file passed to the |
41 | ffprobe command. If not specified it is the first argument passed to |
42 | the script. |
43 | |
44 | =item B<--help|--usage|-h|-?> |
45 | |
46 | Print a brief help message and exit. |
47 | |
48 | =item B<--manpage|-m> |
49 | |
50 | Print the man page. |
51 | |
52 | =item B<--output|-o> I<outfile> |
53 | |
54 | Set the name of the output used by gnuplot. If not specified no output |
55 | is created. Must be used in conjunction with the B<terminal> option. |
56 | |
57 | =item B<--stream|--s> I<stream_specifier> |
58 | |
59 | Specify stream. The value must be a string containing a stream |
60 | specifier. Default value is "v". |
61 | |
62 | =item B<--terminal|-t> I<terminal> |
63 | |
64 | Set the name of the terminal used by gnuplot. By default it is |
65 | "x11". Must be used in conjunction with the B<output> option. Check |
66 | the gnuplot manual for the valid values. |
67 | |
68 | =back |
69 | |
70 | =cut |
71 | |
72 | =head1 SEE ALSO |
73 | |
74 | ffprobe(1), gnuplot(1) |
75 | |
76 | =cut |
77 | |
78 | use warnings; |
79 | use strict; |
80 | |
81 | use File::Temp; |
82 | use JSON -support_by_pp; |
83 | use Getopt::Long; |
84 | use Pod::Usage; |
85 | |
86 | my $input = $ARGV[0]; |
87 | my $stream_specifier = "v"; |
88 | my $gnuplot_terminal = "x11"; |
89 | my $gnuplot_output; |
90 | |
91 | GetOptions ( |
92 | 'input|i=s' => \$input, |
93 | 'help|usage|?|h' => sub { pod2usage ( { -verbose => 1, -exitval => 0 }) }, |
94 | 'manpage|m' => sub { pod2usage ( { -verbose => 2, -exitval => 0 }) }, |
95 | 'stream|s=s' => \$stream_specifier, |
96 | 'terminal|t=s' => \$gnuplot_terminal, |
97 | 'output|o=s' => \$gnuplot_output, |
98 | ) or pod2usage( { -message=> "Parsing error", -verbose => 1, -exitval => 1 }); |
99 | |
100 | die "You must specify an input file\n" unless $input; |
101 | |
102 | # fetch data |
103 | my @cmd = (qw{ffprobe -show_entries frame -select_streams}, $stream_specifier, "-of", "json", $input); |
104 | print STDERR "Executing command: @cmd\n"; |
105 | my $json_struct; |
106 | { |
107 | open(FH, "-|", @cmd) or die "ffprobe command failed: $!\n"; |
108 | local $/; |
109 | my $json_text = <FH>; |
110 | close FH; |
111 | die "ffprobe command failed" if $?; |
112 | eval { $json_struct = decode_json($json_text); }; |
113 | die "JSON parsing error: $@\n" if $@; |
114 | } |
115 | |
116 | # collect and print frame statistics per pict_type |
117 | my %stats; |
118 | my $frames = $json_struct->{frames}; |
119 | my $frame_count = 0; |
120 | foreach my $frame (@{$frames}) { |
121 | my $type = $frame->{pict_type}; |
122 | $frame->{count} = $frame_count++; |
123 | if (not $stats{$type}) { |
124 | $stats{$type}->{tmpfile} = File::Temp->new(SUFFIX => '.dat'); |
125 | my $fn = $stats{$type}->{tmpfile}->filename; |
126 | open($stats{$type}->{fh}, ">", $fn) or die "Can't open $fn"; |
127 | } |
128 | |
129 | print { $stats{$type}->{fh} } |
130 | "$frame->{count} ", $frame->{pkt_size} * 8 / 1000, "\n"; |
131 | } |
132 | foreach (keys %stats) { close $stats{$_}->{fh}; } |
133 | |
134 | # write gnuplot script |
135 | my %type_color_map = ( |
136 | "I" => "red", |
137 | "P" => "green", |
138 | "B" => "blue" |
139 | ); |
140 | |
141 | my $gnuplot_script_tmpfile = File::Temp->new(SUFFIX => '.gnuplot'); |
142 | my $fn = $gnuplot_script_tmpfile->filename; |
143 | open(FH, ">", $fn) or die "Couldn't open $fn: $!"; |
144 | print FH << "EOF"; |
145 | set title "video frame sizes" |
146 | set xlabel "frame time" |
147 | set ylabel "frame size (Kbits)" |
148 | set grid |
149 | set terminal "$gnuplot_terminal" |
150 | EOF |
151 | |
152 | print FH "set output \"$gnuplot_output\"\n" if $gnuplot_output; |
153 | print FH "plot"; |
154 | my $sep = ""; |
155 | foreach my $type (keys %stats) { |
156 | my $fn = $stats{$type}->{tmpfile}->filename; |
157 | print FH "$sep\"$fn\" title \"$type frames\" with impulses"; |
158 | print FH " linecolor rgb \"$type_color_map{$type}\"" if $type_color_map{$type}; |
159 | $sep = ", "; |
160 | } |
161 | close FH; |
162 | |
163 | # launch gnuplot with the generated script |
164 | system ("gnuplot", "--persist", $gnuplot_script_tmpfile->filename); |
165 |