19 lines
354 B
Perl
Executable file
19 lines
354 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
$x = 0.6;
|
|
$y = 0.6;
|
|
$color = 1;
|
|
$gnuplot = "/usr/bin/gnuplot";
|
|
|
|
open (GNUPLOT, "|$gnuplot");
|
|
print GNUPLOT <<gnuplot_Commands_Done;
|
|
|
|
|
|
set term pbm color small
|
|
set title "Anoncon Thread Growth"
|
|
set xlabel "Time (minutes)"
|
|
set ylabel "Posts"
|
|
set output "$ARGV[1]"
|
|
plot "$ARGV[0]" title "" $color
|
|
gnuplot_Commands_Done
|