[perl] Control de campo

[Salman P. S. L.]

Hola a t@s

¿ Se os ocurre alguna forma mas elegante de escribir esto ?

 if ($usuario =~ /^[a-z0-9]+$/) {
  $valido=1;
 }
 else {
  print "Dato Incorrecto $usuario No es un dato valido Solo letras de la -a-
a la -z- y numeros del -0- al -9-";
 }

Se trata de controlar que una variable exclusivamente contenga letras y
numeros.

Saludos
Salvador
Salman


--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl