在将数据传输到 gnuplot 时在 heredoc 中使用变量扩展

Question

我通常使用如下代码将数据从文件传输到 gnuplot 并在 Perl 脚本期间创建图片：

#!/usr/bin/perl
use warnings;
use strict;

my $in="file.dat";

open(GP, "| gnuplot") or die "$!\n";
print GP << "GNU_EOF";

set terminal png size 1920,1080 font 'Verdana,15' dashed
set output 'out.png'
plot "$in"

GNU_EOF

close(GP);

我必须定义"GNU_EOF" 而不是'GNU_EOF'，这样我才能使用像$in 这样的变量。

现在我想使用不是直接从文件中读取的数据。我的代码如下：

#!/usr/bin/perl
use warnings;
use strict;

open(GP, "| gnuplot") or die "$!\n";
print GP << 'GNU_EOF';

set terminal png size 1920,1080 font 'Verdana,15' dashed
set output 'out.png'
plot '-'

GNU_EOF

open(INFILE,"< stuff.dat") or die "$!\n";
while (my $line = <INFILE>) {

for my $i (1..10){
    # do some stuff to calculate my data points stored in $x and $y
    print GP "$x $y\n";
}
print GP "EOF\n";
}

close(INFILE);
close(GP);

如果我尝试使用 "GNU_EOF" 来在 heredoc 中定义变量，则会收到如下错误：

gnuplot> 187 0.05
         ^
         line 1: invalid command

我不知道

• 为什么我必须为 heredoc 使用 "" 以获得所需的变量扩展和

• 为什么我在第二个示例中出现错误。

非常感谢您的帮助。

Answer 1

我解决了。抱歉问题不完整，我想举一个最小的例子以避免混淆。不幸的是，我的问题错过了重要的部分。就像在 cmets 中所说的那样，我使用几个循环来生成数据并将其通过管道传输到 gnuplot：

#!/usr/bin/perl
use warnings;
use strict;

open(GP, "| gnuplot") or die "$!\n";
print GP << 'GNU_EOF';

set terminal png size 1920,1080 font 'Verdana,15' dashed
set output 'out.png'
plot    '-' t "one", \
        '-' t "two"

GNU_EOF

open(INFILE,"< stuff.dat") or die "$!\n";
while (my $line = <INFILE>) {

for my $i (1..10){
    # do some stuff to calculate data points stored in $x and $y
    print GP "$x $y\n";
}
print GP "EOF\n";
}

for my $i (1..50){
    # do some other stuff to calculate data points stored in $x and $y
    print GP "$x $y\n";
}
print GP "EOF\n";
}

close(INFILE);
close(GP);

我不知道为什么，但是使用'GNU_EOF'（没有变量扩展）我可以用线刹车命令\定义几个plot。

使用"GNU_EOF"我必须在一行中定义它：

plot '-' t "one", '-' t "two"

很抱歉，但也许这对其他人也有帮助（也许你可以向我解释这种行为）。