#!/usr/bin/perl #1/4 print "gifsicle ppm/*.gif>ppm/one4.gif"; #1/8 my $cmdString = "gifsicle"; my @gifs = ; my $i=0; while ($i < $#gifs) { print "$gifs[i]\n"; $i+=2; } $cmdString+=" >ppm/one8.gif"; print ""+$cmdString; #1/16 my $cmdString = "gifsicle"; my @gifs = ; for ($i = 0; i<$gifs; $i=$i+4) { $cmdString+=" ppm/".$gifs[i]; } $cmdString+=" >ppm/one16.gif"; print "$cmdString"; #1/32 my $cmdString = "gifsicle"; my @gifs = ; for ($i = 0; i<$gifs; $i=$i+8) { $cmdString+=" ppm/".$gifs[i]; } $cmdString+=" >ppm/one32.gif"; print "$cmdString"; #1/64 my $cmdString = "gifsicle"; my @gifs = ; for ($i = 0; i<$gifs; $i=$i+16) { $cmdString+=" ppm/".$gifs[i]; } $cmdString+=" >ppm/one64.gif"; print "$cmdString";