Shell Programming and Scripting

total=`awk '{ c+=$3 }END{ print c }' filename`

typeset -i mSum=0
typeset -R1 mLast
while read m1 m2 m3 mValue mN
do
  mValueNbr=`echo ${mValue} | sed 's/[^0-9]//g'`
  mLast=${mValue}
  if [ "${mLast}" = ">" ]; then
    mNbr='-'${mValueNbr}
  else
    mNbr=${mValueNbr}
  fi
  mSum=${mSum}+${mNbr}
done < input_file
mSumMask=`echo ${mSum} | sed 's/..$/.&/g'`
echo 'Sum = '${mSumMask}

awk '{ if ( match($3, "$") ) { if ( match($4, ">") ) { cnt-=substr($4, 0, index($4, ">") - 1) } else { cnt+=$4 } } }END{ print cnt }' filename

#!/usr/bin/perl -ws

sub usage()
{
    print <<"EOF";

# tots up all numbers in a tabular file
# assumes first column is the number to
# be totalled unless specified with -col=n
#
# e.g. try: 'du -s * | total'
#
# or
#
# ls -l | total -col=5
EOF
    die "\n";
}

$h ||= undef;
usage if $h;

$col ||=1;
$col--;

while (<>) {

    chomp;

    next unless /./; # skip blanks
    $number = (split)[$col];
    $total += $number;
    print;
    print " ($number)\n";

} 

print STDOUT "\n" , "=" x length($total), "\n$total\n";