# Obtener el número de líneas de un fichero
function countl
{
lines=0
while IFS= read -r line || [[ -n $line ]]; do
((lines=lines+1))
done < "$1"
printf '%s\n' "$lines"
}