UNIX for Dummies Questions & Answers

gzip -dc *.gz | /usr/xpg4/bin/awk -F';' '$252!=""'>results.txt

OS, ker|rel, machine: SunOS, 5.11, i86pc
Distribution        : Solaris 11.2 X86
gawk GNU Awk 3.1.8

bash-3.2$ gawk
bash: gawk: command not found
bash-3.2$

#!/usr/bin/env bash

# @(#) s1       Demonstrate searching fields (columns), colgrep.
# Missing textutils, verified Wed Feb 10 16:04:12 CST 2016
# http://www1.cuni.cz/~obo/textutils/

program=./colgrep

# 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 align $program

FILE=${1-data1}

pl " Input data file human readable $FILE:"
align -s t $FILE

pl " Results:"
$program 4 --re='.' $FILE

pl " Code for colgrep:"
cat $program

exit 0

$ ./s1

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 3.16.0-4-amd64, x86_64
Distribution        : Debian 8.3 (jessie) 
bash GNU bash 4.3.30
align 1.7.0
./colgrep - ( local: RepRev 1.1, ./colgrep, 2016-02-10 )

-----
 Input data file human readable data1:
AtZv    qChk    QjxK    nXYM    MdLp    SMar
One     aqeP    Wpkl            cLJO    oeba
gHld    hUFv    dKcr    PKAi    xPnz    txAk
Two     zrHl    mpcg            ZAia    wMLN
hwey    ejyu    qzKA    Pcom    Jewb    mrGW
YfMp    PBUs    YUdo    itUy    vwHL    JVih

-----
 Results:
Searching cols 4 for ..
AtZv    qChk    QjxK    nXYM    MdLp    SMar
gHld    hUFv    dKcr    PKAi    xPnz    txAk
hwey    ejyu    qzKA    Pcom    Jewb    mrGW
YfMp    PBUs    YUdo    itUy    vwHL    JVih

-----
 Code for colgrep:
#!/usr/bin/env perl

# @(#) colgrep  Match specific columns with perl expression.
# $Id: colgrep,v 1.1 2011/11/23 04:01:03 drl Exp drl $

# The Missing Textutils, Ondrej Bojar, obo@cuni.cz
# http://www.cuni.cz/~obo/textutils
#
# 'colgrep' is just like grep (but using Perl regular expressions, not grep
# ones), but it checks only specified tab-delimited columns of the file.
#
# $Id: colgrep,v 1.1 2011/11/23 04:01:03 drl Exp drl $
#

use Getopt::Long;
use strict;

my $inverse = 0;
my $extrare = 0;
my $skip = 0;
my $help = 0;
GetOptions(
  "inverse" => \$inverse,
  "help" => \$help,
  "skip=i" => \$skip,
  're=s'=>\$extrare,
) or exit 1;

my $cols=shift;
my $re;
if ($extrare || $extrare eq "0") {
  $re = $extrare;
} else {
  $re=shift;
}

if ($help || !$cols || !($re || $re eq "0")) {
  print STDERR "usage: colgrep 1,2,3 --re=\"re_to_lookup\"
Options:
  --inverse   ... print lines where the RE was not found
  --skip=N    ... skip first N lines
";
  exit 1;
}

my @cols = split /,/, $cols;
my %cols;
foreach my $col (@cols) {
  $cols{$col-1} = 1;
}

print STDERR "Searching cols $cols for $re.\n";

while ($skip > 0) {
  my $l = <>;
  print $l;
  $skip --;
}


while (<>) {
  my @line = split /\t/;
  my $pattern = "";
  foreach my $col (sort keys %cols) {
    $pattern .= "$line[$col]\t";
  }
  chop $pattern;
  my $hit = ($pattern =~ /$re/);
  print if ($hit && !$inverse) || (!$hit && $inverse);
}