如何将 RRDtool 图的图例中的字段与 Perl 对齐？

Question

我正在使用 RRDs/RRDtool 使用 Perl 绘制图表。我能够生成带有图例的图表，但我很难对齐图例中的字段。

我使用的代码是：

"COMMENT:---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\n",
"COMMENT:\t\t\t\t\t\t\tMinimum\t\t\tMaximum\t\t\tAverage\t\t\t\tCurrent\n",
"COMMENT:---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\n",

"LINE2:e2gran#DF01D7:\t2GRAN\t\t\t\t",
"GPRINT:e2gmin:\t%6.3lf %s\t\t",
"GPRINT:e2gmax:\t%6.3lf %s\t\t",
"GPRINT:e2gaver:\t%6.3lf %s\t\t",
"GPRINT:e2glast:\t%6.3lf %s\n",

"LINE2:e3gran#0000FF:\t3GRAN\t\t\t\t",
"GPRINT:e3gmin:\t%6.3lf %s\t\t",
"GPRINT:e3gmax:\t%6.3lf %s\t\t",
"GPRINT:e3gaver:\t%6.3lf %s\t\t",
"GPRINT:e3glast:\t%6.3lf %s\n",

"LINE2:e4gran#FF8000:\t4GRAN\t\t\t\t",
"GPRINT:e4gmin:\t%6.3lf %s\t\t",
"GPRINT:e4gmax:\t%6.3lf %s\t\t",
"GPRINT:e4gaver:\t%6.3lf %s\t\t",
"GPRINT:e4glast:\t%6.3lf %s\n",

"LINE2:e2gtran#FFFF00:\t2GTRAN\t\t\t",
"GPRINT:e2gtmin:\t%6.3lf %s\t\t",
"GPRINT:e2gtmax:\t%6.3lf %s\t\t",
"GPRINT:e2gtaver:\t%6.3lf %s\t\t",
"GPRINT:e2gtlast:\t%6.3lf %s\n",

"LINE2:allregmax#FF0000:\tALL_REGIONS\t\t",
"GPRINT:allmin:%6.3lf%s\t\t",
"GPRINT:allmax:%6.3lf%s\t\t",
"GPRINT:allaver:%6.3lf%s\t\t",
"GPRINT:alllast:%6.3lf%s\n",

"LINE3:wrongdata#000000:\tINCOMPLETE DATA\n",

图例使用的字体是 Arial。输出如下所示：

虽然我的目标是这样的：

我已经尝试 TEXTALIGN，摆弄空格和制表符，并检查了 RRDtool 文档和不同的教程，但我就是想不通。

Answer 1

你有两个问题。

字体

第一个问题是Arial字体是proportional。每个字形都有不同的宽度。这在书中看起来不错，但不适用于报告。

您需要使用 monospaced 字体（如 Courier New）才能正常工作。

选项卡

你的第二个问题是 \ts.

如果东西太宽，你可能 \t 太多了。这就是为什么您看到的东西是一组 8 个空格太靠左了。要解决此问题，请不要直接使用空格和制表符。 underlying sprintf 具有创建列的语法。

您可以%-20s创建一个宽度为 20 个字符的 right-aligned 列，该列将始终用空格填充。你也可以做 % 15s 来制作一个 15 个字符的列，即 left-aligned.

如果我们将其付诸实践，我们将得到：

my @cols = (
    sprintf( '%-20s',     '2GRAN' ),
    sprintf( '% 15.3lf', 10_754 ),
    sprintf( '% 15.3lf', 48_964 ),
    sprintf( '% 15.3lf', 12_812 ),
);

print join '', @cols;

这将创建：

2GRAN                     10754.000      48964.000      12812.000

现在如果我们做多行，它看起来还是不错的。

foreach my $row (
    [qw/ 2GRAN  10754 48964 12812 /],
    [qw/ ASDFLONGERSTUFF  123 4444444 12312313 /],
)
{
    CORE::say join '',
        sprintf( '%-20s',    $row->[0] ),
        sprintf( '% 15.3lf', $row->[1] ),
        sprintf( '% 15.3lf', $row->[2] ),
        sprintf( '% 15.3lf', $row->[3] );
}

__END__
2GRAN                     10754.000      48964.000      12812.000
ASDFLONGERSTUFF             123.000    4444444.000   12312313.000

请记住，您在问题中展示的所有这些内容也只是 Perl 代码。这部分来自问题，另一部分来自 from chat.

sub process_all_regions { 
my ($region, $start,$end,$description) = @_; 
RRDs::graph "$img/$region-$description-$start-days.png", 
"-s -$start d", 
"-e -$end d", 
#"-s -1$duration*86400", 
"--font","TITLE:18:Arial", 
"--font","AXIS:11:Arial", 
"--font","LEGEND:14:Courier New",
 "COMMENT:---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\n",
 "COMMENT:\t\t\t\t\t\t\tMinimum\t\t\tMaximum\t\t\tAverage\t\t\t\tCurrent\n",
 "COMMENT:---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\n",
 "LINE2:e2gran#DF01D7:\t2GRAN\t\t\t\t",
 "GPRINT:e2gmin:\t%6.3lf %s\t\t",
 "GPRINT:e2gmax:\t%6.3lf %s\t\t",
 "GPRINT:e2gaver:\t%6.3lf %s\t\t",
 "GPRINT:e2glast:\t%6.3lf %s\n",

所有带有 sprintf 模式的行都只是 graph() 的参数。您不必逐字逐句地放入您的代码中。您可以以编程方式创建它们。因此，如果您想让 header 具有与数据相同的列宽，您可以自己使用 sprintf 来构造它。

sprintf('COMMENT:%s\n', '-' x 80),
sprintf('COMMENT:% 35s%15s%15s%15s\n', qw/Minimum Maximum Average Current/),
sprintf('COMMENT:%s\n', '-' x 80),

Answer 2

感谢 simbabque 的大力帮助和提示，我设法使用了这个（在 RRD:graph 声明中）：

"--font","LEGEND:14:Courier New",
sprintf('COMMENT:%s\n', '-' x 110),
sprintf('COMMENT:% 35s%18s%19s%19s\n', qw/Minimum Maximum Average Current/),
sprintf('COMMENT:%s\n', '-' x 110),
sprintf('LINE2:e2gran#DF01D7:%-11s','2GRAN'),
"GPRINT:e2gmin:% 19.0lf",
"GPRINT:e2gmax:% 16.0lf",
"GPRINT:e2gaver:% 16.0lf",
"GPRINT:e2glast:% 16.0lf\n",

得到这个比以前好多了。

如何将 RRDtool 图的图例中的字段与 Perl 对齐？

How can I align the fields in the legend of an RRDtool graph with Perl?

perl

rrdtool

legend

rrd

字体

选项卡