1

我想创建一个 Perl（或 Bash）脚本来即时创建和绘制数据。这意味着我想从日志文件file.log中提取数据，理想情况下不要编写 tmp 文件（如果只能使用 tmp 文件，这也可以）并使用 Gnuplot 绘图。随着日志文件的增长，我想在图中看到更多信息。

有关类似主题，请参阅此问题。

对于 Perl，我目前拥有的是这个脚本：

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

my $path = "file.log";   
my @grepped;
my $switch = "off";

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

       if ($line =~ m{^Time = (\d+)}){
               push(@grepped,"$1\t");
       };

       if ($line =~ m{^Errors: local = (\d+), global = (\d+)}){
               push(@grepped,"$1\t");
               push(@grepped,"$2\n");
               $switch = "refresh";
       };


if ($switch eq "refresh"){

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

plot "@grepped" u 2:1
pause 1; refresh; reread;

GNU_EOF

close(GP);
}


}
close(INFILE)};

我的第一个问题是 Gnuplot 的即时功能不起作用。当file.log更改时，Gnuplot-graph 的刷新不起作用。我不知道-persist这里是否正确，或者我是否必须使用replotoption 而不是refresh. 我试过了，但它不适合我。

第二个问题是将数据读入数组@grepped并在一个脚本中的 Gnuplot 中使用它来更改输入文件。另一个限制是（从代码中可以看出）gnuplot 仅应在@grepped中写入完整的新行时刷新绘图。否则，由于数据分配错误，肯定会发生错误。

当我尝试一个简单的脚本时：

#!/usr/bin/gnuplot -persist
plot "data.dat" u 2:1
pause 1; replot; reread;

或者

#!/usr/bin/gnuplot
plot "data.dat" u 2:1
pause 1; refresh; reread;

data.dat如果我手动更改并保存它，即时部分就可以工作。

4

1 回答 1

3

这是动态绘制数据的两种方法。

使用 gnuplot 循环

您必须plot一遍又一遍地调用，数据由外部脚本预处理。最小的 gnuplot 脚本filter.gp是：

while (1) {
    plot '< ./myscript.pl' using 2:1
    pause 1
}

要停止这种情况，请点击Ctrl+C。

用于预处理的 Perl 脚本可能如下所示myscript.pl：

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

my $path = "file.log";   
my @grepped;
my $t = 0;
open(INFILE,"< $path") or die "$! \n";

while (my $line = <INFILE>) {
    if ($line =~ m{^Time = (\d+)}){
        $t = $1;
    };

    if ($line =~ m{^Errors: local = (\d+), global = (\d+)}){
        print "$t\t$1\t$2\n";
    };
};
close(INFILE);

只需运行它gnuplot filter.gp。

为了使其更具可配置性，可以更改脚本以使用通过命令行传递给 gnuplot 的变量：

while (1) {
    plot '< ./myscript.pl -f '.path using 2:1
    pause 1
}

或reread用于此：

plot '< ./myscript.pl -f '.path using 2:1
pause 1
reread

用 调用这个脚本gnuplot -e "path='file.log';" filtermod.gp。

这行得通，但会一遍又一遍地过滤整个文件。

从 Perl 到 gnuplot 的管道

这是一个 Perl 脚本，它基本上对我有用，但它是我的第一个真正的 Perl 脚本，所以可能有一些不理想的部分。随时对此发表评论。

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

my $path = "file.log";   
my @grepped;
my $switch = "off";

open(my $gp, "| gnuplot -persist") or die "$! \n";
$gp->autoflush(0);

use File::Tail;
my $file = File::Tail->new(name=>$path, maxinterval=>1, tail=>-1);

while (defined(my $line= $file->read)) {
    if ($line =~ m{^Time = (\d+)}){
        push(@grepped,"$1\t");
    };

    if ($line =~ m{^Errors: local = (\d+), global = (\d+)}){
        push(@grepped,"$1\t");
        push(@grepped,"$2\n");
        $switch = "refresh";
    };

    if ($switch eq "refresh") {
        print $gp <<"GNU_EOF";
plot '-' using 2:1
@grepped
e
GNU_EOF
        $gp->flush;
        $switch = "off"; 
    };
    Time::HiRes::sleep(0.1);
};

我发现这里很重要的是

  1. 循环更改文件。
  2. autoflush和的排列flush。
  3. sleep允许 gnuplot 正确处理数据。

这适用于非常小的测试数据文件。不知道它是否也适用于更大的，但应该可以帮助您进一步。

于 2013-10-14T12:04:24.970 回答