Expresion regular en Perl

Iniciado por bdoX, 9 Enero 2012, 23:39 PM

0 Miembros y 5 Visitantes están viendo este tema.

Imprimir
Ir Abajo Páginas1 2
Acciones del Usuario

bdoX

9 Enero 2012, 23:39 PM Ultima modificación: 10 Enero 2012, 23:24 PM por Leo Gutiérrez.
Hola a todos:

Les cuento mi duda, pasa que quiero validar una espresion regular  y quiero que solo me reconozca el string en el alfabeto= {a, b}.

acá dejo el code. No se en que estoy fallando.

Código (perl) [Seleccionar]

print "Ingrese nombre de usuario: ";
$nombre=<STDIN>;
chomp($nombre);

if ($nombre =~ m/[c-z]/ | $nombre !~ m/\w/ | $nombre =~ m/[0-9]/)
{
print "No pertenece al lenguaje\n";
}
else
{
print "Si pertenece\n";
}


Con esto solo me acepta el alfabeto [a,b] + caracteres especiales como por ejemplo +, - {. } !, --. Pero eso no es lo que quiero. Ayuda please!

Código (perl) [Seleccionar]

print "Ingrese nombre de usuario: ";
$nombre=<STDIN>;
chomp($nombre);

if ($nombre =~ m/[c-z]/ | $nombre =~ /m[0-9]/)
{
print "No pertenece al lenguaje\n";
}
else
{
print "Si pertenece\n";
}

~ Yoya ~

#1
10 Enero 2012, 00:17 AM
Analiza el script que acabo de hacer, compararlo y luego pregunta cualquier cosa.

Código (perl) [Seleccionar]
#!/usr/bin/perl

use POSIX qw(locale_h);


=pod
En este caso es mucho mejor utilizar chomp, ya que este borra el salto de linea al final del string
chop borra el ultimo caracter al final del string....


Establesco el locale para el script, para que me tome la letra ñ como parte del alfabeto....
=cut



setlocale(LC_ALL, 'es_DO.ISO-8859-1');

my $nombre = <>;

chomp($nombre); #Borro el salto de linea del final del string si existe



if($nombre =~ m/[a-z]/i) {
print "Si\n";

}
Mi madre me dijo que estoy destinado a ser pobre toda la vida.
Engineering is the art of balancing the benefits and drawbacks of any approach.

bdoX

#2
10 Enero 2012, 02:45 AM Ultima modificación: 10 Enero 2012, 02:50 AM por bdoX
Hola ~ Yoya ~:

Gracias por responder, solo entiendo esta parte de tu code.

Código [Seleccionar]

my $nombre = <>;

chomp($nombre); #Borro el salto de linea del final del string si existe

