mirror of
https://asciireactor.com/otho/psdlag-agn.git
synced 2024-11-22 19:15:08 +00:00
27 lines
348 B
Perl
27 lines
348 B
Perl
|
#!/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`;
|