Shell Programming and Scripting

#!/usr/bin/env bash

# @(#) s1       Demonstrate creating ASCII tables and coloring element.
# See:
# http://www.andre-simon.de/zip/ansifilter-1.7.tar.bz2

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
LC_ALL=C ; LANG=C ; export LC_ALL LANG
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C perl ansifilter

# Function to color a string.
# call:  color string-to-be colored file
color() {
  escape=""     # in vi, use control-v, then control-[ to get ascii ESC
  red="${escape}[01;31m"
  restore="${escape}[00m"
  target=$1
  file=$2
  sed "s/$target/${red}&${restore}/" $file
}

FILE=${1-data1}

pl " Input data file $FILE:"
cat $FILE

rm -f f1 f2 f3.html
pl " Results, ASCIITable, ansifilter:"
tail -n+2 $FILE |
./p1 |
tee f1
ansifilter --bbcode f1 > f2
ansifilter --html f1 > f3.html

# Add a color to elements matching "defaulting"
color defaulters $FILE > data2

pl " Results, ansifilter with a color, console color:"
cat data2

rm -f f1 f2
pl " Results, ansifilter with a color, bbcode color:"
tail -n+2 data2 |
./p1 > f1
ansifilter --bbcode f1 > f2
cat f2

pl " Use of ASCIITable in perl script p1:"
cat p1

exit 0

$ ./s1

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: HP-UX, B.11.11, 9000/785
Distribution        : GenericSysName [HP Release B.11.11] (see /etc/issue)
GNU bash 4.2.37
perl 5.10.1
ansifilter - (local: ~/executable/ansifilter Apr 18 14:13 )

-----
 Input data file data1:
parameter_name status comment
banking ok NA
finance 30% hike NA
Loan_department ok 20%
HR_Group defaulters Ajay

-----
 Results, ASCIITable, ansifilter:
.----------------------------------------.
| parameter_name  | status     | comment |
+-----------------+------------+---------+
| banking         | ok         | NA      |
| Loan_department | ok         |     20% |
| HR_Group        | defaulters | Ajay    |
'-----------------+------------+---------'

-----
 Results, ansifilter with a color, console color:
parameter_name status comment
banking ok NA
finance 30% hike NA
Loan_department ok 20%
HR_Group defaulters Ajay

-----
 Results, ansifilter with a color, bbcode color:
.-----------------------------------------------------.
| parameter_name  | status                  | comment |
+-----------------+-------------------------+---------+
| banking         | ok                      | NA      |
| Loan_department | ok                      |     20% |
| HR_Group        | defaulters | Ajay    |
'-----------------+-------------------------+---------'

-----
 Use of ASCIITable in perl script p1:
#!/usr/bin/env perl

# @(#) p1       Demonstrate basic text table.

use Text::ASCIITable;

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


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

exit(0);

...
cp data1 data2

pl " Results, ansifilter with a color, bbcode color:"
tail -n+2 data2 |
./p1 > f1
color defaulters f1 > f2
ansifilter --bbcode f2 > f3
cat f3

.----------------------------------------.
| parameter_name  | status     | comment |
+-----------------+------------+---------+
| banking         | ok         | NA      |
| Loan_department | ok         |     20% |
| HR_Group        | defaulters | Ajay    |
'-----------------+------------+---------'