File: primes.pl

package info (click to toggle)
libgraphviz-perl 2.16-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 940 kB
  • ctags: 67
  • sloc: perl: 2,059; makefile: 2
file content (14 lines) | stat: -rwxr-xr-x 310 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl -w
#
# This script illustrates how Devel::GraphVizProf could be used

use strict;
use Config;
use IPC::Run qw(run);

my $perl = $Config{'perlpath'};

my($in, $out, $err);
run["$perl -I../lib -d:GraphVizProf primes_aux.pl > primes.dot; dot -Tpng primes.dot > primes.png"], \$in, \$out, \$err;