Muchas veces , en nuestros programas, no sabemos por dónde andan, qué están haciendo, o cuáles son los valores de las variables.
La solución más habitual es... poner prints:print "DEBUG: Empezando el bucle...\n";
foreach my $tarea ( @pendientes ) {
print "DEBUG: Haciendo la tarea $tarea\n";
# procesando la $tarea
}
print "DEBUG: Fin del bucle\n";El código se hace un poco más largo, pero al menos sabemos qué está haciendo.
Cuando terminemos el programa y ...