# 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"
}