[Perl] Hay otra forma de escribir esto??

[Gunnar Wolf]

> Good Evening! Perleros!
>
> Me preguntaba si hay otra forma de escribir esto, mas compacto.
>
>
> if ( ($horas =3D~ /\D/) && !($horas =3D~ /\./) ){
>  ....
> }

Ummm... A ver... Pides que $horas no contenga ni d=EDgitos ni puntos,
cierto? Prueba:

unless ($horas =3D~ /[\.\d]/) { ... }

Saludos,

--=20
Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52-55)5623-1118
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF