Term::Table2 provides formatted output of tables supplied as a combination of header and rows. Among other things supports both horizontal and vertical splitting (paging), in other words can cope with tables wider and / or higher than the size of page you intend to use. Too long table rows and cell contents can be wrapped / truncated depending on options supplied.
Version 1.0.0 (The versioning is conform with https://semver.org/.)
use Term::Table2; my $table = Term::Table2->new( # based on array of rows header => [ # defaults to output without header 'id', 'message type', 'comment', 'version', ], rows => [ # each element must contain array of scalars, ['SalcatKIAEST', 315, '', '001'], # all arrays must have the same length ['SbakerKI2824', 997, '', 'SHP'], ... ], broadColumn => [CUT, WRAP, CUT, CUT], # defaults to wrap for all values in columns broadHeader => [CUT, WRAP, CUT, CUT], # defaults to wrap for all values in headers broadRow => CUT, # defaults to row wrap; supports split to other page, too collapse => [0, 1, 1, 1], # defaults to no collapse for all columns columnWidth => [12, undef, 10, 3], # defaults to maximum text length within header / values pad => 2, # defaults to 1 for each side pageHeight => 100, # defaults to 0 (no paging) tableWidth => 120, # defaults to screen size ); say while $table->fetch(); # or my $table = Term::Table2->new( # based on callback for rows rows => &{$dbObject->fetch()}, # returns reference to array, all arrays must have the same length broadColumn => CUT, # considered as the same value for all columns broadRow => CUT, # considered as the same value for all columns columnWidth => 20, # considered as the same value for all columns, does not have any default pad => 2, # defaults to 1 for each side pageHeight => 100, # defaults to 0 (no paging) separateRows => 1, # defaults to 0 (no rows separation) tableWidth => 120, # defaults to screen size ); say while $table->fetch(); # or say foreach @{Term::Table2->new(...)->fetch_all()};
This prints a table like this:
+----------------+-----------+-------+ | id | message | ver | | | type | | +----------------+-----------+-------+ | SalcatKIAEST | 315 | 001 | | SbakerKI2824 | 997 | SHP | | ... | ... | ... | +----------------+-----------+-------+
or like this:
+----------------+-----------+-------+ | id | message | ver | | | type | | +----------------+-----------+-------+ | SalcatKIAEST | 315 | 001 | +----------------+-----------+-------+ | SbakerKI2824 | 997 | SHP | +----------------+-----------+-------+ | ... | ... | ... | +----------------+-----------+-------+
Provides a possibility for formatting of tables supplied in form of their row contents and headers. Trailing blanks - both in header and row contents - are ignored!
Parameters supplied get validated, however the validation scope and its time point depend on the kind of row content transmission.
In case of rows supplied as an array reference all parameters are validated during the instantiating of Term::Table2 object.
In case of a reference to callback function only the types of parameters can be validated during the object instantiating, whereas their values can first be checked after the very first row will have been delivered by the callback function.
If table contains some wide unicode characters, the represantation will only be correct in case the module Unicode::GCString is installed, otherwise this can be twisted but no exception will be raised.
Description
Constructor preparing a table output on the base of options supplied.
use Term::Table2; my $table = Term::Table2->new(%options);
%options
header => <array reference>
Considers each element of this array as a header of column with the same index.
If a header exists, if always starts and ends with a separating line consisting of hyphens (-) and plus characters (+).
Undefined or non-scalar elements cause an exception.
Defaults to output without any header at all.
rows => <reference to array of array references> or rows => <reference to callback function>
In case of an array reference considers each element of this array as a single table tow, where each sub-element corresponds to a single column value.
In case of a reference to callback function it is expected that this function returns an array reference corresponding to one table row.
After the very last row is fetched (e.g. from a database) the callback function has to return undef.
The table content (rows) always ends with the same separating line as described for the header.
Undefined rows in case of an array reference as well as rows not represented by an array reference cause an exception.
Undefined or non-scalar sub-elements (column values) cause an exception.
Defaults to output without table content at all.
broadColumn => <array reference> or broadColumn => <scalar>
Considers each element of this array as a flag defining the behaviour in case of too broad cell content. In case of scalar its value is applied to all columns.
Whether a cell content (including padding required) is too broad, depends on the width of the corresponding column (please refer to columnWidth below) and on the table width (please refer to tableWidth below).
If the table width is exceeded, the formatting depends on broadRow described below.
If the table width is not exceeded but the column width is exceeded, the following possibilities are supported:
Only the allowed amount of left-most characters will be kept, the rest will be cut off.
The cell content will be splitted into mutliple chunks in accordance with how many characters are allowed (except maybe of the very last chunk that can be shorter). As a result each cell in the corresponding table row will occupy multiple lines.
Any value except of CUT and WRAP causes an exception.
Defaults to WRAP.
broadHeader => <array reference> or broadHeader => <scalar>
Considers each element of this array as a flag defining the behaviour in case of too broad header cells. In case of scalar its value is applied to all columns.
Whether a header cell (including padding required) is too broad, depends on the width of the corresponding column (please refer to columnWidth below) and on the table width (please refer to tableWidth below).
The header cell will be splitted into mutliple chunks in accordance with how many characters are allowed (except maybe of the very last chunk that can be shorter). As a result the table header will occupy multiple lines.
broadRow => <scalar>
Defines the behaviour in case of too broad row (including padding required).
Whether a row is too broad depends on the table width (please refer to tableWidth below).
If the table width is exceeded, the following possibilities are supported:
Only the allowed amount of left-most characters in each line of each table row will be kept, the rest will be cut off.
Each line of each table row will be splitted into mutliple chunks in accordance with how many characters are allowed by tableWidth (except maybe of the very last chunk that can be shorter).
Each next chunk will then be pushed into the result related to the next page so that the complete table row will be splitted "horizontally" and occupy multiple pages (this can be considered as a table cut through between some columns or even mid-column so that it should be afterwards stick together).
This value applied in case of rows referring to a callback function causes an exception.
All these chunks will then be pushed into the same result just after each other so that the complete table row will be wrapped and occupy multiple lines.
collapse => <array reference> or collapse => <scalar>
Considers each element of this array as a flag defining the behaviour in case of column containing empty strings only. In case of scalar its value is applied to all columns.
If an element is set to true (in terms of Perl) and the corresponding column contains empty strings only, this column will not be placed into the result.
Defaults to false for all columns.
This option has no effect in case of rows referring to a callback function.
columnWidth => <array reference> or columnWidth => <scalar>
Considers each element of this array as maximum width of the same-indexed column excluding padding. In case of scalar its value is applied to all columns.
The area of allowable values depends on the value of rows as mentioned below:
If an element is set to 0 or exported constant ADJUST, the maximum length of values without trailing spaces in the column will be applied.
Any value that is defined but not zero or a positive integer causes an exception.
Defaults to ADJUST.
All column widths must be pre-defined explicitly, there is no default.
Any value that is defined but not a positive integer causes an exception.
pad => <array reference> or pad => <scalar>
Number of spaces to be added to each header / column value both on the left and on the right. In case of scalar its value is applied to all columns.
If defined but not zero or a positive integer, causes an exception.
Defaults to 1.
pageHeight => <scalar>
Defines if the header must be repeated at the top of each page and how long must be each page.
If set to 0 or exported constant ADJUST, the paging will be deactivated to that the header will appear in the result only once (if any).
If lower than the height of the header + number of row chunks as described for broadRow, causes an exception.
Defaults to the current screen height.
separateRows => <scalar>
Flag defining if a separating lines must be placed between table rows. Any value but false is considered true (in terms of Perl).
The separating line itself consists of hyphens (-) placed under each cell and plus characters (+) placed between cells and at the table edges.
Defaults to false (no separating line).
tableWidth => <scalar>
Defines the table width including column separators.
If set to 0 or exported constant ADJUST, there is no limitation so that the table width will depend on the column widths.
If lower than the width of the narrowest possible column i.e. the column containing 1 character, its left-side separator and its left-side paddings, causes an exception.
Defaults to the current screen width.
Returns
Object reference.
Exceptions
Header has less cells than a table row does.
Page height is too low.
Table width is too low.
Returns next line from the formatting result delivering undef if all lines are exhausted.
The result depends on the screen size being current during the new execution.
say while $table->fetch();
Parameters
None.
Single result line as string.
Current row contains a non-scalar cell value (in case of rows => <reference to callback function> only).
Current row is not an array reference (in case of rows => <reference to callback function> only).
Wrong number of cells in the current row (in case of rows => <reference to callback function> only).
Returns all remaining result lines as a reference to array of strings.
say foreach @{$table->fetch_all()};
Array of strings, each of them corresponds to a result line.
See exception description of fetch.
Provides reference to array containing single column headers.
my $header = $table->header();
Reference to array of strings, each of them corresponds to a header of the same-index column.
Provides either reference to array containing all table rows or reference to callback function returning a single table row per call.
my $rows = $table->rows();
One of the following:
Reference to array of array references.
Reference to callback function.
Provides reference to array containing flags defining behaviour in case of too broad column values.
my $broadColumn = $table->broadColumn();
Reference to array of flags, each of them corresponds to the same-index column.
Provides reference to array containing flags defining behaviour in case of too broad header values.
my $broadHeader = $table->broadHeader();
Provides flag defining behaviour in case of too broad row (wider than the table width).
my $broadRow = $table->broadRow();
Scalar containing flag value.
Provides reference to array containing flags defining behaviour in case of column containing empty strings only.
my $collapse = $table->collapse();
Provides reference to array containing real width of columns really presented in the result (under consideration of collaps flags, tableWidth, and broadRow flag).
my $columnWidth = $table->columnWidth();
Reference to array of column widths.
Provides order number of currently processed row (row counter starts with 1).
If the very last row has been delivered, contains number of rows + 1 and does not change anymore.
Returns 0 in case of empty table.
my $currentRow = $table->currentRow();
Scalar containing current row number.
Provides boolean value showing if the end of the table has been reached.
while ($table->endOfTable()) { ... }
Boolean flag.
Provides reference to array containing number of spaces to be added both on the left and on the right of each column value.
my @pad = @{$table->pad()};
Reference to array containing the size of padding space for each side of every column.
Provides number of lines per page.
my $pageHeight = $table->pageHeight();
Scalar containing the page height.
Provides boolean flag showing if a separating lines must be placed between table rows.
my $separateRows = $table->separateRows();
Scalar containing the flag.
Provides maximum number of characters per line.
my $tableWidth = $table->tableWidth();
Scalar containing the table width.
The following constants are exported by request:
Equates the column width to the length of the longest cell content in this column. Contains 0.
Activates truncating of row / cell content. Contains 0.
Activates vertical splitting of table by page width. Contains 1.
Wraps row / cell content. Contains 2.
Jurij Fajnberg, <fajnbergj at gmail.com>
Please report any bugs or feature requests to bug-term-ansitable at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Term-Table2. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
Copyright 2019 Jurij Fajnberg
This program is free software; you can redistribute it and/or modify it under the terms of the the Artistic License (2.0). You may obtain a copy of the full license at:
http://www.perlfoundation.org/artistic_license_2_0
Any use, modification, and distribution of the Standard or Modified Versions is governed by this Artistic License. By using, modifying or distributing the Package, you accept this license. Do not use, modify, or distribute the Package, if you do not accept this license.
If your Modified Version has been derived from a Modified Version made by someone other than you, you are nevertheless required to ensure that your Modified Version complies with the requirements of this license. This license does not grant you the right to use any trademark, service mark, tradename, or logo of the Copyright Holder. This license includes the non-exclusive, worldwide, free-of-charge patent license to make, have made, use, offer to sell, sell, import and otherwise transfer the Package with respect to any patent claims licensable by the Copyright Holder that are necessarily infringed by the Package. If you institute patent litigation (including a cross-claim or counterclaim) against any party alleging that the Package constitutes direct or contributory patent infringement, then this Artistic License to you shall terminate on the date that such litigation is filed.
Disclaimer of Warranty:
THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
To install Term::Table2, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Term::Table2
CPAN shell
perl -MCPAN -e shell install Term::Table2
For more information on module installation, please visit the detailed CPAN module installation guide.