Как я могу выровнять поля в легенде графа RRDtool с Perl?

Question

Я строю графики с помощью Perl, используя RRDs / RRDtool. Я могу создать график с легендой, но я стараюсь выровнять поля в легенде.

Код, который я использую:

"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 пропорционален. Каждый глиф имеет разную ширину. Это хорошо выглядит в книге, но не работает для отчетов.

Вам нужно использовать моноширинный шрифт (например, Courier New), чтобы это работало вообще.

Вкладки

Ваша вторая проблема \ts.

Если материал слишком широкий, у вас может быть один \t перебор. Вот почему вы видите, что один набор из 8 пробелов находится слишком далеко слева. Чтобы это исправить, не используйте пробелы и вкладки напрямую. Основнойsprintf имеет синтаксис для создания столбцов.

Ты можешь сделать %-20s сделать выравниваемый справа столбец шириной 20 символов, который всегда будет заполнен пробелами. Вы также можете сделать % 15s сделать 15-символьный столбец, который выровнен по левому краю.

Если мы применим это на практике, мы получим:

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. Часть этого от вопроса, а другая часть от чата.

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(), Вам не нужно вводить дословно в ваш код. Вы можете создать их программно. Поэтому, если вы хотите, чтобы заголовок имел ту же ширину столбца, что и данные, вы можете просто использовать 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",

чтобы получить эточто намного лучше, чем раньше.