Your IP : 216.73.216.74

Current Path : /proc/thread-self/root/usr/share/doc/perl-GraphViz/examples/
Upload File :
Current File : //proc/thread-self/root/usr/share/doc/perl-GraphViz/examples/make_all.pl

#!/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";