cuenta_cdrs()
{
 for dir in *
 do
  cd $dir
  for file in * 
  do 
   if [ -f $file ]
   then
    awk '
    BEGIN {print "dia", "\t", "Cantidad"}
    $1 == prev {totaldia++}
    $1 != prev {printf("%s\t%s\n",prev,totaldia);totaldia=1;prev=$1;filas++}' listacdrs
   fi 
  done
  cd .. 
 done
}