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