if($nombre =~ m/[a-z]/i) {
print "Si\n";


La verdad es que no se que tan importante colocarle la m if($nombre =~ m/[a-z]/i) , porque sin él, me funciona igual. A lo mejor es para hacerlo mas portable. (Estoy bajo windows)

No se si me explique bien, pero voy a dar unos ejemplos que lo quiero.

Código (perl) [Seleccionar]

string = "abababababababba"; # deberia tomarlo
string = "ababaaabbb+.-aba"; # No deberia tomarlo
string = "ok23iaajij3o+i23jaabv"; #No deberia tomarlo
string = "a"; #deberia tomarlo;
string = "b"; #deberia tomarlo;
string = " "; #No deberia tomarlo;
string = ""; #No deberia tomarlo;
string = "+"; #No deberia tomarlo;
string = "a+b"; #No deberia tomarlo;
#... etc

Shell Root

#3
10 Enero 2012, 03:02 AM
m//
Este operador también conocido como de cotejo, se utiliza para localizar alguna expresión dentro de una cadena de texto o string. Si la expresión es verdadera entonces se regresará un 1.

:http://perlenespanol.com/tutoriales/expresiones_regulares/expresiones_regulares_las_bases.html
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.

bdoX

#4
10 Enero 2012, 03:15 AM Ultima modificación: 10 Enero 2012, 03:48 AM por bdoX
Para no salir del hilo, modifiqué lo del operador m// arriba. También modifique lo de chop(), por chomp(), pero los resultados son iguales


EDITADO

solucionado, acá dejo el code, era mas facil de lo que me esperaba jajajaj.

Código (perl) [Seleccionar]

print "Ingrese nombre de usuario: ";
$nombre=<STDIN>;
chomp($nombre);

#analiso si la cadena no contiene a,b y analiso si la cadena es vacia
if ($nombre =~ m/[^ab]/ | $nombre =~ m/^$/)
{
   print "No pertenece al lenguaje\n";
}
else
{
   print "Si pertenece\n";
}


Gracias por su ayuda, saludos!

~ Yoya ~

#5
10 Enero 2012, 15:39 PM
La expresión regular que estas usando es valida solo si no existe el carácter a o b, en el string. Ej:

Citar[yoya@Fedora Escritorio]$ perl a.pl
Ingrese nombre de usuario: c
No pertenece al lenguaje
[yoya@Fedora Escritorio]$ perl a.pl
Ingrese nombre de usuario: a
Si pertenece
[yoya@Fedora Escritorio]$

Código (perl) [Seleccionar]
#!/usr/bin/perl

print "Ingrese nombre de usuario: ";
$nombre=<STDIN>;
chomp($nombre);

#analiso si la cadena no contiene a,b y analiso si la cadena es vacia
if($nombre =~ m/^[a-z\ñ]+$/i) {
print 'Si pertenece', "\n";
}else{
print 'No pertenece', "\n";
}


Con esta compruebo que en la cadena entera debe existir solo las letras del alfabeto, desde el inicio al final.

Saludos.
Mi madre me dijo que estoy destinado a ser pobre toda la vida.
Engineering is the art of balancing the benefits and drawbacks of any approach.

bdoX

#6
10 Enero 2012, 17:05 PM Ultima modificación: 10 Enero 2012, 17:45 PM por bdoX
Cita de: ~ Yoya ~ en 10 Enero 2012, 15:39 PM
La expresión regular que estas usando es valida solo si no existe el carácter a o b, en el string. Ej:

Código (perl) [Seleccionar]
#!/usr/bin/perl

print "Ingrese nombre de usuario: ";
$nombre=<STDIN>;
chomp($nombre);

#analiso si la cadena no contiene a,b y analiso si la cadena es vacia
if($nombre =~ m/^[a-z\ñ]+$/i) {
print 'Si pertenece', "\n";
}else{
print 'No pertenece', "\n";
}


Con esta compruebo que en la cadena entera debe existir solo las letras del alfabeto, desde el inicio al final.

Saludos.

Con tu code, me aparece esto:

Código [Seleccionar]

C:\>tucode.pl
Ingrese nombre de usuario: c
Si pertenece

C:\>tucode.pl
Ingrese nombre de usuario: a
Si pertenece

C:\>


Como te darás cuenta, estoy bajo windows. No me aparece como a ti

Código [Seleccionar]

[yoya@Fedora Escritorio]$ perl a.pl
Ingrese nombre de usuario: c
No pertenece al lenguaje
[yoya@Fedora Escritorio]$ perl a.pl
Ingrese nombre de usuario: a
Si pertenece
[yoya@Fedora Escritorio]$


Por eso no entiendo lo que dices. Lo que hice anteriormente me valida bien el string en el alfabeto {a,b}.

Es solo una validacion, para resolver este tipo de expresiones regulares

"L = {w|w contiene las substring aa o bb pero no ambas}"
"L = {w|w no hay tres a′s consecutivas}"
"L = {w|w tiene numero par de a's}" // ese no se me ocurre com hacerlo

saludos!

~ Yoya ~

#7
10 Enero 2012, 23:20 PM
Esta parte

Código [Seleccionar]
[yoya@Fedora Escritorio]$ perl a.pl
Ingrese nombre de usuario: c
No pertenece al lenguaje
[yoya@Fedora Escritorio]$ perl a.pl
Ingrese nombre de usuario: a
Si pertenece
[yoya@Fedora Escritorio]$

Fue con tu código, creo que el tema esta volviendo complicado cuando el problema es muy simple.
Mi madre me dijo que estoy destinado a ser pobre toda la vida.
Engineering is the art of balancing the benefits and drawbacks of any approach.

bdoX

#8
10 Enero 2012, 23:28 PM Ultima modificación: 10 Enero 2012, 23:34 PM por bdoX
Cita de: ~ Yoya ~ en 10 Enero 2012, 23:20 PM
Esta parte

Código [Seleccionar]
[yoya@Fedora Escritorio]$ perl a.pl
Ingrese nombre de usuario: c
No pertenece al lenguaje
[yoya@Fedora Escritorio]$ perl a.pl
Ingrese nombre de usuario: a
Si pertenece
[yoya@Fedora Escritorio]$

Fue con tu código, creo que el tema esta volviendo complicado cuando el problema es muy simple.

Segun yo, los resultados que te da son buenos, con tu codigo me dan resultados que no espero tener. Aun sigo sin entenderte.

Bueno, segun yo, ya está solucionado mi duda.

Si aun crees que está malo mi codigo, dame un string en el alfabeto donde el programa se caiga.

saludos!

~ Yoya ~

#9
10 Enero 2012, 23:59 PM
Código (perl) [Seleccionar]

#!/usr/bin/perl


@nombres = ('juan','JOse', 'Luan', '565656aaa', '%_$__', 'Raa', 'b');



print '----------Yoya codigo', "\n";
foreach $nombre (@nombres) {

#analiso si la cadena no contiene a,b y analiso si la cadena es vacia
if($nombre =~ m/^[a-z\ñ]+$/i) {
print "$nombre -> Si pertenece\n";
}else{
print "$nombre -> No pertenece\n";
}

}

print "\n----------bdoX codigo\n";
foreach $nombre (@nombres) {

if ($nombre =~ m/[^ab]/ | $nombre =~ m/^$/)
{
    print "$nombre -> No pertenece al lenguaje\n";
}
else
{
    print "$nombre -> Si pertenece\n";
}
}


Código [Seleccionar]
[yoya@Fedora Escritorio]$ perl a.pl
----------Yoya codigo
juan -> Si pertenece
JOse -> Si pertenece
Luan -> Si pertenece
565656aaa -> No pertenece
%_$__ -> No pertenece
Raa -> Si pertenece
b -> Si pertenece

----------bdoX codigo
juan -> No pertenece al lenguaje
JOse -> No pertenece al lenguaje
Luan -> No pertenece al lenguaje
565656aaa -> No pertenece al lenguaje
%_$__ -> No pertenece al lenguaje
Raa -> No pertenece al lenguaje
b -> Si pertenece
Mi madre me dijo que estoy destinado a ser pobre toda la vida.
Engineering is the art of balancing the benefits and drawbacks of any approach.
Imprimir
Ir Arriba Páginas1 2
Acciones del Usuario