Shell Programming and Scripting

1:00    2:abc   3:12aswe

#!/usr/bin/awk -f
{ i= 1;
while(i<=NF)    {
                $i=substr($i, 1, index($i, ":")-1);
                i++
                }
}

1 2 3

cp $input ${input}.copy
awk -F: '{print $1}' RS="[ \t]+" ORS=" " $input > ${input}.tmp
mv ${input}.tmp $input

awk '{ gsub(/:[^ ]*/,x); $1=$1 }1' input_file > input_file.tmp

mv input_file.tmp input_file

#!/usr/bin/awk -f
{ i= 1;
while(i<=NF)    {
                $i=substr($i, 1, index($i, ":")-1);
                i++
                }
print
}
{print}
1

perl -pe 's/:\S*//g' file

perl -i.bak 's/:\S*//g' file #will save the original as file.bak

sed -i 's/:[^ \t]*//g'