🚀 go-pugleaf

  This message is in MIME format.  The first part should be readable text,
  while the remaining parts are likely unreadable without MIME-aware tools.

--8323328-1014992884-1175940064=:16935
Content-Type: TEXT/PLAIN; charset=ISO-8859-1
Content-Transfer-Encoding: QUOTED-PRINTABLE

On Thu, 5 Apr 2007, F wrote:

> Hola,
>=20
> Tengo una cadena con las siguientes caracteristicas
>=20
> -El numero de caracteres siempre tiene que ser 7
> -puede tener alfanumericos y espacios, pero todos los alfanumericos que=
=20
> tengan tienen que estar al principio y todos lo espacios al final ( es de=
cir=20
> no se pueden intercarlar).
>=20
> Puede resolver estas dos condiciones por separado, pero no he conseguido=
=20
> resolverlo juntas
>=20
> =BFalguien me puede echar una mano?
>=20
> cadenas validos serian
>=20
> "a      "
> "asd  "
> "       "
> "xxxxxxx"
>=20
> he invalidas
> "a  s    "
> " "
> "asas"
>=20
>=20
Si por "resolver" entiendes validar o no, puedes examinar car=E1cter
a car=E1cter y escapar en cuanto se produzca la violaci=F3n. No veo la
necesidad de utilizar expresiones regulares.

En cuanto a la violaci=F3n, entiendo que s=F3lo se produce al pasar de
espacio a no espacio, por lo que es f=E1cil de chequear.=20

sub validar {
=09my $string =3D $_[1];
=09return -1 if length($string)!=3D7;
=09my @s =3D split "", $string;
=09my $iant=3D"";
=09for my $i (@s){
=09=09if ($iant eq " " && $i ne " ") { return -1; }
=09=09$iant=3D$i;
=09}=09
=09return 1;
}
# untested=20

Saludos cordiales


--=20
http://www.telecable.es/personales/gamo/
perl -e 'print 111_111_111**2,"\n";'
--8323328-1014992884-1175940064=:16935--