link="Colt" #
i=1 #
for f in 2009-01-??-????-??-??-*$link*.csv.zip #
do #
  cp $f cdr$i.csv.gz #
  gzip -d cdr$i.csv.gz #
  i=$(($i+1)) #
done #
#
cat cdr*.csv | awk -F\",\" '
    BEGIN {
      #printf "From, To, Country, Description, Connect Time, Charged Time min:sec, sec, Charged Amount CHF\n"
    }

    $2~/^41[^7]/ {
      gsub("\"","",$1)
      gsub("\"","",$7)
      split($6,a,":")
      sec=a[1]*60+a[2]
      #printf "%s,%s,%s,%s,%s,%s,%s,%s\n",$1,$2,$3,$4,$5,"(min:sec) " $6,sec,$7
      n[sec]++;
    }

    END{
      for(i in n)
      {
        printf "%d,%d\r\n",i,n[i]
      }
    }
  ' > out-$link.csv #
#
rm cdr*.csv #