Как отформатировать вывод второго столбца

@Aleksey_Sokol · Регистрация: 09.01.2014

Студворк — интернет-сервис помощи студентам

При написании простой программы, столкнулся с проблемой, а именно, при выводе длинной строки, не могу понять как отформатировать вывод второго столбца.

Текст программы

Perl
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
foreach $key (keys %ENV){
if (length($key)>$max_length){
$max_length=length($key);
}
}
print "max length - $max_length\n";
while(($key,$value) = each %ENV){
printf "%18.${max_length}s %18s\n" , "$key", "$value";

Скриншот вывода

volodin661 · 10.01.2014, 07:28

http://perldoc.perl.org/perlform.html

Добавлено через 14 часов 46 минут
Итак, Perl has a mechanism to help you generate simple reports and charts.

Aleksey_Sokol молчит,
пришлось разбираться в этом кошмаре самому

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl -w
use strict;
 
for( sort keys %ENV ) {
    $ENV{$_} =~ s/(.{80})/$1\n/g;
    write;
}
 
format STDOUT_TOP =
KEY                            VALUE
-------------------------------------------------------------------------------
.                     
 
format STDOUT =       
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<^*
$_,                            $ENV{$_}
~~                             ^*
                               $ENV{$_}
.

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
строка 14: определение формата вывода для файл-хэндла STDOUT
строка 15: служебный символ @  и серия из <<<<<<<, которая определяет, 
                   что выравнивание 1-го поля будет по левой границе, а ширина поля равно количеству <,
                   затем идёт значок ^*, который определяет, что 2-е поле будет переменной длины 
                   и может включать в себя символы перевода строки, по которым будет произведена обрезка,
                   а остаток строки будет в таком случае  подчиняться форматированию описанному в строке 17
строка 16: аргументы ( имена переменных), соответствующие символам форматирования в строке 15
строка 17: две ~~ определяют форматирование для строк с символом перевода строки внутри  
строка 18: аргументы ( имена переменных), соответствующие символам форматирования в строке 17
строка 19:  конец определения формата для хэндла STDOUT
 
строка 9:   определение шапки для файл-хэндла STDOUT
строка 12: конец определения формата шапки STDOUT_TOP
 
строка 5:  пришлось насильственно засунуть символ перевода строки после каждого 48-го символа 
                  [ первое поле =32, второе =48, всего ширина =80 ]
                 в переменную $_ для того, чтобы сработала стратегия форматирования ( строки 15 и 17 )
строка 6:  вывод в хэндл STDOUT( по умолчанию вывод именно в него ) с применением форматов

Что получилось на выходе:

Кликните здесь для просмотра всего текста

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
KEY                            VALUE
-------------------------------------------------------------------------------
COLORTERM                      gnome-terminal
DBUS_SESSION_BUS_ADDRESS       unix:abstract=/tmp/dbus-66bPlkYmvu,guid=fa0b4d4d
                               1b08945912f0cd7252ce7fea
DESKTOP_SESSION                gnome
DISPLAY                        :0.0
GDMSESSION                     gnome
GDM_LANG                       ru_RU.utf8
GNOME_DESKTOP_SESSION_ID       this-is-deprecated
GNOME_KEYRING_CONTROL          /home/sten/.cache/keyring-AC0z38
GNOME_KEYRING_PID              3637
GPG_AGENT_INFO                 /home/sten/.cache/keyring-AC0z38/gpg:0:1
HOME                           /home/sten
LANG                           ru_RU.utf8
LOGNAME                        sten
LS_COLORS                      rs=0:di=01;34:ln=01;36:mh=00:pi=40;33:so=01;35:d
                               o=01;35:bd=40;33;01:cd=40;33;01:or=40;31;01:su=3
                               7;41:sg=30;43:ca=30;41:tw=30;42:ow=34;42:st=37;4
                               4:ex=01;32:*.tar=01;31:*.tgz=01;31:*.arj=01;31:*
                               .taz=01;31:*.lzh=01;31:*.lzma=01;31:*.tlz=01;31:
                               *.txz=01;31:*.zip=01;31:*.z=01;31:*.Z=01;31:*.dz
                               =01;31:*.gz=01;31:*.lz=01;31:*.xz=01;31:*.bz2=01
                               ;31:*.bz=01;31:*.tbz=01;31:*.tbz2=01;31:*.tz=01;
                               31:*.deb=01;31:*.rpm=01;31:*.jar=01;31:*.war=01;
                               31:*.ear=01;31:*.sar=01;31:*.rar=01;31:*.ace=01;
                               31:*.zoo=01;31:*.cpio=01;31:*.7z=01;31:*.rz=01;3
                               1:*.jpg=01;35:*.jpeg=01;35:*.gif=01;35:*.bmp=01;
                               35:*.pbm=01;35:*.pgm=01;35:*.ppm=01;35:*.tga=01;
                               35:*.xbm=01;35:*.xpm=01;35:*.tif=01;35:*.tiff=01
                               ;35:*.png=01;35:*.svg=01;35:*.svgz=01;35:*.mng=0
                               1;35:*.pcx=01;35:*.mov=01;35:*.mpg=01;35:*.mpeg=
                               01;35:*.m2v=01;35:*.mkv=01;35:*.webm=01;35:*.ogm
                               =01;35:*.mp4=01;35:*.m4v=01;35:*.mp4v=01;35:*.vo
                               b=01;35:*.qt=01;35:*.nuv=01;35:*.wmv=01;35:*.asf
                               =01;35:*.rm=01;35:*.rmvb=01;35:*.flc=01;35:*.avi
                               =01;35:*.fli=01;35:*.flv=01;35:*.gl=01;35:*.dl=0
                               1;35:*.xcf=01;35:*.xwd=01;35:*.yuv=01;35:*.cgm=0
                               1;35:*.emf=01;35:*.axv=01;35:*.anx=01;35:*.ogv=0
                               1;35:*.ogx=01;35:*.aac=00;36:*.au=00;36:*.flac=0
                               0;36:*.mid=00;36:*.midi=00;36:*.mka=00;36:*.mp3=
                               00;36:*.mpc=00;36:*.ogg=00;36:*.ra=00;36:*.wav=0
                               0;36:*.axa=00;36:*.oga=00;36:*.spx=00;36:*.xspf=
                               00;36:
MANPATH                        /usr/local/man:/usr/local/share/man:/usr/share/m
                               an
PATH                           /home/sten/perl5/perlbrew/bin:/usr/local/bin:/us
                               r/bin:/bin:/usr/local/games:/usr/games
PERLBREW_BASHRC_VERSION        0.67
PERLBREW_HOME                  /home/sten/.perlbrew
PERLBREW_ROOT                  /home/sten/perl5/perlbrew
PWD                            /home/sten
SESSION_MANAGER                local/deb7.home.net:@/tmp/.ICE-unix/3655,unix/de
                               b7.home.net:/tmp/.ICE-unix/3655
SHELL                          /bin/bash
SHLVL                          1
SSH_AGENT_PID                  3696
SSH_AUTH_SOCK                  /home/sten/.cache/keyring-AC0z38/ssh
TERM                           xterm
USER                           sten
 
KEY                            VALUE
-------------------------------------------------------------------------------
USERNAME                       sten
WINDOWID                       41947991
WINDOWPATH                     7
XAUTHORITY                     /var/run/gdm3/auth-for-sten-AuUR7D/database
XDG_DATA_DIRS                  /usr/share/gnome:/usr/local/share/:/usr/share/
XDG_SESSION_COOKIE             f83a6f7ea64ed3059aa2adb152631f69-1389264873.9437
                               96-57982861
_                              /usr/bin/perl

@Aleksey_Sokol · 10.01.2014, 11:08 **[ТС]**

Сообщение от volodin661

Aleksey_Sokol молчит,
пришлось разбираться в этом кошмаре самому

Да не молчу, сам пытаюсь разобраться.
У меня ваш код пока не получилось запустить.
Но всё равно, огромное спасибо за отклик и отличную статью.

Добавлено через 11 минут
Большое спасибо, получилось запустить.

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .