Foro - Perl en Español

Hola:

Estoy tratando de analizar dos strings obtenidos mediante unos objetos GtkEntry. Puedo mostrar los valores mediante print() y salen perfectos. Sin embargo, trato de analizar su contenido y no hace nada. Mi intención es comprobar si tiene el formato 00:00:00.

Mi idea de código es:

if ($entrada !~ /[0-2][0-9]:[0-5][0-9]:[0-5][0-9]/) {
print "No me gusta\n";
}

¿Qué estoy haciendo mal?

Muchas gracias por vuestra ayuda.

Falkom

Habría que ver un ejemplo de la entrada. Sospecho que hay algo más en la entrada, que hace disparar al if().

Es mejor hacerlo al revés (y más claro):


Fíjate que, si lo que estás buscando, es un formato de hora (horas, minutos y segundos), no te va a funcionar en todos los casos...

Por ejemplo, marcará como correcta la hora 28. Y no marcará como correcta cuando exista un segundo número 60 (sí, es correcto: puede existir un segundo número 60).

Muchas gracias de nuevo.