mirror of
https://asciireactor.com/otho/psdlag-agn.git
synced 2024-11-24 17:25:05 +00:00
27 lines
348 B
Perl
Executable File
27 lines
348 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
use feature 'say';
|
|
#use autodie qw(:all);
|
|
|
|
|
|
=pod
|
|
|
|
open my $GP, '|-', 'gnuplot';
|
|
|
|
print {$GP} <<'__GNUPLOT__';
|
|
set terminal x11
|
|
# set output "test.png"
|
|
set xrange [-5:5];
|
|
plot sin(x);
|
|
pause -1;
|
|
__GNUPLOT__
|
|
|
|
close $GP;
|
|
|
|
=cut
|
|
|
|
say "Press any key to exit.";
|
|
my $a=<>;
|
|
system("gnuplot file");
|
|
#`gnuplot file`;
|