$ cat data2
/dev/hd9var	20.75	4.47	79%	22378	3%	/var
/dev/itmlv	2.00	0.58	71%	8400	6%	/opt/IBM/ITM
/dev/oradatalv	10.00	2.28	88%	17	1%	/u02/oradata

$ cat f1
+----------------+-------+------+-----+-------+----+--------------+
| /dev/hd9var    | 20.75 | 4.47 | 79% | 22378 | 3% | /var         |
| /dev/itmlv     |  2.00 | 0.58 | 71% |  8400 | 6% | /opt/IBM/ITM |
| /dev/oradatalv | 10.00 | 2.28 | 88% |    17 | 1% | /u02/oradata |
'----------------+-------+------+-----+-------+----+--------------'

$ cat f2
+----------------+-------+------+-----+-------+----+--------------+
| /dev/hd9var    | 20.75 | 4.47 | 79% | 22378 | 3% | /var         |
| /dev/itmlv     |  2.00 | 0.58 | 71% |  8400 | 6% | /opt/IBM/ITM |
| /dev/oradatalv | 10.00 | 2.28 | 88% |    17 | 1% | /u02/oradata |
'----------------+-------+------+-----+-------+----+--------------'

#!/usr/bin/env perl

# @(#) p1	Demonstrate basic text table.

use Text::ASCIITable;

$t = Text::ASCIITable->new();
# $t->setCols( "AtomicNumber", "Symbol", "Name" );
$t->setCols( "c1", "c2", "c3", "c4", "c5", "c6", "c7" );
$t->setOptions({ hide_HeadRow => 1, hide_FirstLine => 1 });


while (<>) {
  @a = split;
  $t->addRow(@a);
}
print $t;

exit(0);

NAME
       Ansifilter - ANSI escape code processor and converter

SYNOPSIS
       ansifilter [d:i:F:o:s:e:fhptvHRT] [-i input file] [-o output file]
       [--text] [--html] [--latex] [--tex] [--rtf] [input files]

DESCRIPTION
       Ansifilter is a small utility to handle text files containing ANSI
       terminal escape codes. The command sequences may be stripped or be
       interpreted to generate formatted output (HTML, LaTeX, TeX, RTF).