Video aus Bildern erstellen - #179211 (Allgemeines zu Perl)

Gast wer

2015-01-13 15:39

Mit ImageMagic-Tools in der Shell: convert -delay 10 -quality 95 dir/*.jpeg movie.mpg
Perl:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Image::Magick;

my $img = Image::Magick->new();
$img->Read($_) for (glob('dir/*.jpeg'));
$img->Set(delay => 10);
$img->Set(quality => 95);
$img->Write('movie.mpeg');

Last edited: 2015-01-13 16:45:54 +0100 (CET)