Calling Gnuplot from Perl

Posted by ionut

September 30, 2008

In my previous post I discussed how to call Gnuplot from C and Python language. If you are using Perl, then, here is the script:

#!/usr/bin/perl
# Generate postscript and png plot with GNUplot from Perl
# Author: Ioan Vancea
# Usage: Give "data file" as an argument for script
 
use strict;
use warnings;
 
my $file = ARGV[0];
 
# POSTSCRIPT
open (GNUPLOT, "|gnuplot");
print GNUPLOT <<EOPLOT;
set term post color "Courier" 12
set output "$file.ps"
set size 1 ,1
set nokey
set data style line
set xlabel "frequency" font "Courier,14"
set title "Fast Fourier Transform" font "Courier,14"
set grid xtics ytics
set xtics 100
plot "$file" using 1:2 w lines 1
EOPLOT
close(GNUPLOT);
 
# PNG
open (GNUPLOT, "|gnuplot");
print GNUPLOT <<EOPLOT;
set term png small xFFFFFF
set output "$file.png"
set size 1 ,1
set nokey
set data style line
set xlabel "frequency" font "VeraMono,10"
set title "Fast Fourier Transform" font "VeraMono,10"
set grid xtics ytics
set xtics 100
plot "$file" using 1:2 w lines 1
EOPLOT
close(GNUPLOT);