LINUX.ORG.RU

Perl + tail


0

0

Имеется вывод команды tail -10 foo. Вернее четрыех файлов.
Требуется вывести, как в Text::Diff в контексте Table, а то уж больно неудобно в столбик сравнивать.
Что-то типа такого:

|-----| |-----| |-----| |-----|
| 1 | | 2 | | 3 | | 4 |
| | | | | | | |
|-----| |-----| |-----| |-----|

Есть что-то в CPAN? Или идеи какие?
Можно конечно split по \n почикать, а потом выводить, но мне не нравится :) Кажется можно найти что-то более удобное

|-----| |-----| |-----| |-----|
|  1  | |  2  | |  3  | |  4  |
|     | |     | |     | |     |
|-----| |-----| |-----| |-----| 
Вот так, конечно же :)

unicsoid ★★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.