<?xml version="1.0" encoding="windows-1252"?>
<node id="984562" title="Re: Get size and bitrate of video with perl and ffmpeg" created="2012-07-31 00:06:48" updated="2012-07-31 00:06:48">
<type id="11">
note</type>
<author id="540414">
jwkrahn</author>
<data>
<field name="doctext">
&lt;blockquote&gt;&lt;i&gt;&lt;c&gt;
while (&lt;FILE&gt;)
{
	my $line = $_;
&lt;/c&gt;&lt;/i&gt;&lt;/blockquote&gt;
&lt;p&gt;
That is usually written as:
&lt;/p&gt;
&lt;c&gt;
while (my $line = &lt;FILE&gt;)
{
&lt;/c&gt;&lt;br /&gt;&lt;br /&gt;


&lt;blockquote&gt;&lt;i&gt;&lt;c&gt;
	my @vsize = split (' ', trim ($pieces[2]));
	my @vbits = split (' ', trim ($pieces[3]));
	my $video_size = trim (shift @vsize);
	my $video_bits = trim (shift @vbits);
&lt;/c&gt;&lt;/i&gt;&lt;/blockquote&gt;
&lt;p&gt;
&lt;c&gt;split ' '&lt;/c&gt; removes &lt;b&gt;ALL&lt;/b&gt; whitespace so the use of the trim function is superfluous.
&lt;/p&gt;
&lt;c&gt;
	my ( $video_size ) = split ' ', $pieces[ 2 ];
	my ( $video_bits ) = split ' ', $pieces[ 3 ]
&lt;/c&gt;
</field>
<field name="root_node">
984494</field>
<field name="parent_node">
984494</field>
</data>
</node>
