CAPITULOS="capitulo1.tex capitulo2.tex capitulo3.tex capitulo4.tex capitulo5.tex"
perl -wne '/\\href\{(\S*)\}\{.*\}/&&print "$1\n"' capitulo6.tex > referencias.ahora.txt

for j in $CAPITULOS
do
	echo $j
	for i in `perl -wne '/\\\\href\\{(\\S*)\\}\\{.*\\}/&&print "\$1\n"' $j`
	do
		if grep $i referencias.ahora.txt > /dev/null
		then
			:
		else
			echo $i
		fi
	done
done > referencias.faltan.txt

rm -f referencias.ahora.txt