我对 Perl 有点陌生,对 RRD 来说绝对是新手,而且我有一个 Perl 脚本,它运行一些 Web 服务测试并从垃圾收集日志中检索行。该脚本还执行其他任务,但我只需要与这两个相关的图表。
这段脚本读取结果报告 .html,从表中提取一些时间值并将它们存储在变量中。
my $html = "./report/archive/results-$now/web_results.html";
my @headers = qw( Page Initial Resource STB UI );
my $te = HTML::TableExtract->new(headers => \@headers);
$te->parse_file($html);
my ($table) = $te->tables;
for my $row ($te->rows) {
my $pageDisplay = "@$row[0]";
$pageDisplay =~ s/\D//g;
my $initialLoad = "@$row[1]";
$initialLoad =~ s/\D//g;
my $resourceAudit = "@$row[2]";
$resourceAudit =~ s/\D//g;
my $uiRefresh = "@$row[3]";
$uiRefresh =~ s/\D//g;
my $stbRefresh = "@$row[4]";
$stbRefresh =~ s/\D//g;
}
我想使用RRDTool::OO或RRD::Simple将这些变量存储在 RRD 中,并在脚本的每个循环之后更新它们。
我还想对另一段循环执行一些垃圾收集日志行并为每行返回一个运行时的脚本执行相同的操作。
open LOG,"<","./report/archive/logs-$now/garbage.collection.txt" or die "Unable to read file: $!";
while (my $line = <LOG>) {
my ($time) = $line =~ m/\breal=([0-9.]+)/;
}
close LOG;
我相信RRDTool::OO有一个可以用我的变量调用的更新函数,但我的主要问题是创建 RRD(s) 开始以便它们可以用它们更新。我不确定我是否需要多个 RRD、最好的步长值、数据源等。
如果我可以成功创建/更新 RRD 或 RRD,我很确定我可以按照Cacti 的 Externally Updated RRDs doc将它们加载到 cacti 上进行绘制。尽管有人可能有更好的方法。任何帮助表示赞赏!
编辑
我在脚本的第二部分尝试了以下内容......
#RRDTool::OO
my $rrd = RRDTool::OO->new(
file => "gcRuntimes.rrd" );
$rrd->create(
step => 1,
data_source => { name => "GC",
type => "GAUGE" },
archive => { rows => 50 });
...
open LOG,"<","./report/archive/logs-$now/garbage.collection.txt" or die "Unable to read file: $!";
while (my $line = <LOG>) {
my ($time) = $line =~ m/\breal=([0-9.]+)/;
$rrd->update($time);
}
close LOG;
..但这失败并出现错误:
rrdtool create gcRuntimes.rrd --step 1 DS:GC:GAUGE:2:U:U RRA:MAX:0.5:1:5 failed: creating 'gcRuntimes.rrd': Invalid argument at /home/foo/perl5/lib/perl5/RRDTool/OO.pm line 438
strace
使用我的脚本运行将(invalid argument)
在mmap2
系统调用中显示这一点。
mmap2(NULL, 1344, PROT_READ|PROT_WRITE, MAP_SHARED, 3, 0) = -1 EINVAL (Invalid argument)
close(3)
如果我使用 RRD::Simple 或 RRDTool::OO 对我来说并不重要,但目前它们都返回相同的错误。