Shell Programming and Scripting

#!/usr/bin/env bash

# @(#) s1       Demonstrate automatic field alignment, align.

# 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 "$*"; }
em() { pe "$*" >&2 ; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C align

FILE=${1-data2}

pl " Input data file $FILE, sample, show TABs, clipped to 78"
cat -A $FILE |
cut -c 1-78 |
head

GUTTER=3
pl " Results, spaces for (right) adjustment, gutter=$GUTTER:"
align -st -j_ -ar -g$GUTTER $FILE

exit 0

$ ./s1 

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 3.16.0-5-amd64, x86_64
Distribution        : Debian 8.9 (jessie) 
bash GNU bash 4.3.30
align 1.7.0

-----
 Input data file data2, sample, show TABs, clipped to 78
SERVICE NAME^ITEAM NAME^ICI OWNER^ISECONDARY CONTACT^IPAYCHECK NAME^IDEVV^IADE
checkout^ISARD^Iopalan^IJef May^Iabcdef^IYes^IYes^IYes^IYes^IYes^IYes$

-----
 Results, spaces for (right) adjustment, gutter=3:
SERVICE NAME   TEAM NAME   CI OWNER   SECONDARY CONTACT   PAYCHECK NAME   DEVV   ADEINT   ENV DEV   ENV STAGE   ENV PROD   ENV PROD
    checkout        SARD     opalan             Jef May          abcdef    Yes      Yes       Yes         Yes        Yes        Yes

align   Align columns of text. (what)
Path    : ~/p/stm/common/scripts/align
Version : 1.7.0
Length  : 270 lines
Type    : Perl script, ASCII text executable
Shebang : #!/usr/bin/perl
Help    : probably available with --help
Home    : http://kinzler.com/me/align/ (doc)
Modules : (for perl codes)
 Getopt::Std    1.10