Legacy ImageMagick Discussions Archive

Code: Select all

#!/usr/bin/perl
use Time::HiRes qw( usleep );
use POSIX;
$file = "file.jpg";
$size=(stat($file))[7];
$i=0;
while( $size > 0 && $i < 100000 ){
        if($p=fork) {
                usleep(rand(10000));
                for($i=0;$i<10000;$i++) {
                        kill(15,$p);
                }
        } else {
                usleep(rand(10000));
                system("mogrify -scale 1024 $file") or die "mog";
                exit;
        }
        $i++;
}
print "Done $i $size.\n";