1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/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";
|
