So rufen Sie einen Gnuplot-Einzeiler von Perl mit system() auf?

Question

Ich möchte ein Perl-Skript, um eine einfache gnuplot Grafik anzuzeigen. Ich möchte keine Daten in einer Datei speichern, ich möchte ein gnuplot verwenden Einzeiler wie:

gnuplot -p <(echo -e 'plot "-"\n1 1\n2 3\n3 1.7\n4.5 5\ne') 

, dass die Punkte zeigt (1, 1), (2, 3), (3 , 1.7) und (4.5, 5).

In einem Perl-Skript, habe ich versucht, Dinge wie

$plotString = "\"<(echo -e 'plot \\\"-\\\"\\n"; 
$plotString .= "1 1\\n2 3\\n3 1.7\\n4.5 5\\ne')\""; 
system('gnuplot -p ' . $plotString); 

aber ich bekomme die folgende Fehlermeldung:

-e plot "-" 
^ 
"<(echo -e 'plot "-"\n1 1\n2 3\n3 1.7\n4.5 5\ne')", line 1: invalid command 

Dieser Fehler mir überrascht, da die Zeichenfolge zu system() geben, wie in dem Fehler zitiert Nachricht, ist offensichtlich richtig.

Irgendeine Idee, wie man $plotString so ändert, system() würde den gnuplot Befehl richtig interpretieren?

Nebenfrage: Wie zeichnet man das Diagramm with lines? (Ich konnte den Gnuplot-Einzeiler nicht erreichen, auch außerhalb von Perl.)

Edit: Mein OS ist Ubuntu 16.04.

Answer 1

system($shell_cmd) 

ist die Abkürzung für

system('/bin/sh', '-c', $shell_cmd) 

Aber was Sie haben, gibt es keine gültige sh Befehl, sondern ein bash Befehl. Das bedeutet, dass Sie stattdessen bash aufrufen müssen.

my $cmd = q{gnuplot -p <(echo -e 'plot "-"\\n1 1\\n2 3\\n3 1.7\\n4.5 5\\ne')}; 
system('bash', '-c', $cmd) 

Es scheint, Sie auch die folgenden zu vermeiden, die Schaffung von zwei Schalen verwenden:

my $program = <<'__EOS__'; 
plot "-" 
1 1 
2 3 
3 1.7 
4.5 5 
e 
__EOS__ 

open(my $pipe, '|-', "gnuplot", "-p") 
print($pipe $program); 
close($pipe);