#!/usr/bin/perl -w
use strict;
use Config;
use IPC::Run qw(run);
$| = 1;
my $perl = $Config{'perlpath'};
print "Attempting to make all images...\n";
my($in, $out, $err);
foreach my $file (sort <*.pl>) {
next if $file =~ /make_all\.pl/;
next if $file =~ /primes_aux\.pl/;
next if $file =~ /redcarpet\.pl/;
next if $file =~ /ppmgraph\.pl/;
print " Running $file...";
run [$perl, "./$file"], \$in, \$out, \$err; # throw the output away
print "done\n";
}
print "All images made.\n";