#!/usr/bin/perl
use warnings;
use strict;
# Usage: $0 'a_video_subdir_full_of_sequential_jpgs'
$|++;
my $videodir = shift || 'lamp_fix';
#put the video at the top of the long image list
my $video = $videodir.'/111'.$videodir.'.flv';
# recombine
recombine();
print "done\n";
exit;
###################################################
sub recombine{
opendir my $dh, $videodir or die "Error: $!\n";
my @files = grep !/^\.\.?$/, readdir $dh;
@files = grep /^(.*)\.jpg$/, @files;
closedir $dh;
#print "@files\n";
#audio options left in just incase you want to try adding audio
my @moptions =( 'mencoder',
"mf://$videodir/*.jpg",
'-mf', 'fps=29.97', #NTSC tv video rate in
# '-audiofile', "$base.wav",
'-srate', 22050,
'-o', $video,
'-ovc', 'lavc',
'-lavcopts', 'vcodec=mpeg4:vbitrate=100',
# '-oac', 'mp3lame',
# '-audio-delay', 0.2, #adjust for audio syncing problems
);
system(@moptions);
}
############3
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.