1#!/usr/bin/perl -w 2 3use SWF qw(:ALL); 4 5die "Usage: ".$0." <sourcedir>\n" unless @ARGV; 6$mediadir="$ARGV[0]/../Media"; 7 8$m = SWF::Movie::newSWFMovieWithVersion(7); 9 10$stream = new SWF::VideoStream($mediadir."/video01.flv"); 11$stream->setDimension(200, 200); 12$stream->setFrameMode(SWF::Constants::SWFVIDEOSTREAM_MODE_MANUAL); 13 14$m->add($stream); 15 16$numFrames = $stream->getNumFrames(); 17for ($i=0; $i<$numFrames; $i++) 18{ 19 if ($i % 2) { $stream->nextFrame(); } 20 $m->nextFrame(); 21} 22 23$m->save("test04.swf"); 24