Shell Programming and Scripting

col1    col2   col3   col4    col5
        xdf    sdee   sdff    cfdd
ddd     rfg    fgt    grf      drft

while read line
do
 echo $line|awk '{print $4}'

done < "test.txt"

cfdd
grf

sdff
grf

cut -c23-30 test.txt

col1    col2   col3   col4    col5
        xdf    sdee   sdff    cfdd
ddd     rfg    fgt    grf      drft
ddd     rfg    fgt    grfffff      drft
        gfr    fgt    grfffffrr      drft

#!/usr/bin/ksh
cut -c23- File | while read mFourth mRest; do
  echo ${mFourth}
done

$
$
$ cat f30
col1    col2   col3   col4    col5
        xdf    sdee   sdff    cfdd
ddd     rfg    fgt    grf      drft
ddd     rfg    fgt    grfffff      drft
        gfr    fgt    grfffffrr      drft
$
$
$
$ perl -plne 's/^.{22}(\w+).*/$1/' f30
col4
sdff
grf
grfffff
grfffffrr
$
$

cut -c23- infile |awk '{print $1}'

awk '{ gsub( "[ \t]+", "," ); split( $0, a, "," ); print a[4] }' input-file

awk 'NF == 4 { print $3; next; } {print $4}'

awk '{ print $(NF-1) }'